I am trying to use a index to cycle through multiple command buttons inside a user form.

[kerrywayne]

I am trying to use a index to cycle through multiple command buttons inside a user form. I want to be able to refer to each button as "CommandButton" & number as the button names. The button .captions are stored in an array and I want to use a For Next loop the assight the captions to the command buttons. Is this doable without getting into ole coding? I have 88 command buttons.

I found the below code with Google search..

Dim bt As MSForms.CommandButton
Set bt = ActiveSheet.OLEObjects("Bridge_cmdbutton" & Number).Object
bt.Caption = "Some Descriptive Text"

At Least 2 problems: 1) my command buttons are not OLEObjects, 2) I am not inside a worksheet.

 

[kerrywayne]

I am trying to use a index to cycle through multiple command buttons inside a user form. I want to be able to refer to each button as "CommandButton" & number as the button names. The button .captions are stored in an array and I want to use a For Next loop the assight the captions to the command buttons. Is this doable without getting into ole coding? I have 88 command buttons.

I found the below code with Google search..

Dim bt As MSForms.CommandButton
Set bt = ActiveSheet.OLEObjects("Bridge_cmdbutton" & Number).Object
bt.Caption = "Some Descriptive Text"

At Least 2 problems: 1) my command buttons are not OLEObjects, 2) I am not inside a worksheet.

I tried the below as well.

Number = 0
commandbuttonname = "CommandButton" & Number
Comandbuttonname.Caption = "adfasdf"

 

[kerrywayne]

I tried the below as well.

Number = 0
commandbuttonname = "CommandButton" & Number
Comandbuttonname.Caption = "adfasdf"

It gave me a Run Time Error 424, Object required.

 

[AddinBox_Tsunoda]

You can reference and update multiple CommandButton properties (eg Caption) with syntax like [Me.Controls("CommandButton" & Index).Caption].

 

[kerrywayne]

Thank You Sir. I notice that both of the below work.

and

Those two letters "Me"....I'll have to research what that is all about.

Thanks Again,

Kerry