Hi, just looking for a specific countdown timer. Here is the jist of it.
When a userform commandbutton (punchin) is clicked it automatically starts a countdown (time to be adjusted when needed e.g. 5 mins). If the user does not click another userform commandbutton (punchout) then the speech or .wav file will start to warn user that they have not clicked the command button (hopefully repeated after 2 mins - not that important if it complictes things).
If they have clicked the command button in time then the coundown timer stops.
I was using this as part of a code.
Sub sheet_calc()
dt = 1 / 24 / 60 / 60
t = Range("d27").Value
If t > -dt Then
Application.OnTime Now + TimeValue("00:00:01"), "sheet_calc"
If t < dt Then Application.Speech.Speak "Warning. warning. warning. warning. warning"
ActiveSheet.Calculate
End If
End Sub
Any pointers?
Thanks, Yorkie
When a userform commandbutton (punchin) is clicked it automatically starts a countdown (time to be adjusted when needed e.g. 5 mins). If the user does not click another userform commandbutton (punchout) then the speech or .wav file will start to warn user that they have not clicked the command button (hopefully repeated after 2 mins - not that important if it complictes things).
If they have clicked the command button in time then the coundown timer stops.
I was using this as part of a code.
Sub sheet_calc()
dt = 1 / 24 / 60 / 60
t = Range("d27").Value
If t > -dt Then
Application.OnTime Now + TimeValue("00:00:01"), "sheet_calc"
If t < dt Then Application.Speech.Speak "Warning. warning. warning. warning. warning"
ActiveSheet.Calculate
End If
End Sub
Any pointers?
Thanks, Yorkie
