Trying to place radio buttons using vba in a form. With a for next loop

**Kammphoto** · 04-28-2013, 12:11 PM

What I am trying to do is make a custom form based on values from the worksheet. I am looking up the values and using a for next loop to place the buttons on the form. I am also pulling the information for the buttons caption from the worksheet. I can get it to almost work until I try to use a variable. The problem is in this part of the code. I think.UserForm1.Controls.Add("Forms.inputbutton", "radioname", True)
Maybe I need to declare inputbutton as something other than variant. I am getting the error (Invalid string class ) Thanks for the help. I will post my code when I figure out how to do that.

**AlvaroSiza** · 04-28-2013, 12:53 PM

What happens if you try

Set MyRadio = me.controls.add("Forms.inputbutton.1", "radioname", True)

**Norie** · 04-28-2013, 12:59 PM

This code will add an option button called opt1.

Dim ctrlOpt As MSForms.OptionButton
    
    Set ctrlOpt = Me.Controls.Add("Forms.OptionButton.1", "opt1")

**Kammphoto** · 04-28-2013, 02:08 PM

This is my code. I am trying to use a variable that increases on each loop that will get the next value from the worksheet. I hope that I put the code in the correct way.

Private Sub UserForm_Initialize()


Dim startoption1 As Variant

Dim lastrow As Integer
Dim opt As Variant
Dim a As Integer
Dim inputbutton As Variant
Dim radioname As String
a = 1
lastrow = Sheets("start options").Range("a" & Rows.Count).End(xlUp).Row
For a = 1 To lastrow

startoption1 = Sheets("start options").Cells(a, 1)

inputbutton = "OptionButton." & a
'msgbox inputbutton   outputs OptionButton.1 then OptionButton.2 OptionButton.3 OptionButton.4 OptionButton.5 etc.........

radioname = "radioname" & a

' problem is with inputbutton. If I replace that with OptionButton.1 then it will work,but only with one button.
'i may need to set inputbutton to something I am not sure what to set it as.

Set opt = UserForm1.Controls.Add("Forms.inputbutton", "radioname", True)
opt.Caption = startoption1
Next
End Sub

**Norie** · 04-28-2013, 04:22 PM

This will add an option buttons each with a caption from column A on start options.

Private Sub UserForm_Initialize()
Dim startoption1 As String
Dim lastrow As Long
Dim opt As MSForms.OptionButton
Dim a As Long
Dim inputbutton As String
Dim radioname As String
Dim lngTop As Long

    lastrow = Sheets("start options").Range("a" & Rows.Count).End(xlUp).Row
    
    For a = 1 To lastrow

        startoption1 = Sheets("start options").Cells(a, 1)

        inputbutton = "OptionButton." & a
        'msgbox inputbutton   outputs OptionButton.1 then OptionButton.2 OptionButton.3 OptionButton.4 OptionButton.5 etc.........

        radioname = "radioname" & a

        ' problem is with inputbutton. If I replace that with OptionButton.1 then it will work,but only with one button.
        'i may need to set inputbutton to something I am not sure what to set it as.

        Set opt = UserForm1.Controls.Add("Forms.OptionButton.1", radioname, True)
        opt.Caption = startoption1
        opt.Top = lngTop
        lngTop = lngTop + opt.Height
    Next
End Sub

It places the option buttons down the left of the form with no space between.

**Kammphoto** · 04-28-2013, 05:35 PM

Thank You. It worked great. I was wondering if you could give me a little tutorial on how this works. It looks like the main part is DIM OPT AS MSFORMS.OPTIONBUTTON. BUt I am a little confused on what is going on behind the scenes. I would like a better understanding because this is just the start of my project and I will be needing to pull all sorts of data from different sheets based on what the user enters. via-check boxes, input fields and buttons. Thanks again.