can you stop processing excell for a period of time

rpwagner · Mar 26th, 2002, 02:52 PM

Can you suspend processing an excel spread sheet for a period of time (say 1 second). So that when some vba code is hit, there is a timer that delays subsequent code executation for a specified amount of time?

Tom Schreiner · Mar 26th, 2002, 03:05 PM

Hi
I use this little delayer in alot of my programs.

To call it, just type SD NumOfSeconds
For example, to delay your code for about a minute, put this in SD 60
It will call the Sub and stop for about 60 seconds.

Place the code in a standard module

Sub SD(LenTime)
Dim Start
Start = Timer
Do While Timer < Start + LenTime
DoEvents
Loop
End Sub

Tom

rpwagner · Mar 27th, 2002, 04:35 AM

Great, thanks Tom

Tom Schreiner · Mar 27th, 2002, 04:42 AM

Hey RP
Please edit the code as follows

Sub SD(LenTime)
Dim Start
Start = Timer + LenTime
Do While Timer < Start
If Timer = 0 then Start = Timer + LenTime
DoEvents
Loop
End Sub

The code as I gave it to you befor will run an endless loop if it happens to run at midnight.

Tom

rpwagner · Mar 27th, 2002, 07:11 AM

Put the code in and it works great...thanks once again Tom..

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Mar 26th, 2002, 02:52 PM	#1
rpwagner New Member Join Date: Feb 2002 Location: Robert P. Wagner Posts: 22	Can you suspend processing an excel spread sheet for a period of time (say 1 second). So that when some vba code is hit, there is a timer that delays subsequent code executation for a specified amount of time?

Mar 26th, 2002, 03:05 PM	#2
Tom Schreiner Board Regular Join Date: Mar 2002 Location: Cincinnati, Ohio, USA Posts: 6,824	Hi I use this little delayer in alot of my programs. To call it, just type SD NumOfSeconds For example, to delay your code for about a minute, put this in SD 60 It will call the Sub and stop for about 60 seconds. Place the code in a standard module Sub SD(LenTime) Dim Start Start = Timer Do While Timer < Start + LenTime DoEvents Loop End Sub Tom

Mar 27th, 2002, 04:35 AM	#3
rpwagner New Member Join Date: Feb 2002 Location: Robert P. Wagner Posts: 22	Great, thanks Tom

Mar 27th, 2002, 04:42 AM	#4
Tom Schreiner Board Regular Join Date: Mar 2002 Location: Cincinnati, Ohio, USA Posts: 6,824	Hey RP Please edit the code as follows Sub SD(LenTime) Dim Start Start = Timer + LenTime Do While Timer < Start If Timer = 0 then Start = Timer + LenTime DoEvents Loop End Sub The code as I gave it to you befor will run an endless loop if it happens to run at midnight. Tom

Mar 27th, 2002, 07:11 AM	#5
rpwagner New Member Join Date: Feb 2002 Location: Robert P. Wagner Posts: 22	Put the code in and it works great...thanks once again Tom..