progress message in status bar

E

Eric

Using Excel 2000.

I want to display a message in the status bar when
processing passes certain milestones (number of rows
processed). At the moment I am doing it like this:

If lngRows > 20000 Then
Application.StatusBar = "20000 rows processed. Still
going . . ."
Exit Sub
End If
If lngRows > 15000 Then
Application.StatusBar = "15000 rows processed. Still
going . . ."
Exit Sub
End If
If lngRows > 12500 Then
Application.StatusBar = "12500 rows processed. Still
going . . ."
Exit Sub
End If

At the moment I have milestones at 250, 500, 750, 1000,
then I go up in 1000's, then 2500's and eventually
5000's - all the way out to 50000 rows.

The way the macro increments the counter, lngRows, may
not exactly match a milestone, so that is why I use >
rather than =.

This seems a rather clunky way of doing this. Is there a
more streamlined way?
 
K

keepITcool

Try

lngCount = MyRange.Rows.count
if lngRows mod 500 = 0 or lngRows=lngCount then application.statusbar..


--
keepITcool
| www.XLsupport.com | keepITcool chello nl | amsterdam


Eric wrote :
 
Top