Fastest way to fill in values on a form

I have 15 groups of 3 optionbuttons that need to have previously selected values included. They all have similar names and it seems like I should be able to use a looping macro to call up each value, but I'm not allowed to use the form of:

buttonname = cell value + loop
formname.buttonname.value = true/false

Is it possible to do what I want to do, or am I stuck manually naming each button and giving it a value?

For i = 1 To 15
v1 = sheets("admin").Cells(80 + i, 3).Value + "NI"
v2 = sheets("admin").Cells(80 + i, 3).Value + "I"
v3 = sheets("admin").Cells(80 + i, 3).Value + "E"
If Cells(80 + i, 2) = "Excluded" Then
Options.v1.Value = False
Options.v2.Value = False
Options.v3.Value = True
ElseIf Cells(80 + i, 2) = "Included" Then
Options.v1.Value = False
Options.v2.Value = True
Options.v3.Value = False
Else
Options.v1.Value = True
Options.v2.Value = False
Options.v3.Value = False
End If
Next

I can't tell exactly what your code is trying to do, but if you had option buttons named "opt1" through "opt15", you could do this in the userform module:

Please Login or Register  to view this content.

Yep, that was the trick. This works just as I needed it to,

For i = 1 To 15
v1 = Sheets("admin").Cells(80 + i, 3).Value + "NI"
v2 = Sheets("admin").Cells(80 + i, 3).Value + "I"
v3 = Sheets("admin").Cells(80 + i, 3).Value + "E"
If Sheets("admin").Cells(80 + i, 2).Value = "Excluded" Then
Options.Controls(v1).Value = False
Options.Controls(v2).Value = False
Options.Controls(v3).Value = True
ElseIf Sheets("admin").Cells(80 + i, 2).Value = "Included" Then
Options.Controls(v1).Value = False
Options.Controls(v2).Value = True
Options.Controls(v3).Value = False
Else
Options.Controls(v1).Value = True
Options.Controls(v2).Value = False
Options.Controls(v3).Value = False
End If
Next

As option buttons, you only need to set one to True, and the others in the same frame will automatically switch to False -- that's what option buttons do ...

Originally Posted by wilro85

Yep, that was the trick. This works just as I needed it to,

here I fixed it for you

Originally Posted by wilro85

Yep, that was the trick. This works just as I needed it to,
Thanks for the help

Wilro, please take SuitedAces gentle point ...