Timer but with a defined start and stop times....... no buttons.

[Krays23]

Hi There,

Im tying to have a live timer on my Excel sheet count in seconds between the time of 0730 and 1630. Then reset at 0730 the next and start counting the seconds again.

I see many posts on how to do it with a start, stop button but cannot figure out a way o make it start stop and reset at defined times.

Hoping one of great team here can help me.

Many thanks

Dan

 

[offthelip]

you can use the same code as doing it with a start stop button, but to get it started put this code in the Open workbook event:

Private Sub Workbook_Open()Call TimerMsg
End Sub

And put this code in a normal module

Sub TimerMsg()

Dim startTime As Date
startTime = TimeValue("07:30:00")
dd = DateDiff("D", startTime, Now())
startTime = startTime + dd
'Activating the timer and running the MsgProcedure at the end of the timer
Application.OnTime startTime, "MsgProcedure"


End Sub


Sub MsgProcedure()
'Sample procedure created for timer example


MsgBox "Start your code to start the 1 second timer here"


End Sub