userform Input & userform Progression BAR

[JohnSeito]

Could someone show me an example of how to implement
a userform for userinput and also this same macro would show a progression bar.

Thanks

 

[JohnSeito]

here is part of my code

how do you show a userform for user input, and then show a progression bar.

when I go to show the progression bar, it mess up my flow of the code
as with below

UserForm1.LabelProgress.Width = 0
UserForm1.show



Function TimeDate1(ByVal Fr As Date, ByVal Te As Date)
'FIX TIME & DATE
'====================================================================
'====================================================================
'====================================================================


Dim carryFe As Date
Dim carryTe As Date
carryFe = Fr
carryTe = Te


UserForm1.LabelProgress.Width = 0
UserForm1.show



Sheets("raw data").Range("a2:z100000").Clear
Sheets("Formatted").Range("a2:Q2000").Clear
Sheets("rwd").Range("a2:ao100000").Clear
'Sheets("LHD Report").Select

Sheets("LHD Report").Cells(1, 1).Clear
Sheets("LHD Report").Cells(1, 3).Clear
Sheets("LHD Report").Range("b9:b11").Clear
Sheets("LHD Report").Cells(2, 12).Clear

Sheets("LHD Report").Range("a21:a51").Clear
Sheets("LHD Report").Range("g21:g51").Clear
Sheets("LHD Report").Range("a59:a63").Clear
Sheets("LHD Report").Range("g59:g76").Clear

 

[JohnSeito]

here is the cross post. thanks

userform for input and run userform for progression bar