How to display Progress Bar while macro runs? - excel

Question

I created a ProgressBar I want to display with % while my macro runs.
I tried the parameters UserForm1.Show vbModeless and UserForm1.Repaint in my main macro.
Private Sub UserForm_Activate()
Dim reminder As Long
Dim i As Long, j As Long
reminder = 0
For i = 1 To 200
UserForm1.Label2.Width = UserForm1.Label2.Width + 1
If i Mod 2 = 0 Then
reminder = reminder + 1
UserForm1.Caption1 = reminder & " % completed"
End If
For j = 1 To 150
DoEvents
Next j
Next i
Unload UserForm1
End Sub
The UserForm stops on 0% and my main macro runs to the end, then the UserForm with ProgressBar runs from 0 to 100% and closes.

Answer 1

WORKING:
I create two NON MODAL! Forms NAMED "progressbar"
( with 1 Textbox NAMED counter)
and "tester "
(with 3 Buttons NAMED count hide and show)
the code in progressbar:
Dim count As Long
Public Sub progressbar_show()
count = 0
progressbar.Show
End Sub
Public Sub progressbar_update()
If count < 100 Then count = count + 1
progressbar.counter.Text = Str(count)
DoEvents
End Sub
Public Sub progressbar_close()
counter = 0
progressbar.hide
End Sub
The code in tester: (calls routines in form progressbar)
Private Sub count_Click()
Call progressbar.progressbar_update
End Sub
Private Sub hide_Click()
Call progressbar.progressbar_close
End Sub
Private Sub show_Click()
Call progressbar.progressbar_show
End Sub
Works as designed.
on the click button the textbox will be updated on each click.
Please note HOW i call the functions from on form to the other form. The form name has to be included. The name of the controls have also to match. Its a good idea to rename the controls and forms. I made a autocad VBA with has 1700 controls. Its not the fun after some weeks
to imagine what commandbutton_762 actuelly may do ;)

Answer 2

That can not work like this. You need 3 functions
one to show the userform progressbar 0 percent.
then you need a function to update your form
end finaly the function to remove the form
This code is NOT tested see the testing code i posted here also !
Dim counter As Long
Public Sub UserForm_Activate()
counter = 0
UserForm1.Label2.Width =0
UserForm.show
End Sub
Public Sub UserForm_update()
if counter <100 then counter=counter+1
UserForm1.Label2.Width = counter
DoEvents
end sub
Public Sub UserForm_close()
counter = 0
UserForm.hide
End Sub
'somewhere in a module or class
sub calculate
call UserForm_Activate()
for i=0 to 100
call UserForm_update()
'whatever
' Sleep (200) if this very handy OS call is included somewhere
next
call UserForm_close
end sub