TIME OF A MACRO-RUN

[verluc]

Is there a possibility that when a macro start via a button and during the time of running I get a display who show me the running-time in seconds?

 

[zzydhf]

could you set a variable (time1) = to now() at the begining and at the end subtract time1 from now() as the last statement and put that in a cell? or were you looking for a pop-up box or something?

 

[Qroozn]

do you want a progress bar?
or do you want a value returned at the end of the macro indicating the procedure time?

 

[Nimrod]

[Function]
Measure Elapsed time for code to perform it's operations.

[Method]
Insert code to measure in the middle of this procedure

Sub ShowElapsedTime()
Start = Timer ' Set start time.
    
  ' PLACE CODE YOU WANT TIMED HERE
    
Finish = Timer ' Set end time.
TotalTime = Finish - Start
MsgBox ("Elapsed Time " & TotalTime & " Seconds")
End Sub

OR A SLIMMED DOWN VERSION

Sub ShowElapsedTime2()
Start = Timer ' Set start time.
    
  ' PLACE CODE YOU WANT TIMED HERE
    
MsgBox ("Elapsed Time " & Timer - Start & " Seconds")
End Sub

_________________
<font size=-1>NOTE:</font.<font size=-1> (Testing performed on Win2K utilizing Office 2000. Solutions may need tweaking for other versions.)</font><font size=+1><font color="blue">Adieu,<font color="red">N<font color="blue">imrod</font
This message was edited by Nimrod on 2002-06-18 17:28

 

[verluc]

On 2002-06-18 17:25, Nimrod wrote:
[Function]
Measure Elapsed time for code to perform it's operations.

[Method]
Insert code to measure in the middle of this procedure

Sub ShowElapsedTime()
Start = Timer ' Set start time.
    
  ' PLACE CODE YOU WANT TIMED HERE
    
Finish = Timer ' Set end time.
TotalTime = Finish - Start
MsgBox ("Elapsed Time " & TotalTime & " Seconds")
End Sub

OR A SLIMMED DOWN VERSION

Sub ShowElapsedTime2()
Start = Timer ' Set start time.
    
  ' PLACE CODE YOU WANT TIMED HERE
    
MsgBox ("Elapsed Time " & Timer - Start & " Seconds")
End Sub

_________________
<font size=-1>NOTE:</font.<font size=-1> (Testing performed on Win2K utilizing Office 2000. Solutions may need tweaking for other versions.)</font><font size=+1><font color="blue">Adieu,<font color="red">N<font color="blue">imrod</font
This message was edited by Nimrod on 2002-06-18 17:28

Thanks Nimrod,it works fine.
Still a little question: can I also see the evolution of counting ths seconds?Now I see only the total of seconds at the end of running.
It would be fine if a user can follow the situation.
Many thanks in advance