Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
adding userform command buttons
Hi,
I want to for subroutine1 to add 5 commandbuttons to userform1 and when clicked, the commandbuttons will call another subroutine2. This is what I currently have to create the 5 commandbuttons. When clicked, the commandbuttons do nothing. sub subroutine1 for i=1 to 5 With UserForm1 For i = 1 To 3 Set Mycmd = .Controls.Add("Forms.CommandButton.1") Mycmd.Left = 0 Mycmd.Top = 100 * i Mycmd.Width = 175 Mycmd.Height = 20 Next i UserForm1.Show End With end sub Thanks for you help! |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
adding userform command buttons
Hi borg
goto http://www.contextures.com/xlUserForm01.html and here you will learn to Create a Userform Regads Yngve |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
adding userform command buttons
Your code seems rather strange as it has two control variables with the same
name Anyway, take a look at http://j-walk.com/ss/excel/tips/modGetOption.bas borg wrote: Hi, I want to for subroutine1 to add 5 commandbuttons to userform1 and when clicked, the commandbuttons will call another subroutine2. This is what I currently have to create the 5 commandbuttons. When clicked, the commandbuttons do nothing. sub subroutine1 for i=1 to 5 With UserForm1 For i = 1 To 3 Set Mycmd = .Controls.Add("Forms.CommandButton.1") Mycmd.Left = 0 Mycmd.Top = 100 * i Mycmd.Width = 175 Mycmd.Height = 20 Next i UserForm1.Show End With end sub Thanks for you help! |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
adding userform command buttons
You are right about my strange code. But your suggestion really helped.
Thank you! "Paul Lautman" wrote: Your code seems rather strange as it has two control variables with the same name Anyway, take a look at http://j-walk.com/ss/excel/tips/modGetOption.bas borg wrote: Hi, I want to for subroutine1 to add 5 commandbuttons to userform1 and when clicked, the commandbuttons will call another subroutine2. This is what I currently have to create the 5 commandbuttons. When clicked, the commandbuttons do nothing. sub subroutine1 for i=1 to 5 With UserForm1 For i = 1 To 3 Set Mycmd = .Controls.Add("Forms.CommandButton.1") Mycmd.Left = 0 Mycmd.Top = 100 * i Mycmd.Width = 175 Mycmd.Height = 20 Next i UserForm1.Show End With end sub Thanks for you help! |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Command Buttons | Excel Discussion (Misc queries) | |||
Command buttons | Excel Discussion (Misc queries) | |||
Command buttons | Excel Programming | |||
Control Buttons vs. Command Buttons | Excel Programming | |||
Dynamically Adding Code to Buttons on an existing UserForm | Excel Programming |