Call a Macro at In Play with 1 sec delay

Please post any questions regarding the program here.

Moderator: 2020vision

Call a Macro at In Play with 1 sec delay

Postby Rinconpaul » Mon Jun 19, 2017 11:11 am

This code is not working, any ideas?

Private MyMarket As String
Private InPlay As Boolean
Private RefreshCount As Long
Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False
Application.Calculation = xlCalculationManual

Select Case Target.Columns.Count
Case 16 'odds and market info update

'check to see if market changed
If Range("A1").Value = MyMarket Then
RefreshCount = RefreshCount + 1
MyMarket = Range("A1").Value
RefreshCount = 1
InPlay = False
End If

'waits 1 second, calls macro if "In Play"
If RefreshCount > 2 And Range("E2") = "In Play" And Range("F2") <> "Suspended" Then
Application.Wait Now + TimeSerial(0, 0, 1)
Call Copy_Race
End If

Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
End Select
End Sub
Posts: 47
Joined: Mon Jun 16, 2014 6:59 am
Location: Australia

Return to Help

Who is online

Users browsing this forum: No registered users and 5 guests

Sports betting software from Gruss Software

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.