Moderator: 2020vision
by Wacom78 » Thu Aug 20, 2020 8:48 pm
by Captain Sensible » Sat Aug 22, 2020 12:45 pm
by Captain Sensible » Sat Aug 22, 2020 12:48 pm
by Wacom78 » Sat Aug 22, 2020 8:39 pm
by Captain Sensible » Sun Aug 23, 2020 12:48 pm
Wacom78 wrote:Hi Captain, I replaced the bit of code that worked (in terms of getting the next day races in the tabs) - as below, with your earlier code but that didn't even move to the next days races.
So I have the below, which fires and works - its just getting it to select the first race I am struggling with. Are you able to adapt the below so it will select the first race in each tab as well?
- Code: Select all
If triggerQuickPickListReload Then
triggerQuickPickListReload = False
Worksheets("Sheet1").Range("Q2").Value = -4
Sorry for being a pain, I've given it a go but VBA isn't really my thing.
If triggerQuickPickListReload Then
triggerQuickPickListReload = False
Worksheets("Sheet1").Range("Q2").Value = -4
triggerFirstMarketSelect = True
Else
If triggerFirstMarketSelect Then
triggerFirstMarketSelect = False
Worksheets("Sheet1").Range("Q2").Value = -5
Worksheets("Sheet2").Range("Q2").Value = -5
Worksheets("Sheet3").Range("Q2").Value = -5
Worksheets("Sheet4").Range("Q2").Value = -5
Worksheets("Sheet5").Range("Q2").Value = -5
Worksheets("Sheet6").Range("Q2").Value = -5
End If
End If
by Wacom78 » Tue Aug 25, 2020 8:08 am
by Wacom78 » Tue Aug 25, 2020 4:11 pm
by Captain Sensible » Tue Aug 25, 2020 4:54 pm
If triggerQuickPickListReload Then
triggerQuickPickListReload = False
Worksheets("Sheet1").Range("Q2").Value = -4
If triggerQuickPickListReload Then
triggerQuickPickListReload = False
Worksheets("Sheet1").Range("Q2").Value = -4
triggerFirstMarketSelect = True
Else
If triggerFirstMarketSelect Then
triggerFirstMarketSelect = False
Worksheets("Sheet1").Range("Q2").Value = -5
Worksheets("Sheet2").Range("Q2").Value = -5
Worksheets("Sheet3").Range("Q2").Value = -5
Worksheets("Sheet4").Range("Q2").Value = -5
Worksheets("Sheet5").Range("Q2").Value = -5
Worksheets("Sheet6").Range("Q2").Value = -5
End If
by Wacom78 » Thu Aug 27, 2020 8:45 am
Option Explicit
Dim ba As BettingAssistantCom.ComClass
Private Sub Worksheet_Change(ByVal Target As Range)
Static MyMarket As Variant
Static switched As Variant
If Target.Columns.Count <> 16 Then Exit Sub
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
If [A1].Value = MyMarket Then
Range("AF3").Value = switched
If Range("AA4").Value + Range("AB1").Value <= Time() And Range("E2").Value = "In Play" Then
Range("AB4:bz60").Value = Range("AA4:bz60").Value
Range("AA5:AA60").Value = Range("O5:O60").Value
Range("AA4").Value = Time()
End If
Else
MyMarket = [A1].Value
Worksheets("Sheet1").Range("AA4:bz60").Value = ""
switched = "No"
End If
If [Y2] = "OK" And switched = "No" _
Then
switched = "Yes"
GoTo Switch_Market
End If
If triggerQuickPickListReload Then
triggerQuickPickListReload = False
Worksheets("Sheet1").Range("Q2").Value = -4
triggerFirstMarketSelect = True
Else
If triggerFirstMarketSelect Then
triggerFirstMarketSelect = False
Worksheets("Sheet1").Range("Q2").Value = -5
Worksheets("Sheet2").Range("Q2").Value = -5
Worksheets("Sheet3").Range("Q2").Value = -5
Worksheets("Sheet4").Range("Q2").Value = -5
Worksheets("Sheet5").Range("Q2").Value = -5
Worksheets("Sheet6").Range("Q2").Value = -5
End If
Xit:
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
Exit Sub
Switch_Market:
Worksheets("Sheet1").Select
Range("Q2").Value = -1
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
End Sub
by Wacom78 » Thu Aug 27, 2020 9:22 am
If triggerQuickPickListReload Then
triggerQuickPickListReload = False
Worksheets("Sheet1").Range("Q2").Value = -4
End If
If triggerQuickPickListReload Then
triggerQuickPickListReload = False
Worksheets("Sheet1").Range("Q2").Value = -4
triggerFirstMarketSelect = True
Else
If triggerFirstMarketSelect Then
triggerFirstMarketSelect = False
Worksheets("Sheet1").Range("Q2").Value = -5
Worksheets("Sheet2").Range("Q2").Value = -5
Worksheets("Sheet3").Range("Q2").Value = -5
Worksheets("Sheet4").Range("Q2").Value = -5
Worksheets("Sheet5").Range("Q2").Value = -5
Worksheets("Sheet6").Range("Q2").Value = -5
End If
by Captain Sensible » Thu Aug 27, 2020 10:38 am
by Captain Sensible » Thu Aug 27, 2020 10:40 am
by Captain Sensible » Thu Aug 27, 2020 4:35 pm
If Today <> Date And Hour(Now) > 11 Then
Today = Date
triggerQuickPickListReload = True
End If
If triggerQuickPickListReload Then
triggerQuickPickListReload = False
Worksheets("Sheet1").Range("Q2").Value = -4
triggerFirstMarketSelect = True
Else
If triggerFirstMarketSelect Then
triggerFirstMarketSelect = False
Worksheets("Sheet1").Range("Q2").Value = -5
Worksheets("Sheet2").Range("Q2").Value = -5
Worksheets("Sheet3").Range("Q2").Value = -5
Worksheets("Sheet4").Range("Q2").Value = -5
Worksheets("Sheet5").Range("Q2").Value = -5
Worksheets("Sheet6").Range("Q2").Value = -5
End If
End If
Option Explicit
Public Today As Date, triggerQuickPickListReload As Boolean, triggerFirstMarketSelect As Boolean
Dim ba As BettingAssistantCom.ComClass
Private Sub Worksheet_Change(ByVal Target As Range)
Static MyMarket As Variant
Static switched As Variant
If Target.Columns.Count <> 16 Then Exit Sub
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
If [A1].Value = MyMarket Then
Range("AF3").Value = switched
If Range("AA4").Value + Range("AB1").Value <= Time() And Range("E2").Value = "In Play" Then
Range("AB4:bz60").Value = Range("AA4:bz60").Value
Range("AA5:AA60").Value = Range("O5:O60").Value
Range("AA4").Value = Time()
End If
Else
MyMarket = [A1].Value
Worksheets("Sheet1").Range("AA4:bz60").Value = ""
switched = "No"
End If
If [Y2] = "OK" And switched = "No" _
Then
switched = "Yes"
GoTo Switch_Market
End If
If Today <> Date And Hour(Now) > 11 Then
Today = Date
triggerQuickPickListReload = True
End If
If triggerQuickPickListReload Then
triggerQuickPickListReload = False
Worksheets("Sheet1").Range("Q2").Value = -4
triggerFirstMarketSelect = True
Else
If triggerFirstMarketSelect Then
triggerFirstMarketSelect = False
Worksheets("Sheet1").Range("Q2").Value = -5
Worksheets("Sheet2").Range("Q2").Value = -5
Worksheets("Sheet3").Range("Q2").Value = -5
Worksheets("Sheet4").Range("Q2").Value = -5
Worksheets("Sheet5").Range("Q2").Value = -5
Worksheets("Sheet6").Range("Q2").Value = -5
End If
End If
Xit:
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
Exit Sub
Switch_Market:
Worksheets("Sheet1").Select
Range("Q2").Value = -1
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
End Sub
by Captain Sensible » Thu Aug 27, 2020 4:39 pm
Option Explicit
Public Today As Date, triggerQuickPickListReload As Boolean, triggerFirstMarketSelect As Boolean
Dim ba As BettingAssistantCom.ComClass
Private Sub Worksheet_Change(ByVal Target As Range)
Static MyMarket As Variant
Static switched As Variant
If Target.Columns.Count <> 16 Then Exit Sub
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
If [A1].Value = MyMarket Then
Range("AF3").Value = switched
If Range("AA4").Value + Range("AB1").Value <= Time() And Range("E2").Value = "In Play" Then
Range("AB4:bz60").Value = Range("AA4:bz60").Value
Range("AA5:AA60").Value = Range("O5:O60").Value
Range("AA4").Value = Time()
End If
Else
MyMarket = [A1].Value
Worksheets("Sheet1").Range("AA4:bz60").Value = ""
switched = "No"
End If
If [Y2] = "OK" And switched = "No" _
Then
switched = "Yes"
GoTo Switch_Market
End If
If Today <> Date And Hour(Now) >=6 Then
Today = Date
triggerQuickPickListReload = True
End If
If triggerQuickPickListReload Then
triggerQuickPickListReload = False
Worksheets("Sheet1").Range("Q2").Value = -4
triggerFirstMarketSelect = True
Else
If triggerFirstMarketSelect Then
triggerFirstMarketSelect = False
Worksheets("Sheet1").Range("Q2").Value = -5
Worksheets("Sheet2").Range("Q2").Value = -5
Worksheets("Sheet3").Range("Q2").Value = -5
Worksheets("Sheet4").Range("Q2").Value = -5
Worksheets("Sheet5").Range("Q2").Value = -5
Worksheets("Sheet6").Range("Q2").Value = -5
End If
End If
Xit:
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
Exit Sub
Switch_Market:
Worksheets("Sheet1").Select
Range("Q2").Value = -1
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
End Sub
by Wacom78 » Fri Aug 28, 2020 8:13 am
The strength of Gruss Software is that it’s been designed by one of you, a frustrated sports punter, and then developed by listening to dozens of like-minded enthusiasts.
Gruss is owned and run by brothers Gary and Mark Russell. Gary discovered Betfair in 2004 and soon realised that using bespoke software to place bets was much more efficient than merely placing them through the website.
Gary built his own software and then enhanced its features after trialling it through other Betfair users and reacting to their improvement ideas, something that still happens today.
He started making a small monthly charge so he could work on it full-time and then recruited Mark to help develop the products and Gruss Software was born.
We think it’s the best of its kind and so do a lot of our customers. But you can never stand still in this game and we’ll continue to improve the software if any more great ideas emerge.