Need help with Application.Ontime (Cant get it to Stop)

[JumboCactuar]

Hi,

i have the following

StartTimer is actually called from button within a Userform if it matters

Public Sub StartTimer()
    Loader
     RunWhen = Now + TimeValue("00:01:00")
     Application.OnTime EarliestTime:=RunWhen, Procedure:="StartTimer", Schedule:=True
     
     Debug.Print "STARTED"
End Sub

Loader is the sub with all the code that runs and updates captions etc... on the Userform

Below is also assigned to a button in userform but doesnt stop anything

Public Sub StopTimer()

  On Error Resume Next
  Application.OnTime EarliestTime:=RunWhen, Procedure:="StartTimer", Schedule:=False
  On Error GoTo 0
  
  Debug.Print "STOPPED"
  
End Sub

appreciate any help

 

[AlphaFrog]

Declare RunWhen at the very top of the userform code module so it can be shared between procedures within the module.

Dim RunWhen  As Date

 

[JumboCactuar]

Declare RunWhen at the very top of the userform code module so it can be shared between procedures within the module.

Dim RunWhen  As Date

Tried but after stopping it still starts up again a minute later

 

[JumboCactuar]

Bump

 

[Domenic]

If you followed the suggestion made by @AlphaFrog, it should work. Maybe it's a previously set routine? In any case, first quit Excel completely. Then the code should be as follows...

Dim RunWhen  As Date

Public Sub StartTimer()
    Loader
     RunWhen = Now + TimeValue("00:01:00")
     Application.OnTime EarliestTime:=RunWhen, Procedure:="StartTimer", Schedule:=True
   
     Debug.Print "STARTED"
End Sub

Public Sub StopTimer()

  On Error Resume Next
  Application.OnTime EarliestTime:=RunWhen, Procedure:="StartTimer", Schedule:=False
  On Error GoTo 0

  Debug.Print "STOPPED"

End Sub

Does this help?

 

[JumboCactuar]

If you followed the suggestion made by @AlphaFrog, it should work. Maybe it's a previously set routine? In any case, first quit Excel completely. Then the code should be as follows...

Dim RunWhen  As Date

Public Sub StartTimer()
    Loader
     RunWhen = Now + TimeValue("00:01:00")
     Application.OnTime EarliestTime:=RunWhen, Procedure:="StartTimer", Schedule:=True
  
     Debug.Print "STARTED"
End Sub

Public Sub StopTimer()

  On Error Resume Next
  Application.OnTime EarliestTime:=RunWhen, Procedure:="StartTimer", Schedule:=False
  On Error GoTo 0

  Debug.Print "STOPPED"

End Sub

Does this help?

Yes this is working thankyou

 

[Domenic]

You're very welcome, cheers!