Moderator: 2020vision
by runtime_error » Tue May 23, 2023 10:38 pm
by runtime_error » Tue May 23, 2023 10:57 pm
by alrodopial » Wed May 24, 2023 5:58 am
by Captain Sensible » Wed May 24, 2023 7:14 pm
by runtime_error » Wed May 24, 2023 9:08 pm
by NorthView » Thu May 25, 2023 2:07 pm
by Captain Sensible » Thu May 25, 2023 4:43 pm
runtime_error wrote:Thanks for the correction with the formula Captain.
I use a spreadsheet I downloaded from this site at Sample Triggered Betting Excel Sheets called "Back 3rd Favourite" :
http://www.gruss-software.co.uk/forum/viewtopic.php?f=8&t=4886
Cell S1 contains the number of seconds until start and this is used to trigger CopyCells():
Private Sub Worksheet_Calculate()
If Range("S1").Value = 120 Then
Call CopyCells
End If
I have suspected this could be problematic.
Private Sub Worksheet_Change(ByVal Target As Range)
Static MyMarket As String
If Target.Columns.Count <> 16 Then Exit Sub 'If columns changed <> 16 then exit sub
Application.EnableEvents = False 'Turn off events so changes to cell don't retrigger event
Application.Calculation = xlCalculationManual
With Target.Parent
If Range("S1").Value <= 120 And .Range("A1").Value <> MyMarket Then
Call CopyCells
MyMarket = .Range("A1").Value
End If
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True 'Turn on events again
End Sub
by Captain Sensible » Thu May 25, 2023 4:46 pm
Private Sub Worksheet_Change(ByVal Target As Range)
Static MyMarket As String
If Target.Columns.Count <> 16 Then Exit Sub 'If columns changed <> 16 then exit sub
Application.EnableEvents = False 'Turn off events so changes to cell don't retrigger event
Application.Calculation = xlCalculationManual
With Target.Parent
If .Range("S1").Value <= 120 And .Range("A1").Value <> MyMarket Then
Call CopyCells
MyMarket = .Range("A1").Value
End If
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True 'Turn on events again
End Sub
by runtime_error » Fri May 26, 2023 3:17 am
by runtime_error » Fri May 26, 2023 3:18 am
NorthView wrote:It's better to copy the data into an array and work on it there.
There are some examples on this forum if you're able to search for them.
by Captain Sensible » Fri May 26, 2023 6:11 pm
runtime_error wrote:Thanks Captain, just needed to add a "End With" after "End If" and it works!
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.