Loading bar

[Vbanoob98]

Hi, so I have 10 macros that I call

I would like to add a loading bar that increments in % as each macro finishes

E.g.

Call macro1
Loading bar shows 10%
Call macro2
Loading bar shows 20%
Etc etc

Any ideas?

 

[CSmith]

Does this or this help?

 

[Vbanoob98]

I somewhat understand how to put it inside the code.

What I would like it maybe to make a loop for all my call macros and each call macro that successfully ends makes the loading bar % increase

 

[CSmith]

Directions:
You can download preset form files here and use them like this...

In VBA editor, Insert File... Navigate to the .frm file you download from above
Next add the following code to your current macro sub

frmProgressIndicator.Show
Call macro1
frmProgressIndicator.updateProgress (10)
Call macro2
frmProgressIndicator.updateProgress (20)
'Etc etc 
frmProgressIndicator.updateProgress (100)
'maybe pause for a second then 
frmprogressindicator.Hide

 

[Vbanoob98]

This is good. The issue is that when the first box comes, you have to close it for the rest to continue, and the the other boxes dont come up

 

[CSmith]

This is good. The issue is that when the first box comes, you have to close it for the rest to continue, and the the other boxes dont come up

Apologies change the form Property ShowModal to False, or just download the updated file, and it will work just fine as it does with this code, as I forgot that option initially:

Private Sub MacroTest()
  frmProgressIndicator.Show
  Application.Wait (Now + TimeValue("00:00:01"))
  For i = 1 To 10
    frmProgressIndicator.updateProgress (i * 10)
    DoEvents
    Application.Wait (Now + TimeValue("00:00:01")) ' Simulate Macro execution
  Next i
  Application.Wait (Now + TimeValue("00:00:01"))
  frmProgressIndicator.Hide
End Sub

 

[Vbanoob98]

Works amazing! Last question, how could I make it appear in the center of the workbook?

 

[CSmith]

Thanks for updating us! Glad to help! Change the StartUpPosition property CenterScreen or CenterOwner

Works amazing! Last question, how could I make it appear in the center of the workbook?