Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Add code on the fly to existing userforms
I know I can create a new userform with new controls and new code for the
controls on the fly using VB. I have also added controls to an existing userform but I am having trouble adding code for the controls. The name of my userform is frmGSN and Code is a string of code. I am trying the following code but it doesn't recognize the .CodeModule With frmGSN.CodeModule .InsertLines .CountOfLines + 1, Code End With Please help. Thanks |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Add code on the fly to existing userforms
Here is an example
Sub MakeForm() Dim TempForm As Object Dim FormName As String Dim NewButton As Msforms.CommandButton Dim TextLocation As Long ' ' Create the UserForm Set TempForm = ThisWorkbook.VBProject. _ VBComponents.Add(3) 'vbext_ct_MSForm FormName = TempForm.Name With TempForm .Properties("Caption") = "Temporary Form" .Properties("Width") = 200 .Properties("Height") = 100 End With ' ' Add a CommandButton Set NewButton = TempForm.Designer.Controls _ .Add("forms.CommandButton.1") With NewButton .Caption = "Click Me" .Left = 60 .Top = 40 End With ' ' Add an event-hander sub for the CommandButton With TempForm.CodeModule TextLocation = .CreateEventProc("Click", "CommandButton1") .InsertLines TextLocation + 1, "MsgBox ""Hello!""" .InsertLines TextLocation + 2, "Unload Me" End With ' ' Show the form VBA.UserForms.Add(FormName).Show ' ' Delete the form ThisWorkbook.VBProject.VBComponents.Remove VBComponent:=TempForm End Sub -- --- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) "pan65" wrote in message ... I know I can create a new userform with new controls and new code for the controls on the fly using VB. I have also added controls to an existing userform but I am having trouble adding code for the controls. The name of my userform is frmGSN and Code is a string of code. I am trying the following code but it doesn't recognize the .CodeModule With frmGSN.CodeModule .InsertLines .CountOfLines + 1, Code End With Please help. Thanks |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Add code on the fly to existing userforms
Another option would be to create the userform with those controls on it--and
the code behind those controls, too. Then just hide/show the controls you want hidden/shown. pan65 wrote: I know I can create a new userform with new controls and new code for the controls on the fly using VB. I have also added controls to an existing userform but I am having trouble adding code for the controls. The name of my userform is frmGSN and Code is a string of code. I am trying the following code but it doesn't recognize the .CodeModule With frmGSN.CodeModule .InsertLines .CountOfLines + 1, Code End With Please help. Thanks -- Dave Peterson |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Add code on the fly to existing userforms
I am gathering from your response and from Bob's response, that I just need
to start with a new userform. Thanks for the help, it is much appreciated. "Dave Peterson" wrote: Another option would be to create the userform with those controls on it--and the code behind those controls, too. Then just hide/show the controls you want hidden/shown. pan65 wrote: I know I can create a new userform with new controls and new code for the controls on the fly using VB. I have also added controls to an existing userform but I am having trouble adding code for the controls. The name of my userform is frmGSN and Code is a string of code. I am trying the following code but it doesn't recognize the .CodeModule With frmGSN.CodeModule .InsertLines .CountOfLines + 1, Code End With Please help. Thanks -- Dave Peterson |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Add code on the fly to existing userforms
Bob created a new userform, but you could use an existing one.
I suggested that you create the extra controls while you're still designing the form--not at run time. pan65 wrote: I am gathering from your response and from Bob's response, that I just need to start with a new userform. Thanks for the help, it is much appreciated. "Dave Peterson" wrote: Another option would be to create the userform with those controls on it--and the code behind those controls, too. Then just hide/show the controls you want hidden/shown. pan65 wrote: I know I can create a new userform with new controls and new code for the controls on the fly using VB. I have also added controls to an existing userform but I am having trouble adding code for the controls. The name of my userform is frmGSN and Code is a string of code. I am trying the following code but it doesn't recognize the .CodeModule With frmGSN.CodeModule .InsertLines .CountOfLines + 1, Code End With Please help. Thanks -- Dave Peterson -- Dave Peterson |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
Add code on the fly to existing userforms
You said you were creating a new userform, I just gave some code that
included that creation as well as the controls and the code. -- --- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) "pan65" wrote in message ... I am gathering from your response and from Bob's response, that I just need to start with a new userform. Thanks for the help, it is much appreciated. "Dave Peterson" wrote: Another option would be to create the userform with those controls on it--and the code behind those controls, too. Then just hide/show the controls you want hidden/shown. pan65 wrote: I know I can create a new userform with new controls and new code for the controls on the fly using VB. I have also added controls to an existing userform but I am having trouble adding code for the controls. The name of my userform is frmGSN and Code is a string of code. I am trying the following code but it doesn't recognize the .CodeModule With frmGSN.CodeModule .InsertLines .CountOfLines + 1, Code End With Please help. Thanks -- Dave Peterson |
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
Add code on the fly to existing userforms
I think you misread the OP.
The subject adds more info, too. Bob Phillips wrote: You said you were creating a new userform, I just gave some code that included that creation as well as the controls and the code. -- --- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) "pan65" wrote in message ... I am gathering from your response and from Bob's response, that I just need to start with a new userform. Thanks for the help, it is much appreciated. "Dave Peterson" wrote: Another option would be to create the userform with those controls on it--and the code behind those controls, too. Then just hide/show the controls you want hidden/shown. pan65 wrote: I know I can create a new userform with new controls and new code for the controls on the fly using VB. I have also added controls to an existing userform but I am having trouble adding code for the controls. The name of my userform is frmGSN and Code is a string of code. I am trying the following code but it doesn't recognize the .CodeModule With frmGSN.CodeModule .InsertLines .CountOfLines + 1, Code End With Please help. Thanks -- Dave Peterson -- Dave Peterson |
#8
Posted to microsoft.public.excel.programming
|
|||
|
|||
Add code on the fly to existing userforms
This seems explicit to me ...
I know I can create a new userform with new controls and new code for the controls on the fly using VB. -- --- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) "Dave Peterson" wrote in message ... I think you misread the OP. The subject adds more info, too. Bob Phillips wrote: You said you were creating a new userform, I just gave some code that included that creation as well as the controls and the code. -- --- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) "pan65" wrote in message ... I am gathering from your response and from Bob's response, that I just need to start with a new userform. Thanks for the help, it is much appreciated. "Dave Peterson" wrote: Another option would be to create the userform with those controls on it--and the code behind those controls, too. Then just hide/show the controls you want hidden/shown. pan65 wrote: I know I can create a new userform with new controls and new code for the controls on the fly using VB. I have also added controls to an existing userform but I am having trouble adding code for the controls. The name of my userform is frmGSN and Code is a string of code. I am trying the following code but it doesn't recognize the .CodeModule With frmGSN.CodeModule .InsertLines .CountOfLines + 1, Code End With Please help. Thanks -- Dave Peterson -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Really need help with existing code. | Excel Discussion (Misc queries) | |||
New to userforms - can you help with this code? | Excel Programming | |||
Modify existing code to dynamic code | Excel Programming | |||
Help with existing code | Excel Discussion (Misc queries) | |||
Userforms keep popping up, need code to stop it | Excel Programming |