Periodic Status Bar Updates Based On Calculation

[NamssoB]

I'm processing a worksheet with thousands of records, and I'd like to keep the user updated with the progress using the status bar. BUT - I don't want to show the current record number EVERY time it changes (assuming this is VERY I/O intensive). So I want to display an updated status at even 10% increments. How do I do this?

Here's what I tried, but it's not even close. In essence, I try to convert a ROUNDED number to a 2-digit string (10.45 = "10"), then I use RIGHT to check if there is a zero.

        RowCountStatus = Round((1 - (lastrow / OrginalRowCount)) * 100, 0)
        If Right(Str(RowCountStatus), 1) = "0" Then
            Application.StatusBar = RowCountStatus & "% complete..."
        End If

Any ideas?

 

[NamssoB]

Got it. Clumsy, but it works. B90, etc are booleans. Without the booleans, it would just display every single number, every time. So I used the booleans to "turn off" any repeats.

        RowCountStatus = 1 - (lastrow / OriginalRowCount)
        If RowCountStatus > 0.9 And Not b90 Then
            Application.StatusBar = Format(RowCountStatus * 100, "##") & "% complete..."
            b90 = True
        Else
            If RowCountStatus > 0.75 And Not b75 Then
                Application.StatusBar = Format(RowCountStatus * 100, "##") & "% complete..."
                b75 = True
            Else
                If RowCountStatus > 0.5 And Not b50 Then
                    Application.StatusBar = Format(RowCountStatus * 100, "##") & "% complete..."
                    b50 = True
                Else
                    If RowCountStatus > 0.25 And Not b25 Then
                        Application.StatusBar = Format(RowCountStatus * 100, "##") & "% complete..."
                        b25 = True
                    End If
                End If
            End If
        End If

 

[AlphaFrog]

Maybe something like this...

        [color=green]'Initialize[/color]
        Application.StatusBar = "0% complete..."
        NextStatus = 0.25 [color=green]'%Increment[/color]
        
        [color=green]'loop Records[/color]
            [color=darkblue]If[/color] NextStatus <= OriginalRowCount / lastrow [color=darkblue]Then[/color]
                Application.StatusBar = Format(NextStatus, "0%") & " complete..."
                NextStatus = NextStatus + 0.25  [color=green]'%Increment[/color]
            [color=darkblue]End[/color] [color=darkblue]If[/color]
        [color=green]'Next[/color]

 

[NamssoB]

Maybe something like this...

        [color=green]'Initialize[/color]
        Application.StatusBar = "0% complete..."
        NextStatus = 0.25 [color=green]'%Increment[/color]
        
        [color=green]'loop Records[/color]
            [color=darkblue]If[/color] NextStatus <= OriginalRowCount / lastrow [color=darkblue]Then[/color]
                Application.StatusBar = Format(NextStatus, "0%") & " complete..."
                NextStatus = NextStatus + 0.25  [color=green]'%Increment[/color]
            [color=darkblue]End[/color] [color=darkblue]If[/color]
        [color=green]'Next[/color]

Wow! Great idea, much simpler than mine. And it works....thank you!