EXCEL timer for horse racing in-play

[excelbet]

Hi all,
I need a timer in excel to use with triggered bet at a particular time of race in-running. Is there any way I can modify the countdown timer D2 to show the elapse time of race from the start rather from the scheduled off ?
By the way, I've already converted D2 timer to show time in seconds in a different cell.

Any help would be much appreciated.

Excelbet

[lindemann]

Excel,

Have a look at this thread:

http://www.gruss-software.co.uk/forum/v ... php?t=7455

[excelbet]

Hi Lindemann,
Thanks for your quick response. I'll try it out over the weekend.
Sorry I missed that link earlier while browsing.

Excelbet

[brumbie]

I don't know if its of any use to you but I made a race timer excel sheet around february based on garys macro.I think its still up at:

http://uploading.com/files/get/99558aca/RACE_TIMER.xls

some of the times for the races are out but it may be of some use.

[excelbet]

Hi Brumbie & Lindemann,
Tested both methods over the weekend and the first one suits me best as I just need a simple timer from start of race but thank you Brumbie for your suggestion.
The VBA code I like works well in a separate excel sheet but how do I get it to work in the BA linked w/sheet as I have other VBA code running there also ?
Any further advice would be appreciated.

Excelbet

[xraymitch]

Excel,

Have a look at this thread:

http://www.gruss-software.co.uk/forum/v ... php?t=7455

Thanks for that Gary - now not freezing ! . Strange that my amended version works fine on the horses though.

Thanks also go out to lindemann I am using his/your code with my minor change in the following markets:

Half Time Score - Sheet 1
Half Time / Full time - Sheet 2

I am hoping I can use those markets to tell when HT starts and second half begins. Should know in about 2 hours. Here is the code:

Sheet1:

Dim timeInPlay As Date
Dim turnedInPlay As Boolean

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Columns.Count = 16 Then
If Range("F2").Value = "Closed" Then
If Not turnedInPlay Then
turnedInPlay = True
timeInPlay = Now
End If
Else
turnedInPlay = False
End If
If turnedInPlay Then Range("T1").Value = DateDiff("s", timeInPlay, Now) Else Range("T1").Value = 0
End If
End Sub

Sheet2:

Dim timeInPlay As Date
Dim turnedInPlay As Boolean

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Columns.Count = 16 Then
If Range("E2").Value = "InPlay" And Range("U1") = "Closed" Then
If Not turnedInPlay Then
turnedInPlay = True
timeInPlay = Now
End If
Else
turnedInPlay = False
End If
If turnedInPlay Then Range("T1").Value = DateDiff("s", timeInPlay, Now) Else Range("T1").Value = -1
End If
End Sub

[xraymitch]

Hi folks,

Sorry I got confused reply was meant to go here. I hope

http://www.gruss-software.co.uk/forum/p ... ile&u=1306

[xraymitch]

Sorry still confused.

How do I refer to specific post in a thread

Can't believe I am being so dumb !!