Moderator: 2020vision
by Fixador » Fri Oct 16, 2015 4:20 pm
by Captain Sensible » Fri Oct 16, 2015 7:51 pm
Private Sub Worksheet_Change(ByVal Target As Range)
Static MyMarket As Variant
If Target.Columns.Count <> 16 Then Exit Sub
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
On Error GoTo ErrorHandler
If Range("E2").Value = "In Play" Then
If Range("F2").Value <> "Suspended" Then Range("AA1").Value = ""
If Range("F2").Value = "Suspended" And Range("AA1").Value = "" Then Range("AA1").Value = Range("C2").Value
If DateDiff("s", Range("AA1").Value, Range("C2").Value) > 15 And Range("AB1").Value = "" Then
Dim Win_odds As Currency
Dim Winner_name As Variant
Win_odds = 1000
DataArray = Range("A5:O60").Value
For i = LBound(DataArray, 1) To UBound(DataArray, 1)
If DataArray(i, 15) >= 1.01 And DataArray(i, 15) < Win_odds Then
Winner_name = DataArray(i, 1)
Win_odds = DataArray(i, 15)
End If
Next i
Range("AB1").Value = Winner_name
End If
End If
ErrorHandler:
If Range("E2").Value <> "In Play" Then Range("AA1:AB1").Value = ""
Xit:
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
End Sub
by Captain Sensible » Fri Oct 16, 2015 7:55 pm
Private Sub Worksheet_Change(ByVal Target As Range)
Static MyMarket As Variant
If Target.Columns.Count <> 16 Then Exit Sub
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
On Error GoTo ErrorHandler
If Range("E2").Value = "In Play" Then
If Range("F2").Value <> "Suspended" Then Range("AA1").Value = ""
If Range("F2").Value = "Suspended" And Range("AA1").Value = "" Then Range("AA1").Value = Range("C2").Value
If DateDiff("s", Range("AA1").Value, Range("C2").Value) > 15 And Range("AB1").Value = "" And Range("AA1").Value <> "" Then
Dim Win_odds As Currency
Dim Winner_name As Variant
Win_odds = 1000
DataArray = Range("A5:O60").Value
For i = LBound(DataArray, 1) To UBound(DataArray, 1)
If DataArray(i, 15) >= 1.01 And DataArray(i, 15) < Win_odds Then
Winner_name = DataArray(i, 1)
Win_odds = DataArray(i, 15)
End If
Next i
Range("AB1").Value = Winner_name
End If
End If
ErrorHandler:
If Range("E2").Value <> "In Play" Then Range("AA1:AB1").Value = ""
Xit:
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
End Sub
by Fixador » Fri Oct 16, 2015 10:12 pm
by Fixador » Fri Oct 16, 2015 10:19 pm
If DataArray(i, 15) >= 1.01 And DataArray(i, 15) < Win_odds Then
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.