Progress Bar

[rabso]

Hello

I have a progress bar called Progressbar1. I would like to show the status of a loop as it takes a couple of minutes to run and I unsure how to do this. Can some one please help?

This is my code so far, thank you Richard Baker

Application.ScreenUpdating = False
 
Sheets("Summary").Select
Dim CurRow As Integer
CurRow = 1
    For Each x In Range("A" & CurRow, Range("A" & CurRow).End(xlDown))
    If x = "" Then Exit For
 
        'Proof Number Column B
        x.Offset(0, 1).Formula = "=VLOOKUP(A" & CurRow & ", AX!A:I, 7, 0)"
    CurRow = CurRow + 1
Next
 
Application.ScreenUpdating = true

 

[healey21]

The code you are showing doesn't indicate a progress bar. What if you add something to the Status Bar to tell you that you are processing and then on complete it clears the Status Bar

Simple sample shown here

<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> stat()<br>Application.StatusBar = "help me im falling over"<br><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br></FONT>

 

[baitmaster]

Rabso, please dont create duplicated threads, it just leads to confusion

If you aren't getting responses, you can "bump" the original e.g. by adding further clarity to your question

this subject is also being addressed here:
http://www.mrexcel.com/forum/showthread.php?t=560749

 

[VoG]

Please see #23 http://www.mrexcel.com/forum/showthread.php?t=127080