Excel VBA UserForm, progress bar

Question

I've created a userform that should act like progress toolbar and show me my actual progress in percent.

I want to show my tool bar in a for loop. But the for loop doesn't go on only if i click away the userform. What i am doing wrong?

For k = 1 To 300

    pctcompl = k * 100 / 300

    UserForm1.Text.Caption = pctcompl & "% Completed"
    UserForm1.Bar.Width = pctcompl * 2

    DoEvents

    UserForm1.Show

Next k

Please copy paste the code into the question, don't add it as a picture! — vacip
Pick your best answer from here: stackoverflow.com/questions/5181164/progress-bar-in-vba-excel — Skip Intro

Pierre Pierre · Accepted Answer · 2016-10-10T12:12:37

Let me google that for you :-)

frmTest.Show vbModeless

http://www.mrexcel.com/forum/excel-questions/41673-userform-stops-macro-how-continue-w-still-visible.html

Works for me :-)

Excel VBA UserForm, progress bar

1 Answers