Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Can't Stop the clock
I have a clock on a userform that shows the time since the race started (now
- start time). The clock works fine but I would like to be able to stop the clock. This is the code that runs the clock In the userform1 section Private Sub UserForm_Activate() RClock1 End Sub And in the module1 section Sub Main() Load UserForm1 UserForm1.Show End Sub Sub RClock1() Start = Sheets("Timing Sheet").Range("B6") Watch = Now - Start UserForm1.RaceClock1.Text = Format(Watch, "hh:mm:ss") NextTick = Now + TimeValue("00:00:01") Application.OnTime NextTick, "RClock1" End Sub I tried to write code to stop the clock from a command button (Exit1). This is it. In userform1 section Private Sub Exit1_Click() Call StopC End Sub In the module1 section Sub StopC() On Error Resume Next Application.OnTime NextTick, "RClock1", , False End Sub Does not work. I'm assuming the fact that the clock function is working with spreadsheets is causing me hassles. Anybody got a better way. Thanks. |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Can't Stop the clock
I don't see where you declared NextTick.
This goes at the top of your Module1 (not within any subroutine/function): Public NextTick as Date NDBC wrote: I have a clock on a userform that shows the time since the race started (now - start time). The clock works fine but I would like to be able to stop the clock. This is the code that runs the clock In the userform1 section Private Sub UserForm_Activate() RClock1 End Sub And in the module1 section Sub Main() Load UserForm1 UserForm1.Show End Sub Sub RClock1() Start = Sheets("Timing Sheet").Range("B6") Watch = Now - Start UserForm1.RaceClock1.Text = Format(Watch, "hh:mm:ss") NextTick = Now + TimeValue("00:00:01") Application.OnTime NextTick, "RClock1" End Sub I tried to write code to stop the clock from a command button (Exit1). This is it. In userform1 section Private Sub Exit1_Click() Call StopC End Sub In the module1 section Sub StopC() On Error Resume Next Application.OnTime NextTick, "RClock1", , False End Sub Does not work. I'm assuming the fact that the clock function is working with spreadsheets is causing me hassles. Anybody got a better way. Thanks. -- Dave Peterson |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Can't Stop the clock
Thank you heaps. I thought I must have been close.
"Dave Peterson" wrote: I don't see where you declared NextTick. This goes at the top of your Module1 (not within any subroutine/function): Public NextTick as Date NDBC wrote: I have a clock on a userform that shows the time since the race started (now - start time). The clock works fine but I would like to be able to stop the clock. This is the code that runs the clock In the userform1 section Private Sub UserForm_Activate() RClock1 End Sub And in the module1 section Sub Main() Load UserForm1 UserForm1.Show End Sub Sub RClock1() Start = Sheets("Timing Sheet").Range("B6") Watch = Now - Start UserForm1.RaceClock1.Text = Format(Watch, "hh:mm:ss") NextTick = Now + TimeValue("00:00:01") Application.OnTime NextTick, "RClock1" End Sub I tried to write code to stop the clock from a command button (Exit1). This is it. In userform1 section Private Sub Exit1_Click() Call StopC End Sub In the module1 section Sub StopC() On Error Resume Next Application.OnTime NextTick, "RClock1", , False End Sub Does not work. I'm assuming the fact that the clock function is working with spreadsheets is causing me hassles. Anybody got a better way. Thanks. -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Incremental time values based upon clock in and clock out times | Excel Discussion (Misc queries) | |||
How do I calculate time in excel (clock in and clock out | Excel Discussion (Misc queries) | |||
Change EXCEL Clock to Standard Clock or Military Time | Excel Worksheet Functions | |||
can excel be a time clock or stop watch? | New Users to Excel | |||
Start Clock/Stop Clock | Excel Discussion (Misc queries) |