ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Help with calling Data Form (https://www.excelbanter.com/excel-programming/395861-help-calling-data-form.html)

Brian

Help with calling Data Form
 
Hello all,

Having managed to create a reporting tool, first attempt at excel VBA, my
manager now wants an update built in. I thought the easiest way would be to
call the Standard Form from the Data tab. Although by simply highlighting the
cells, and selecting from the drop down lis, my code does not appear to work.

Private Sub CommandButton1_Click()
Dim ws As Worksheet
Set ws = Worksheets("GSOPs")
Range("A3:H32").Select
With ActiveSheet
..ShowDataForm
End With

Any suggestions would be gratefully recieved. 2 days to finish this off and
multiple sheets to build in to the options.

Thanks,

End Sub


--
Brian McCaffery

Michael

Help with calling Data Form
 
I'm not sure what you mean by "Standard Form" but in your code to show a form,
You need to type the form name something like this:
UserForm1.Show
And UserForm1.Hide

to hide it.

This is assuming your form name is: "UserForm1" which is the default name.


--
If this posting was helpful, please click on the Yes button.
Regards,

Michael Arch.




"Brian" wrote:

Hello all,

Having managed to create a reporting tool, first attempt at excel VBA, my
manager now wants an update built in. I thought the easiest way would be to
call the Standard Form from the Data tab. Although by simply highlighting the
cells, and selecting from the drop down lis, my code does not appear to work.

Private Sub CommandButton1_Click()
Dim ws As Worksheet
Set ws = Worksheets("GSOPs")
Range("A3:H32").Select
With ActiveSheet
.ShowDataForm
End With

Any suggestions would be gratefully recieved. 2 days to finish this off and
multiple sheets to build in to the options.

Thanks,

End Sub


--
Brian McCaffery



All times are GMT +1. The time now is 12:25 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com