Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Running a module from within a UserForm
From within UserForm2 when I click on OptionButton1 I want the MakeVisable code (shown below) to run. The problem is that I get an "object required" error. What do I need to add? Private Sub OptionButton1_Click() Call MakeVisable.MakeVisable End Sub Sub MakeVisable() Label8.Visible = True Label9.Visible = True TextBox3.Visible = True TextBox4.Visible = True TextBox3.Value = Format$(Now(), "HH:MM") TextBox4.Value = Format$(Now(), "mm/dd/yy") End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Running a module from within a UserForm
Your module doesn't know where the controls it's supposed to change are located. You can put your MakeVisable sub in the code sheet for the userform: Private Sub OptionButton1_Click() Call MakeVisable End Sub Sub MakeVisable() Me.Label8.Visible = True Me.Label9.Visible = True Me.TextBox3.Visible = True Me.TextBox4.Visible = True Me.TextBox3.Value = Format$(Now(), "HH:MM") Me.TextBox4.Value = Format$(Now(), "mm/dd/yy") End Sub Or, you can leave it in the MakeVisable VBA module if you make modifications like the following: '(in the userform code sheet) Private Sub OptionButton1_Click() Call MakeVisable.MakeVisable(Me) End Sub '(in the MakeVisable module) Sub MakeVisable(MyForm As UserForm) MyForm.Label8.Visible = True MyForm.Label9.Visible = True MyForm.TextBox3.Visible = True MyForm.TextBox4.Visible = True MyForm.TextBox3.Value = Format$(Now(), "HH:MM") MyForm.TextBox4.Value = Format$(Now(), "mm/dd/yy") End Sub Hope this helps, Hutch "Patrick C. Simonds" wrote: From within UserForm2 when I click on OptionButton1 I want the MakeVisable code (shown below) to run. The problem is that I get an "object required" error. What do I need to add? Private Sub OptionButton1_Click() Call MakeVisable.MakeVisable End Sub Sub MakeVisable() Label8.Visible = True Label9.Visible = True TextBox3.Visible = True TextBox4.Visible = True TextBox3.Value = Format$(Now(), "HH:MM") TextBox4.Value = Format$(Now(), "mm/dd/yy") End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Running a module from within a UserForm
Thank you sir, that was exactly what I needed. I opted for option 1. "Tom Hutchins" wrote in message ... Your module doesn't know where the controls it's supposed to change are located. You can put your MakeVisable sub in the code sheet for the userform: Private Sub OptionButton1_Click() Call MakeVisable End Sub Sub MakeVisable() Me.Label8.Visible = True Me.Label9.Visible = True Me.TextBox3.Visible = True Me.TextBox4.Visible = True Me.TextBox3.Value = Format$(Now(), "HH:MM") Me.TextBox4.Value = Format$(Now(), "mm/dd/yy") End Sub Or, you can leave it in the MakeVisable VBA module if you make modifications like the following: '(in the userform code sheet) Private Sub OptionButton1_Click() Call MakeVisable.MakeVisable(Me) End Sub '(in the MakeVisable module) Sub MakeVisable(MyForm As UserForm) MyForm.Label8.Visible = True MyForm.Label9.Visible = True MyForm.TextBox3.Visible = True MyForm.TextBox4.Visible = True MyForm.TextBox3.Value = Format$(Now(), "HH:MM") MyForm.TextBox4.Value = Format$(Now(), "mm/dd/yy") End Sub Hope this helps, Hutch "Patrick C. Simonds" wrote: From within UserForm2 when I click on OptionButton1 I want the MakeVisable code (shown below) to run. The problem is that I get an "object required" error. What do I need to add? Private Sub OptionButton1_Click() Call MakeVisable.MakeVisable End Sub Sub MakeVisable() Label8.Visible = True Label9.Visible = True TextBox3.Visible = True TextBox4.Visible = True TextBox3.Value = Format$(Now(), "HH:MM") TextBox4.Value = Format$(Now(), "mm/dd/yy") End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
2 Macros running on same module | Excel Worksheet Functions | |||
running code only in selected module | Excel Programming | |||
Running a procedure in a module on graph change | Excel Programming | |||
Running Standard Module Code from Dataform | Excel Programming | |||
Running Excel module within Access | Excel Programming |