W
WizOfAus
Hi group,
WinXP Pro
Office 2003
I have created a userform with a frame and 22 optionbuttons. I have
made all optionbuttons hidden (visible=false). What I need to do is
when the form is shown to use a range's value as the caption for the
optionbuttons and to also make them visible. Not all buttons will
always be required, that is why I made them hidden when designing.
I have tried several different loops without success. Any help would be
greatly appreciated.
The buttons are named "PlayerOptBut1,
PlayerOptBut2.......PlayerOptBut22"
Here is my last attempt:
rr = Sheets("RND1").Range("A65536").End(xlUp).Row
For i = 2 To rr
ButtonCaption = Sheets("RND1").Range("D" & i).Value & ". " & _
Sheets("RND1").Range("C" & i).Value & " " & _
Sheets("RND1").Range("B" & i).Value
MatchDayForm.TeamListFrame.PlayerOptBut(i).Caption =
ButtonCaption
MatchDayForm.TeamListFrame.PlayerOptBut(i).Visible = True
Next i
Regards
Rob
WinXP Pro
Office 2003
I have created a userform with a frame and 22 optionbuttons. I have
made all optionbuttons hidden (visible=false). What I need to do is
when the form is shown to use a range's value as the caption for the
optionbuttons and to also make them visible. Not all buttons will
always be required, that is why I made them hidden when designing.
I have tried several different loops without success. Any help would be
greatly appreciated.
The buttons are named "PlayerOptBut1,
PlayerOptBut2.......PlayerOptBut22"
Here is my last attempt:
rr = Sheets("RND1").Range("A65536").End(xlUp).Row
For i = 2 To rr
ButtonCaption = Sheets("RND1").Range("D" & i).Value & ". " & _
Sheets("RND1").Range("C" & i).Value & " " & _
Sheets("RND1").Range("B" & i).Value
MatchDayForm.TeamListFrame.PlayerOptBut(i).Caption =
ButtonCaption
MatchDayForm.TeamListFrame.PlayerOptBut(i).Visible = True
Next i
Regards
Rob