Moderator: 2020vision
by AndrewP » Sat May 09, 2009 1:59 pm
by AndrewP » Thu May 28, 2009 11:12 pm
by GaryRussell » Fri May 29, 2009 7:43 am
by AndrewP » Fri May 29, 2009 2:09 pm
by alrodopial » Fri May 29, 2009 3:15 pm
by AndrewP » Sat Jun 06, 2009 8:38 pm
by alrodopial » Tue Jun 09, 2009 8:54 pm
Private Sub Worksheet_Change(ByVal Target As Range)
' Run the below code only if there is a full update from BA (16 columns chance)
If Target.Columns.Count = 16 Then
Application.EnableEvents = False
' HT = extract the name of home team
HT = Trim(Left(Range("A1"), InStr(Range("A1"), "v") - 1))
' If there is a new game (home team diff than previous games' home team) clear old data
If HT <> Range("C21").Value Then Range("A21:IV65536").ClearContents
'Find last row with data at column A
LR = Range("A65536").End(xlUp).Row
' AT = extract the name of away team
AT = Trim(Mid(Range("A1"), InStr(Range("A1"), "v") + 1, InStr(Range("A1"), "-") - InStr(Range("A1"), "v") - 1))
' ST = extract the starting time of game
ST = Trim(Mid(Range("A1"), InStr(Range("A1"), ":") - 2, 5))
' CT = place current time
CT = Time
' AM_H = Amount matched for home win
' AM_A = Amount matched for away win
' AM_D = Amount matched for draw
If LR = 20 Then
""
AM_A = ""
AM_D = ""
Else
AM_H = Range("P5").Value - Range("R" & LR).Value
AM_A = Range("P6").Value - Range("AJ" & LR).Value
AM_D = Range("P7").Value - Range("BB" & LR).Value
End If
' Create an array (range) with the below info and copy it at range A?:S?
MyArray = Array(CT, ST, HT, "", Range("B5"), Range("C5"), Range("D5"), Range("E5"), Range("F5"), Range("G5"), Range("H5"), Range("I5"), Range("J5"), Range("K5"), Range("L5"), Range("M5"), Range("O5"), Range("P5"), AM_H)
Range("A" & (LR + 1) & ":S" & (LR + 1)).Value = MyArray
' Create an array (range) with the below info and copy it at range U?:AK?
MyArray = Array(AT, "", Range("B6"), Range("C6"), Range("D6"), Range("E6"), Range("F6"), Range("G6"), Range("H6"), Range("I6"), Range("J6"), Range("K6"), Range("L6"), Range("M6"), Range("O6"), Range("P6"), AM_A)
Range("U" & (LR + 1) & ":AK" & (LR + 1)).Value = MyArray
' Create an array (range) with the below info and copy it at range AM?:BC?
MyArray = Array("Draw", "", Range("B7"), Range("C7"), Range("D7"), Range("E7"), Range("F7"), Range("G7"), Range("H7"), Range("I7"), Range("J7"), Range("K7"), Range("L7"), Range("M7"), Range("O7"), Range("P7"), AM_D)
Range("AM" & (LR + 1) & ":BC" & (LR + 1)).Value = MyArray
Application.EnableEvents = True
End If
End Sub
by AndrewP » Wed Jun 10, 2009 12:36 pm
by thunderfoot » Mon Jul 06, 2009 8:13 pm
GaryRussell wrote:I don't think there is a problem recording data for personal use, but we are certainly not allowed to provide software to allow you to do this unfortunately.
by GaryRussell » Mon Jul 06, 2009 8:16 pm
thunderfoot wrote:GaryRussell wrote:I don't think there is a problem recording data for personal use, but we are certainly not allowed to provide software to allow you to do this unfortunately.
Ummmm!! I use BA/BT and EXCEL to record data, so is using BA/BT as a tool linked to EXCEL breaking the rules!!??
by Lynx pardina » Fri Jul 31, 2009 3:23 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.