How Can I create a status Bar

[travelingwilly]

I am loading and processing a large amount of records. But I wish to give the users a kind of status bar showing there percentage done. I know how many Lines there are But how can you do it graphicly. I thought about a UserScreen But what type of filed can I used to show a bar type of thing ????
W

 

[zzydhf]

This is from another post...
http://www.mrexcel.com/board/viewtopic.php?topic=18828&forum=2
or
http://www.erlandsendata.no/english/downloads/userforms.htm

 

[Richie(UK)]

Hi,

See if you can modify this to suit your needs (taken from a Google thread, sorry can't remember who to credit!)

<pre>
Sub StatusBarTest()
Dim SBText As String, r As Integer, c As Integer
' Demonstrates status bar progress
Application.ScreenUpdating = False
SBText = "Processing "
For r = 1 To 1000
If r Mod 50 = 0 Then
SBText = SBText & Chr(1)
Application.StatusBar = SBText
End If
For c = 1 To 20
Sheets("Sheet4").Cells(r, c) = Int(Rnd() * 100)
'write random numbers to this sheet
Next c
Next r
Application.StatusBar = False
Application.ScreenUpdating = True
End Sub</pre>

HTH

 

[travelingwilly]

Thanks works great.. Just need to get The Percentage to work out better

Application.ScreenUpdating = False

For x = 2 To .Rows.Count
If round((x / .Rows.Count) * 100,2) Mod 10 = 0 Then
Application.StatusBar = "Loading CSV File (" + CStr(round((x / .Rows.Count) * 100,2)) + "% Completed)" + Chr(1)
End If

next x
Application.StatusBar = False
Application.ScreenUpdating = True