Thread
:
Ontime questions
View Single Post
#
2
Posted to microsoft.public.excel.programming
Chip Pearson
external usenet poster
Posts: 7,247
Ontime questions
Bruce,
You can't run procedures in a class module, only procedures in a standard
code module. Moreover, you can't declare Public constants in a class module
(which includes regular class modules, the ThisWorkbook module, sheet code
modules, and userform code modules). Declare everything in a standard code
module.
--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com
"BruceJ" wrote in message
news:VZFnb.54052$HS4.263894@attbi_s01...
I am trying to get an ontime routine working.
Here are my questions...
Will it only run MACROS? or can it run a sub function
Where do I decalre the PUBLIC varibles
I tried to following in one of the modules (a_publicStuff):
Public NextTime As Double 'to setup 15 minute time
Public Const cRunIntervalSeconds = 900 ' 15 minutes
Public Const cRunWhat = "settimer_Click"
(if I put the above in my usercode area, the last two turn red)
and the following is in my userform code area.
Sub StartTimer()
'RunWhen = NextTime
Application.OnTime earliesttime:=NextTime, procedu=cRunWhat, _
schedule:=True
End Sub
Sub settimer_Click()
MsgBox Format(Application.RoundUp(Time * 96, 0) / 96, "hh:mm:ss")
NextTime = NextTime + cRunIntervalSeconds
MsgBox cRunIntervalSeconds
MsgBox Format(NextTime, "hh:mm:ss")
End Sub
When I run my form, I get an error saying the macro can not be found.
If I create a macro with the name, it functions, but the nexttime does not
get incremented, and cRunIntervalSeconds is 0:00
Thanks
Bruce
Reply With Quote
Chip Pearson
View Public Profile
Find all posts by Chip Pearson