Moderator: 2020vision
by Drunkenight » Tue Sep 25, 2018 2:23 pm
by StuT » Tue Sep 25, 2018 3:41 pm
by Drunkenight » Tue Sep 25, 2018 5:27 pm
by Captain Sensible » Tue Sep 25, 2018 7:02 pm
Drunkenight wrote:I am trying to move on from a race if it has been delayed by more that 5 minutes. I am presuming that the only way to do this is to use the Q2 trigger. Does anyone have some good VBA code that will do this?
Secondly, I already have code in the Q2 cell with the required refresh rate. So in cell Q2 I already have =IF(Betfair!$B$3>100000,0.2,5). Whenever I try and use VBA code to place a trigger in the Q2 cell it deletes the code I already have in Q2. Is there any way around this?
Any help would be gratefully received.
Many thanks.
by Drunkenight » Wed Sep 26, 2018 1:10 am
by Captain Sensible » Wed Sep 26, 2018 2:03 pm
by Captain Sensible » Thu Sep 27, 2018 9:59 pm
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Static switchedMarket As String
Dim raceTime() As String, delay As String
If Target.Columns.Count <> 16 Then Exit Sub
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
On Error GoTo Xit:
With Target.Parent
raceTime = Split(.Range("A1").Value, "-")
delay = Format(Time() - TimeValue(Left(Trim(raceTime(1)), 5)), "hh:mm:ss")
If WorksheetFunction.IsText(.Range("D2").Value) And delay > TimeValue("00:05:00") And switchedMarket <> .Range("A1").Value Then
.Range("Q2").Value = -1
switchedMarket = .Range("A1").Value
ElseIf Worksheets("Betfair").Range("B3").Value > 100000 And .Range("Q2").Value <> 0.2 Then
.Range("Q2").Value = 0.2
ElseIf Worksheets("Betfair").Range("B3").Value <= 100000 And .Range("Q2").Value <> 5 Then
.Range("Q2").Value = 5
End If
End With
Xit:
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
End Sub
by Drunkenight » Sun Sep 30, 2018 11:34 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.