Moderator: 2020vision
by rluk » Fri Jul 24, 2020 1:54 am
by MarkRussell » Fri Jul 24, 2020 11:46 am
by rluk » Fri Jul 24, 2020 12:02 pm
by MarkRussell » Fri Jul 24, 2020 12:38 pm
by Captain Sensible » Fri Jul 24, 2020 2:16 pm
MarkRussell wrote:Hi,
You can do this without using an Excel trigger.
You can right click the "Close all positions" button above the Grid and put the number of seconds before the off that you want to level up.
A countdown clock will display below the button to show when the level profit bet(s) will be submitted.
You must keep the market open until the Close all positions countdown has reached zero and the bets submitted.
Regards,
Mark
by brumbie » Sat Jul 25, 2020 3:25 am
Sub CLOSEC()
'
' CLOSEC Macro
'
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
Dim rng As Range
Set rng = Range("Q5:Q55")
rng.Formula = "=IF(RC[3]="""","" "",""CLOSEC"")"
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
End Sub
=IF(LEFT($D$2)<>"-",(HOUR($D$2)*3600)+(MINUTE($D$2)*60)+SECOND($D$2),-((HOUR(SUBSTITUTE($D$2,"-",""))*3600)+(MINUTE(SUBSTITUTE($D$2,"-",""))*60)+SECOND(SUBSTITUTE($D$2,"-",""))))
by rluk » Sat Jul 25, 2020 11:43 pm
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Columns.Count <> 16 Then Exit Sub
Application.EnableEvents = False
If Range("AD1") = "Y" Then
Refresh
Else
End If
If Range("W1") = "Y" Then
CloseAll
Else
End If
Application.EnableEvents = True
End Sub
Sub CloseAll()
Application.ScreenUpdating = False
Sheets("Market").Select
Range("Q5:Q24").Select
Selection.ClearContents
Range("T5:T24").Select
Selection.ClearContents
Range("T5").Select
ActiveCell.FormulaR1C1 = "777"
Selection.AutoFill Destination:=Range("t5:t24"), Type:=xlFillDefault
Range("Q5").Select
ActiveCell.FormulaR1C1 = "CLOSEC"
Selection.AutoFill Destination:=Range("Q5:Q24"), Type:=xlFillDefault
Range("Q5").Select
End Sub
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.