adding userform command buttons

[borg]

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!

[Yngve]

Hi borg

goto
http://www.contextures.com/xlUserForm01.html and here you will
learn to Create a Userform

Regads Yngve

[Paul Lautman]

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!

[borg]

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!
>
>
>
>