Need help creating Userform with data from Cells

[nzepeda]

I am trying to make a Userform that will display Sheet1 cells A1 and B1 down to A16 and B16 side by side with check boxes. The user must select 1 and only 1 option and this will be input into sheet 2 at A1 and B1 respectively. There will not be any blanks between the cells when going down, but not all the cells will used all the time, 16 is just the maximum.

I think I know how to make the look, but what I am having trouble with is getting the checkboxes to appear on the form along with the code for the userform to know where to look to get the values and what to do with it.

Any help would be appreciated.

 

[doofusboy]

The user must select 1 and only 1 option

Then you should NOT be using checkboxes, you should be using radio[option] buttons. Checkboxes are designed to be used when MORE than one option is to be selected.

 

[nzepeda]

Ok, that makes sense. Unfortunately that still does not completely solve my problem.

How would I go about making it so my Userform will check to see if there is a value in Sheet1 A1, then displaying that with a radio button. Then once the user hits "Ok" that value is placed in Sheet2 A1.

 

[doofusboy]

I can't write all that code for you right now, but here's something to get you started. Paste this in as code for your user form. When the form gets called, it will show the option buttons with the values from columns A & B as their captions.

I'll let you work out the rest.

Private Sub UserForm_Initialize()
Dim i As Integer
Dim ob As Object
    
    i = 1
    For Each ob In Me.Controls
        If Mid(ob.Name, 1, 12) = "OptionButton" Then
            ob.Caption = Sheet1.Range("A" & i).Value & " - " & Sheet1.Range("B" & i).Value
            i = i + 1
        End If
    Next ob
    
End Sub

 

[nzepeda]

I think from here I can do the rest.

Thank you.

I will try this and let you know how I do.

Thank you again.

 

[nzepeda]

How can I change the position of where the option button appears on the form?

 

[doofusboy]

Set the .Top and .Left properties of the option box.