Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Cancelling Application.OnTime - error message
Hi,
I need to run a process repeatively, but I need to be able to stop it too or change the timing , but keep getting the following error when trying to stop the process " Run-Time error '1004': Method 'ONTIME' of Object 'Application' Failed" Any idea why, or how I should do it instead. Many thanks Sub RunMacro() Application.OnTime Now + TimeValue("00:00:05"), "OnTimeMacro" End Sub Sub OntimeMacro() MsgBox "hello" RunMacro End Sub Sub byebye() Application.OnTime EarliestTime:=TimeValue("00:00:05"), Procedu="my_Procedure", Schedule:=False ' this is where I keep getting the error? MsgBox "Bye Bye" End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Cancelling Application.OnTime - error message
What you need to do is save the scheduled time in a public variable, and use
that when stopping it. Public nTime as Double Sub RunMacro() nTime = Now + TimeValue("00:00:05") Application.OnTime nTime, "OnTimeMacro" End Sub Sub OntimeMacro() MsgBox "hello" RunMacro End Sub Sub byebye() Application.OnTime EarliestTime:=nTime, Procedu="my_Procedure", Schedule:=False MsgBox "Bye Bye" End Sub -- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) "Dan" wrote in message ... Hi, I need to run a process repeatively, but I need to be able to stop it too or change the timing , but keep getting the following error when trying to stop the process " Run-Time error '1004': Method 'ONTIME' of Object 'Application' Failed" Any idea why, or how I should do it instead. Many thanks Sub RunMacro() Application.OnTime Now + TimeValue("00:00:05"), "OnTimeMacro" End Sub Sub OntimeMacro() MsgBox "hello" RunMacro End Sub Sub byebye() Application.OnTime EarliestTime:=TimeValue("00:00:05"), Procedu="my_Procedure", Schedule:=False ' this is where I keep getting the error? MsgBox "Bye Bye" End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Cancelling Application.OnTime - error message
Thank you very much
"Bob Phillips" wrote: What you need to do is save the scheduled time in a public variable, and use that when stopping it. Public nTime as Double Sub RunMacro() nTime = Now + TimeValue("00:00:05") Application.OnTime nTime, "OnTimeMacro" End Sub Sub OntimeMacro() MsgBox "hello" RunMacro End Sub Sub byebye() Application.OnTime EarliestTime:=nTime, Procedu="my_Procedure", Schedule:=False MsgBox "Bye Bye" End Sub -- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) "Dan" wrote in message ... Hi, I need to run a process repeatively, but I need to be able to stop it too or change the timing , but keep getting the following error when trying to stop the process " Run-Time error '1004': Method 'ONTIME' of Object 'Application' Failed" Any idea why, or how I should do it instead. Many thanks Sub RunMacro() Application.OnTime Now + TimeValue("00:00:05"), "OnTimeMacro" End Sub Sub OntimeMacro() MsgBox "hello" RunMacro End Sub Sub byebye() Application.OnTime EarliestTime:=TimeValue("00:00:05"), Procedu="my_Procedure", Schedule:=False ' this is where I keep getting the error? MsgBox "Bye Bye" End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Cancelling Application.OnTime | Excel Programming | |||
Windows application error message | Excel Discussion (Misc queries) | |||
Help with Application.OnTime | Excel Programming | |||
Error Message: "xis is not a valid Win32 application" | Excel Discussion (Misc queries) | |||
Application.OnTIme | Excel Programming |