View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.programming
BruceJ[_2_] BruceJ[_2_] is offline
external usenet poster
 
Posts: 43
Default Ontime questions

Chip,

How do I declare in a "standard code module"?

What is the differance between a class and standard? I now this is probably
very basic to most people here, but....

Thanks
Bruce

"Chip Pearson" wrote in message
...
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