hello,
thank you for getting back to me so quickly
below is the code I have now for each timer:
Private bStoppedB As Boolean
Public Sub StartItB()
bStoppedB = False
Dim count As Long
Dim hr As Variant
Dim m As Variant
Dim s As Variant
Dim time As String
Do While Not bStoppedB
DoEvents
count = count + 1
With Worksheets("Pit Stops").Range("B2")
s = Int(count / 540)
If s = 60 Then
m = m + 1
s = 0
count = 0
End If
If m = 60 Then
hr = hr + 1
m = 0
End If
time = hr & ":" & m & ":" & s
.Value = time
End With
Loop
End Sub
Public Sub StopItB()
bStoppedB = True
Range("B2").Value = ""
End Sub
P.S: The /540 is to get the time in seconds, otherwise it is sooo quick!! (I know it is not the perfect way and it is not yet a real second but I thought I'd have it running and then I would tune it
I really need to be able to see live how long it has been for each car since the last pit stop. Just after the start of the race it is the same for all but then all the cars don't stop at the same moment. So I need to be able to start and stop each timer separately (my start and stop buttons for each)
I will test your code but I feel it does not give me the time live does it?
Bookmarks