Pause a macro by resetting current time
 

Hi, I am creating a macro which changes the y-values in a distribution plot
each second (corresponding to the values the next day). This allows one to
see a distribution change over time. The problem I have is I found the
following code to pause in between (so one can see the distribution shifting
over time) the dates but it pauses it for 1 second and I need it to pause it
for about half a second only.
Here is the code (for pausing) that I currently have:
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 1
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime

Any help greatly appreciated, thanks a million!
SW

Pause a macro by resetting current time
 

Use this procedure to wait and call in your code

Wait (0.5)

Sub Wait(sngDelayInSecs As Single)
EndDelay = Timer + sngDelayInSecs
Do While Timer < EndDelay
DoEvents
Loop
End Sub
--
If this post helps click Yes
---------------
Jacob Skaria


"SW" wrote:

Hi, I am creating a macro which changes the y-values in a distribution plot
each second (corresponding to the values the next day). This allows one to
see a distribution change over time. The problem I have is I found the
following code to pause in between (so one can see the distribution shifting
over time) the dates but it pauses it for 1 second and I need it to pause it
for about half a second only.
Here is the code (for pausing) that I currently have:
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 1
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime

Any help greatly appreciated, thanks a million!
SW

Pause a macro by resetting current time
 

Get it!
Works fantastically thanks so much!

"Jacob Skaria" wrote:

You can use

Wait (0.5) for delay...

Sub Wait() should be copied separately...may be after End Sub of your
existing macro
--
If this post helps click Yes
---------------
Jacob Skaria


"SW" wrote:

Thanks v much,
I should have mentioned I am no programmer and do most of this by recording
and editing macros etc at the moment.
I copied and pasted your code into mine but it did not work - do I need to
change something else?
Thanks again,
SW

"Jacob Skaria" wrote:

Use this procedure to wait and call in your code

Wait (0.5)

Sub Wait(sngDelayInSecs As Single)
EndDelay = Timer + sngDelayInSecs
Do While Timer < EndDelay
DoEvents
Loop
End Sub
--
If this post helps click Yes
---------------
Jacob Skaria


"SW" wrote:

Hi, I am creating a macro which changes the y-values in a distribution plot
each second (corresponding to the values the next day). This allows one to
see a distribution change over time. The problem I have is I found the
following code to pause in between (so one can see the distribution shifting
over time) the dates but it pauses it for 1 second and I need it to pause it
for about half a second only.
Here is the code (for pausing) that I currently have:
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 1
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime

Any help greatly appreciated, thanks a million!
SW

Pause a macro by resetting current time
 

This works too - thanks v much.

"Gary''s Student" wrote:

Sub servient()
Application.Wait Now() + 0.000005787037
End Sub
--
Gary''s Student - gsnu200846


"SW" wrote:

Hi, I am creating a macro which changes the y-values in a distribution plot
each second (corresponding to the values the next day). This allows one to
see a distribution change over time. The problem I have is I found the
following code to pause in between (so one can see the distribution shifting
over time) the dates but it pauses it for 1 second and I need it to pause it
for about half a second only.
Here is the code (for pausing) that I currently have:
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 1
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime

Any help greatly appreciated, thanks a million!
SW