Snasui Excel Forum

Code: Select all

Sub StartTimer()
Application.OnTime Now + TimeValue("00:00:01"), "nexttick"
End Sub
Sub nexttick()
If Sheet1.Range("AJ5") = 0 Then Exit Sub
Sheet1.Range("AJ5").Value = Sheet1.Range("AJ5").Value = TimeValue("00:00:01")
StartTimer
End Sub
Sub stoptimer()
On Error Resume Next
Application.OnTime Now + TimeValue("00:00:01"), "nexttick", , False
End Sub

Code: Select all

Sub StartTimer()
    Application.OnTime Now + TimeValue("00:00:01"), "nexttick"
End Sub

Sub nexttick()
    If Sheet1.Range("AJ2") = 0 Then Exit Sub
        Sheet1.Range("AJ2").Value = Sheet1.Range("AJ2").Value - TimeValue("00:00:01")
    StartTimer
End Sub

Sub stoptimer()
    On Error Resume Next
    Application.OnTime Now + TimeValue("00:00:01"), "nexttick", , False
End Sub