Timer

[Solstice]

I am trying to make a timer. There is a type mismatch error.

Option Explicit
Public TimerValue As Variant
Public ticker As Variant
Sub Start_Click()
    ticker = Now
    MacroRun
End Sub
Sub MacroRun()
    Application.DisplayAlerts = False
    TimerValue = Timer
    Do Until Timer > TimerValue + 60
      
    Loop
    Tick
    Application.DisplayAlerts = True
End Sub
Sub Tick()
    If (DateValue("03/12/2022") + TimeValue(Cells(3, 3).Value & ":" & Cells(3, 4).Value & ":" & "0")) > Now() Then 'error type mismatch
        MacroRun
    Else
        Alarm
        Exit Sub
    End If
End Sub
Sub Alarm()
    Cells(1, 2) = "Alarm
End Sub

 

[Solstice]

I am trying to make a timer. The type mismatch error is gone but it still has an Object error .

Option Explicit
Public TimerValue As Variant
Public ticker As Variant
Sub Start_Click()
    ticker = Now
    MacroRun
End Sub
Sub MacroRun()
    Application.DisplayAlerts = False
    TimerValue = Timer
    Do Until Timer > TimerValue + 60
     
    Loop
    Tick
    Application.DisplayAlerts = True
End Sub
Sub Tick()
    If (DateValue("03/12/2022").Value + TimeValue(Cells(3, 3).Value & ":" & Cells(3, 4).Value & ":" & "0")) > Now() Then 'object error
        MacroRun
    Else
        Alarm
        Exit Sub
    End If
End Sub
Sub Alarm()
    Cells(1, 2) = "Alarm
End Sub

 

[Solstice]

Not functioning the way I want. It gives a "Object error"

If (DateValue("03/12/2022").Value + TimeValue(Cells(3, 4).Value & ":" & Cells(4, 4).Value & ":" & "0").Value) > Now.Value Then

 

[Phuoc]

If DateValue("03/12/2022") + TimeSerial(Cells(3, 4).Value, Cells(4, 4).Value, 0) > Now Then

 

[Solstice]

still type mismatch error

 

[GWteB]

@Solstice, your syntax isn't correct, since VBA's TimeValue, DateValue and Now functions don't have a member called Value.

If (DateValue("03/12/2022").Value + TimeValue(Cells(3, 4).Value & ":" & Cells(4, 4).Value & ":" & "0").Value) > Now.Value Then