VBA help Needed

[Shaun]

Hi All,

I am using this code to clear the bet ref cells when i manually change races and it works great.

But i also need it to clear the cells if the market is suspended early, what happens is some times 5 minutes before the off the market will suspend for a few seconds then return to normal betting but it leaves a market suspended in the bet ref and if i don't see it and try to place a bet it won't work so auto betting is useless right now.

All i need added to the macro is if the market is suspended and the time for the race has not reached zero that it will clear the cells.

Code: Select all

Private Sub Worksheet_Calculate()
Static MyMarket As Variant
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
If [A1].Value = MyMarket Then
GoTo Xit
Else
MyMarket = [A1].Value
Range("T5:X50").Value = ""
Range("A5:P50").Value = ""
End If
Xit:
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
End Sub



[Shaun]

Still needing some help here thanks.

[alrodopial]

Try this - dont know if the systax is correct:

Code: Select all

Private Sub Worksheet_Calculate()
Static MyMarket As Variant
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
If [A1].Value = MyMarket Then
    If [F2].Value = "Suspended" And Left(D2, 1) = "-" Then
        Range("T5:X50").Value = ""
        Range("A5:P50").Value = ""
    Else
        GoTo Xit
    End If
GoTo Xit
Else
MyMarket = [A1].Value
Range("T5:X50").Value = ""
Range("A5:P50").Value = ""
End If
Xit:
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
End Sub

Be carrefull - how many times it will fire the same bet - if so-

[Shaun]

Thanks will give it a try, it shouldn't fire the bet as there is nothing in the trigger just the bet ref, but will check it to make sure.

[alrodopial]

Your criteria are met, a bet is placed.
The market 5 mins before the off goes suspended, the above code clears the bet reff but your criteria still are met so another bet is placed and so on as long the market remains suspended.