This appears to skips all markets even if [I3] is a "Y" !
- Code: Select all
If Range("I3").Value = "Y" Then
GoTo xitnotinplay
Else
[q2] = -1
xitnotinplay:
End If
Any help gratefully appreciated.
mike..
Moderator: 2020vision
by mikey » Tue Aug 30, 2016 11:59 pm
If Range("I3").Value = "Y" Then
GoTo xitnotinplay
Else
[q2] = -1
xitnotinplay:
End If
by bolpx001 » Wed Aug 31, 2016 11:08 am
by mikey » Wed Aug 31, 2016 12:24 pm
If Target.Columns.Count = 16 Then
Application.EnableEvents = False
Static InPlay As Variant
Static ConMet As Variant
Static MyMarket As Variant
Static Recorded As Variant
Dim counter As Currency
'Clear cells on market start
If [A1].Value = MyMarket Then
GoTo Xitmymarket
Else
MyMarket = [A1].Value
[q2] = ""
[CC4] = False ' Recorded value reset to false
[CC17] = False ' set recorded sp to false
[CI5:CI30].Value = ""
Xitmymarket:
End If
' If Range("I3").Value = "Y" Then
' GoTo xitnotinplay
' Else
'[q2] = -1
'xitnotinplay:
'End If
If [e2] = "Not In Play" And [F2] = "Closed" Then
[q2] = -1
End If
If [cc16] = False Then ' if not inplay then skip this
GoTo xitinplay
Else ' when inplay copy the odds
[CI5:CI30].Value = [F5:F30].Value
[CC17] = True ' set the recorded trigger to true
[CC4] = False
xitinplay:
End If
If [CC3].Value = True Then
Call PandL
'Set result saved to true
[CC4].Value = True
'set win/lost for next race
[cc26].Value = [cc27].Value
[q2] = -1
End If
Application.EnableEvents = True
End If
End Sub
by Captain Sensible » Wed Aug 31, 2016 2:23 pm
If Range("I3").Value = "Y" Then
GoTo xitnotinplay
Else
[q2] = -1
xitnotinplay:
End If
If Range("I3").Value = "Y" Then
Else
[q2] = -1
End If
If Range("I3").Value = "Y" Then
Else
[q2] = -1
GoTo xitnotinplay
End If
## rest of your coding with xitnotinplay: at the end so effectively the only code active is entering -1 in Q2
xitnotinplay:
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
End Sub
by mikey » Wed Aug 31, 2016 3:38 pm
by Captain Sensible » Wed Aug 31, 2016 4:58 pm
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
Exit Sub
Switch_Market:
Worksheets("Sheet1").Range("Q2").Value = -1
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
End Sub
by bolpx001 » Wed Aug 31, 2016 5:30 pm
by Captain Sensible » Wed Aug 31, 2016 6:11 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.