vba timer

**Undo** · 08-18-2019, 08:50 AM

Hello

i user this code for timer in my excel

'                                                TIMER CODE START
Option Explicit

Dim StopTimer           As Boolean
Dim SchdTime            As Date
Dim Etime               As Date
Const OneSec            As Date = 1 / 86400#

Sub ResetBtn_Click()
    StopTimer = True
    Etime = 0
    [Time].Value = "00:00:00"
End Sub
Sub StartBtn_Click()
   StopTimer = False
   SchdTime = Now()
 On Error Resume Next
   [Time].Value = Format(Etime, "hh:mm:ss")
   Application.OnTime SchdTime + OneSec, "NextTick"
End Sub

Sub StopBtn_Click()
    StopTimer = True
    Beep
End Sub

Sub NextTick()

   If StopTimer Then
      'Don't reschedule update
   Else
   On Error Resume Next
      [Time].Value = Format(Etime, "hh:mm:ss")
      SchdTime = SchdTime + OneSec
      Application.OnTime SchdTime, "NextTick"
      Etime = Etime + OneSec
   End If
   
    
End Sub

'                                                 TIMER CODE END

and StartBtn_Click in workbook open sub

if i save and close the file, when i open it the timer start from zero
how can i keep it continue ?

thanks

**MarvinP** · 08-18-2019, 09:40 AM

Hi e97h,

You could write a time to a cell in one of your worksheets using an On_Close event. Then when you open your workbook you could read that number to start the timer again from a non zero time.

If you don't want to use a cell in the workbook, how about using the Tag property in one of your objects and store the closing time there and read it on open?

Just some ideas...

Marv