Snasui Excel Forum

Code: Select all

Sub Button1_Click_Start()

End Sub
Sub Timer()
    CountDown = Now + TimeValue("00:00:01")
    Application.OnTime CountDown, "Reset"
End Sub
Sub Reset()
    Dim count As Range
    Set count = Worksheets("Sheet1").[A1]
    On Error Resume Next
    count.Value = count.Value - TimeValue("0:00:01")
        If count <= 0 Then
                 Worksheets("Sheet2").Select
            Exit Sub
        End If
    Call Timer
End Sub
Sub StartTime()
    Worksheets("Sheet1").[A1].Value = TimeValue("00:00:05")
    Worksheets("Sheet1").[A1].NumberFormat = "hh:mm:ss"
    Call Timer
End Sub

Code: Select all

Sub Timer()
    CountDown = Now + TimeValue("00:00:01")
    Application.OnTime CountDown, "Reset"
End Sub

Sub Reset()
Dim count As Range
Set count = Worksheets("Sheet1").[A1]
On Error Resume Next
count.Value = count.Value - TimeValue("0:00:01")
    If count <= 0 Then
             Worksheets("Sheet2").Select
        Exit Sub
    End If
Call Timer
End Sub

Sub DisableTimer()
On Error Resume Next
    Application.OnTime EarliestTime:=CountDown, Procedure:="Reset", Schedule:=False
End Sub

Sub StartTime()
Worksheets("Sheet1").[A1].Value = TimeValue("00:05:00")
Worksheets("Sheet1").[A1].NumberFormat = "h: mm:ss"
Call Timer
End Sub

Sub Timer1()
    CountDown = Now + TimeValue("00:00:01")
    Application.OnTime CountDown, "Reset1"
End Sub

Sub Reset1()
Dim count As Range
Set count = Worksheets("Sheet3").[A1]
On Error Resume Next
count.Value = count.Value - TimeValue("0:00:01")
    If count <= 0 Then
             Worksheets("Sheet2").Select
        Exit Sub
    End If
Call Timer1
End Sub

Sub StartTime1()
Worksheets("Sheet3").[A1].Value = TimeValue("00:05:00")
Worksheets("Sheet3").[A1].NumberFormat = "h: mm:ss"
Call Timer1
End Sub

Code: Select all

Sub Timer()
    CountDown = Now + TimeValue("00:00:01")
    Application.OnTime CountDown, "Reset"
End Sub
Sub Reset()
    Dim count As Range
    Set count = Worksheets("Sheet3").[A1]
    On Error Resume Next
    count.Value = count.Value - TimeValue("0:00:01")
        If count <= 0 Then
                 Worksheets("Sheet2").Select
            Exit Sub
        End If
    Call Timer
End Sub
Sub DisableTimer()
    On Error Resume Next
        Application.OnTime EarliestTime:=CountDown, Procedure:="Reset", Schedule:=False
End Sub
Sub StartTime()
    Worksheets("Sheet3").[A1].Value = TimeValue("00:05:00")
    Worksheets("Sheet3").[A1].NumberFormat = "h:mm:ss"
    Call Timer
End Sub