Moderator: 2020vision
by billhiggs » Wed Apr 21, 2010 12:55 pm
by GaryRussell » Wed Apr 21, 2010 2:39 pm
by Lewis » Thu Apr 22, 2010 5:03 pm
by GaryRussell » Thu Apr 22, 2010 5:25 pm
Lewis wrote:Hi, seems I have been making a step can you confirm this is the correct procedure to cancel all unmatched bets on a selection.
My routine clears the bet ref etc.. 5 seconds after placement so I will proceed on the basis that Bet ref is empty.
I must write something into 'betref' [although it does not matter what]
Then trigger 'CANCEL-ALL'?
by zapbrann » Thu Aug 26, 2010 10:38 pm
by zapbrann » Fri Aug 27, 2010 9:11 am
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Look for changes in a range of cells
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
'Turn off ALL events so code doesn't loop.
Application.EnableEvents = False
'Autofill the 'BET Ref' column based on the number of rows used in horse column
Selection.AutoFill Destination:=Range("T1:T" & Range("A" & Rows.Count).End(xlUp).Row)
'Turn events back on
Application.EnableEvents = True
'Allow run time errors again
On Error GoTo 0
End If
End Sub
by GaryRussell » Fri Aug 27, 2010 9:28 am
zapbrann wrote:Hi,
I have searched the forum and although it's mentioned a few times that you need to update the Bet Ref column with "any value" to ensure that unmatched bets are cancelled when using the CANCEL-ALL function, I was wondering if anyone could help me with how you actually do that?
I assume it must be through VBA, as the bet ref column is overwritten at each change in market.
I basically need the bet ref cell in excel (column T) to fill itself with a value when it realises that it's fellow trigger cell has turned to 'CANCEL-ALL'.
All comments and help appreciated!
Regards,
Zap.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Columns.Count = 16 Then
Application.EnableEvents = False
Dim foundCell As Range, i As Integer, lastR As Integer
Set foundCell = Range("Q4")
Do
lastR = foundCell.Row
Set foundCell = Columns(17).Find(What:="CANCEL-ALL", After:=foundCell, _
LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=True)
If foundCell Is Nothing Then Exit Do
If foundCell.Row > lastR Then
Cells(foundCell.Row, 20) = "CANCEL"
End If
Loop Until foundCell.Row <= lastR
Application.EnableEvents = True
End If
End Sub
by Optimus_Primed » Fri Aug 24, 2012 4:54 am
by Graham » Fri Aug 24, 2012 9:36 am
by spreadform » Sat Nov 10, 2012 5:37 pm
by milfor » Sat Nov 10, 2012 8:08 pm
by spreadform » Sat Nov 10, 2012 11:41 pm
by milfor » Sun Nov 11, 2012 12:36 am
by Ian » Sun Nov 11, 2012 8:35 am
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.