Quick ?Macro short cut

[cblackst]

Hello All.

Is there a way I can create a macro that when a button is push the vba form will pop up on sheet1..?

Thank You.

 

[gsouza]

This should work for you>
sub shovba()
Application.VBE.MainWindow.Visible = True
end sub

 

[Smitty]

If you mean launching a UserForm, then using a button drawn on the sheet from the Control Toolbox:

<font face=Tahoma><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> CommandButton1_Click()
    UserForm1.Show
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

HTH,

Smitty

 

[gsouza]

Now I don't know what he means.

 

[cblackst]

I'm getting a error that VBE has failed, should this be my form name. which is UserForm1

Thanks

 

[Smitty]

What's the exact error message?

If your form is really called "UserForm1" then the code above will work. Note that the code and the form name need to match exactly.

Can you post what you have?

Smitty

 

[cblackst]

Thank You .

This worked perfect..

Private Sub CommandButton1_Click()
UserForm1.Show
End Sub

 

[cblackst]

Hello again..

ok, I'm still on the same program.. Is there away I can use another to print the form.

Thanks again

 

[cblackst]

Sorry,

Is there away I can use another button to print the my form.

 

[Smitty]

Sure:

<font face=Tahoma><SPAN style="color:#00007F">Sub</SPAN> CommandButton2_Click()
    UserForm1.PrintForm
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

Smitty