Moderator: 2020vision
by Captain Sensible » Sun Mar 11, 2007 10:53 pm
by Mitch » Mon Mar 12, 2007 1:12 am
by Captain Sensible » Mon Mar 12, 2007 10:29 am
by Ian » Mon Mar 12, 2007 11:12 am
by Mitch » Mon Mar 12, 2007 11:54 am
Ian wrote:Isn't one of the problems that BA writes the data a line at a time to Excel ? So the worksheet change event can be run a number of times on each refresh.
by Captain Sensible » Mon Mar 12, 2007 12:01 pm
by Mitch » Mon Mar 12, 2007 12:28 pm
Range("H4:H36").Copy Destination:=Range("AA4")
lastrow = Target.Rows.Count
Range("H4:H" & lastrow).Copy Destination:=Range("AA4")
by Captain Sensible » Mon Mar 12, 2007 1:25 pm
by KevinTHFC » Mon Mar 12, 2007 1:36 pm
by KevinTHFC » Mon Mar 12, 2007 1:39 pm
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Columns.Count <> 16 Then Exit Sub
Application.EnableEvents = False
If Cells(2, 5) = "Not In Play" Then
If Cells(2, 6) <> "Suspended" Then
For i = 5 To 10
Cells(i + 20,8) = Cells(i,8)
Next i
Else
Cells(41,8) = "Done"
End If
Application.EnableEvents = True
Else
Application.EnableEvents = True
End If
End Sub
by Captain Sensible » Mon Mar 12, 2007 1:59 pm
by Mitch » Mon Mar 12, 2007 2:06 pm
Captain Sensible wrote:Thanks mitch I had a bit of success with
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E2")) Is Nothing Then
Range("H4:H50").Copy Destination:=Range("AA4")
End If
End Sub
Sadly BA has gone on the blink with excel logging just as I'm trying to check things - Can i set the range to act if E" = Not In Play and F2="" ? by amending 'If Not Intersect(Target, Range("E2")) Is Nothing Then' somehow. At the moment it just copies everytime regardless of if the cell has changed value as I suppose each refresh kicks it off. That'd mean it'll also kick off when it goes in play and just log the in play odds
I'm afraid I have no clue what the code is dong as it's just copied from websites
I took out the lastrow = Target.Rows.Count for now as BA is being a pain t
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Columns.Count <> 16 Then Exit Sub
If Range("E2") = "In Play" Or Range("F2") = "Suspended" Then Exit Sub
Application.EnableEvents = False
lastrow = Target.Rows.Count
Range("H2:H" & lastrow).Copy Destination:=Range("AA4")
Application.EnableEvents = True
End Sub
by Captain Sensible » Mon Mar 12, 2007 2:27 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.