Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
User Forms
On workbook open I have a message box telling the user
what workbook they are in. I have two questions: When they click "ok" on the message box I want the user form to open. The user form is basic with Yes/No boxes. How do I code for: When yes is clicked insert new worksheet and run module 1, when no is clicked simply open the workbook as is for the user to use?? Thanks in advance Donna C. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
User Forms
Donna,
In the thisworkbook add the following, or amend if you have it already: Private Sub Workbook_Open() If MsgBox(Me.Name, vbOKCancel) = vbOK Then UserForm1.Show End If End Sub Then on your form code for the two buttons (here called commandbutton1 and commandbutton2) insert the following code. Note the moudule 1 code may not work change it to the subroutine name. Option Explicit Private Sub CommandButton1_Click() ThisWorkbook.Worksheets.Add module1 ' <<<<<< this is the subroutine???? Me.Hide Unload UserForm1 End Sub Private Sub CommandButton2_Click() Me.Hide Unload UserForm1 End Sub '------ Save and run the worksheet. -- Hope this helps Martin Fishlock Please do not forget to rate this reply. "Donna C" wrote: On workbook open I have a message box telling the user what workbook they are in. I have two questions: When they click "ok" on the message box I want the user form to open. The user form is basic with Yes/No boxes. How do I code for: When yes is clicked insert new worksheet and run module 1, when no is clicked simply open the workbook as is for the user to use?? Thanks in advance Donna C. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
User Forms
Donna C;7058947 Wrote: On workbook open I have a message box telling the user what workbook they are in. I have two questions: When they click "ok" on the message box I want the user form to open. The user form is basic with Yes/No boxes. How do I code for: When yes is clicked insert new worksheet and run module 1, when no is clicked simply open the workbook as is for the user to use?? Thanks in advance Donna C.Donna it's done soemthing like this Code: -------------------- If MsgBox("you are in " & ActiveWorkbook.Name & " Would you like to proceed?", vbYesNo, "Workbook Confirmation") = vbYes Then Sheets.Add Call '''''''ENTER YOUR MACRO NAME AFTER CALL HERE! End If -------------------- Regards, SImon -- Simon Lloyd |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
User forms help | Excel Programming | |||
user forms | Excel Discussion (Misc queries) | |||
user forms | Excel Programming | |||
User Forms | Excel Programming | |||
User forms in VBA | Excel Programming |