Moderator: 2020vision
by Sussexguy44 » Wed Nov 03, 2021 1:20 pm
by Captain Sensible » Wed Nov 03, 2021 9:40 pm
by Sussexguy44 » Thu Nov 04, 2021 6:37 pm
by Sussexguy44 » Fri Nov 05, 2021 11:42 am
by Captain Sensible » Fri Nov 05, 2021 12:50 pm
by Captain Sensible » Fri Nov 05, 2021 12:51 pm
by Captain Sensible » Fri Nov 05, 2021 2:11 pm
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Columns.Count <> 16 Then Exit Sub
Static MyMarket As String
Dim lastRow As Long
Application.EnableEvents = False
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
With Target.Parent
lastRow = .Range("Z" & Rows.Count).End(xlUp).Row
If .Range("A1").Value <> MyMarket Then
MyMarket = .Range("A1").Value
.Range("AA5:AA" & lastRow).Value = ""
End If
If WorksheetFunction.IsText(.Range("D2").Value) = False Or .Range("AA5").Value <> "" Then
If .Range("D2").Value <= TimeValue("00:10:00") Then
.Range("AA5:AA" & lastRow).Value = .Range("Z5:Z" & lastRow).Value
End If
End If
End With
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
by Captain Sensible » Fri Nov 05, 2021 3:00 pm
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Columns.Count <> 16 Then Exit Sub
Static MyMarket As String
Dim lastRow As Long
Application.EnableEvents = False
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
With Target.Parent
lastRow = .Range("Z" & Rows.Count).End(xlUp).Row
If .Range("A1").Value <> MyMarket Then
MyMarket = .Range("A1").Value
.Range("AA5:AA" & lastRow).ClearContents
End If
If WorksheetFunction.IsText(.Range("D2").Value) = False And (IsEmpty(Range("AA5").Value) Or WorksheetFunction.IsText(.Range("AA5").Value)) Then
If .Range("D2").Value <= TimeValue("00:10:00") Then
.Range("AA5:AA" & lastRow).Value = .Range("A5:A" & lastRow).Value
End If
End If
End With
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
by Sussexguy44 » Sat Nov 06, 2021 12:48 pm
by Sussexguy44 » Sat Nov 06, 2021 2:34 pm
by Captain Sensible » Sat Nov 06, 2021 4:31 pm
.Range("AA5:AA" & lastRow).Value = .Range("A5:A" & lastRow).Value
.Range("AA5:AA" & lastRow).Value = .Range("Z5:Z" & lastRow).Value
by Sussexguy44 » Tue Nov 09, 2021 10:16 am
by Captain Sensible » Tue Nov 09, 2021 12:02 pm
=IF(AND($D$2=TIMEVALUE("00:00:00") ,AB5>=5),"BET","DON'T BET")
If .Range("D2").Value = TimeValue("00:00:00") And .Range("AB5").Value >= 5 Then ..............
by Sussexguy44 » Tue Nov 09, 2021 6:58 pm
by Sussexguy44 » Tue Nov 09, 2021 7:01 pm
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.