View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
eric eric is offline
external usenet poster
 
Posts: 33
Default progress message in status bar

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?