Question

I have created a UserForm where the user is required to fill-in three fields. The macro attempts to auto-detect these fields’ values in the UserForm_Initialize() event, then displays the found values in the three fields, but the user can change them. The auto-detection takes a few seconds, though, and delays the appearance of the UserForm. I’d like the UserForm to appear with its fields blank before the auto-detection procedure, then have the auto-detection procedure fill the fields automatically. What would be the best way to do this? Making the UserForm non-modal makes the macro run without waiting for the user’s input, which is problematic. I don’t want to have an “auto-detect” button: this has to be done automatically.

Answer 1

Use the Activate() event instead of Initialize() 🙂

Private Sub UserForm_Activate()

End Sub

FOLLOWUP

Thanks! It works, but there seems to be a bug: the dialog is drawn all white until the macro completes. screenshot (the dialog should be gray)

No. It is not a bug 🙂 Try This. Add Doevents as shown below.

Private Sub UserForm_Activate()
    UserForm1.ProgressBar1.Value = 0
    starttime = Timer
    While Timer - starttime < 1
        UserForm1.ProgressBar1.Value = (Timer - starttime) * 100
        DoEvents
    Wend
End Sub

HTH

Sid