This should be easy, but somehow, I can't get the hang of it ... :-/

I need to have a macro pause for 2 minutes, but I need the user to know how
much more to wait.


So, I figured I wanted to make a loop that shows the remaing time it the
statusbar, i.e. something like:

Application.statusbar = "Waiting for data collecting: 00:02:00"

and then it should proceed to:

Application.statusbar = "Waiting for data collecting: 00:01:59"

Etc...

And of cause, when the time was up, the macro should continue :-)


I'm not sure if 2 minutes are gonna be enough for the ERP system to finish
up, so my macro can continue, so some way of easy althering the time (maybe
by using a constant for the time) would also be apriciated :-)


TIA,

Dim t As Double
t = Timer
Do
diff = Timer - t
Application.StatusBar = Int(120 - diff)
DoEvents
Loop While diff < 120 'seconds

"Charlotte E" <@ wrote in message
...
This should be easy, but somehow, I can't get the hang of it ... :-/

I need to have a macro pause for 2 minutes, but I need the user to know
how much more to wait.


So, I figured I wanted to make a loop that shows the remaing time it the
statusbar, i.e. something like:

Application.statusbar = "Waiting for data collecting: 00:02:00"

and then it should proceed to:

Application.statusbar = "Waiting for data collecting: 00:01:59"

Etc...

And of cause, when the time was up, the macro should continue :-)


I'm not sure if 2 minutes are gonna be enough for the ERP system to finish
up, so my macro can continue, so some way of easy althering the time
(maybe by using a constant for the time) would also be apriciated :-)


TIA,

Perfect :-)

Thanks, PaTRICK ;-)




Patrick Molloy wrote:
Dim t As Double
t = Timer
Do
diff = Timer - t
Application.StatusBar = Int(120 - diff)
DoEvents
Loop While diff < 120 'seconds

"Charlotte E" <@ wrote in message
...
This should be easy, but somehow, I can't get the hang of it ... :-/ I
need to have a macro pause for 2 minutes, but I need the user to
know how much more to wait.


So, I figured I wanted to make a loop that shows the remaing time it
the statusbar, i.e. something like:

Application.statusbar = "Waiting for data collecting: 00:02:00"

and then it should proceed to:

Application.statusbar = "Waiting for data collecting: 00:01:59"

Etc...

And of cause, when the time was up, the macro should continue :-)


I'm not sure if 2 minutes are gonna be enough for the ERP system to
finish up, so my macro can continue, so some way of easy althering
the time (maybe by using a constant for the time) would also be
apriciated :-) TIA,