NamssoB
Board Regular
- Joined
- Jul 8, 2005
- Messages
- 76
- Office Version
- 365
- 2016
- Platform
- Windows
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.
Any ideas?
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.
Code:
RowCountStatus = Round((1 - (lastrow / OrginalRowCount)) * 100, 0)
If Right(Str(RowCountStatus), 1) = "0" Then
Application.StatusBar = RowCountStatus & "% complete..."
End If
Any ideas?