Show Form on Button Click

[Vampy99]

Hi,

I've created a form in visual basic & have created a button on my first worksheet, how do I get the form to pop-up by clicking the button?

Just to warn you, I'm a complete beginner when it comes to VB, this is my first project.

Thanks in advance.

 

[RichardMGreen]

If you attach a macro to the button (different depending where the button is from) and the line:-
userform1.show

Will make your userform appear. You may need to change Userform1 depending on the name of your userform.

 

[VoG]

With an ActiveX button from the Controls toolbar

Private Sub CommandButton1_Click()
UserForm1.Show
End Sub

 

[Vampy99]

Thanks for the responses guys.

However, it is still not working for me, I keep getting the error 422, object required

 

[VoG]

Do you get an option to debug?

Is there Userform_Initialize code? If so please post it.

 

[Vampy99]

Do you get an option to debug?

Is there Userform_Initialize code? If so please post it.

Private Sub UserForm_Initialize()

ListBoxServices.Clear

With ComboDay

.AddItem "01"
.AddItem "02"
.AddItem "03"
.AddItem "04"
.AddItem "05"
.AddItem "06"
.AddItem "07"
.AddItem "08"
.AddItem "09"
.AddItem "10"
.AddItem "11"
.AddItem "12"
.AddItem "13"
.AddItem "14"
.AddItem "15"
.AddItem "16"
.AddItem "17"
.AddItem "18"
.AddItem "19"
.AddItem "20"
.AddItem "21"
.AddItem "22"
.AddItem "23"
.AddItem "24"
.AddItem "25"
.AddItem "26"
.AddItem "27"
.AddItem "28"
.AddItem "29"
.AddItem "30"
.AddItem "31"

End With

With ComboMonth

.AddItem "01"
.AddItem "02"
.AddItem "03"
.AddItem "04"
.AddItem "05"
.AddItem "06"
.AddItem "07"
.AddItem "08"
.AddItem "09"
.AddItem "10"
.AddItem "11"
.AddItem "12"

End With

With ComboYear


.AddItem "2011"
.AddItem "2012"

End With

End Sub


The debugger just takes me to the userform1.show line

 

[RichardMGreen]

Did you change the name of your Userform?
If so, you'll need to that with the .show.

 

[Vampy99]

Did you change the name of your Userform?
If so, you'll need to that with the .show.

No, I haven't it's just called userform1

 

[RichardMGreen]

If it errors on the userform1.show line, what happens if you debug the error and then press F8?

 

[Vampy99]

It takes me to Private Sub UserForm_Initialize()