|
Dynamic Optionbutton Captions
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 |
Dynamic Optionbutton Captions
I don't think you want to include the name of the frame enclosing the option
buttons. - Jon ------- Jon Peltier, Microsoft Excel MVP Tutorials and Custom Solutions http://PeltierTech.com _______ "WizOfAus" wrote in message ups.com... 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 |
Dynamic Optionbutton Captions
Hi Jon,
Thanks for the prompt reply. I tried the following and received this error "Method or data member not found (Error 461)" --------------------------------------------------------------------- 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.PlayerOptBut(i - 1).Caption = ButtonCaption MatchDayForm.PlayerOptBut(i - 1).Visible = True Next i --------------------------------------------------------------------- I believe the error is in this part of the code "PlayerOptBut(i - 1)". Regards Rob Jon Peltier wrote: I don't think you want to include the name of the frame enclosing the option buttons. - Jon ------- Jon Peltier, Microsoft Excel MVP Tutorials and Custom Solutions http://PeltierTech.com _______ |
Dynamic Optionbutton Captions
Hi Charles,
That did the trick. Thanks very much for your timely assistance and also to Jon. Charles Chickering wrote: Try this: MatchDayForm.TeamListFrame.Controls("PlayerOptBut" & i).Caption = ... -- Charles Chickering "A good example is twice the value of good advice." "WizOfAus" wrote: 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 |
Dynamic Optionbutton Captions
Interesting, I've never included it.
I missed the use of PlayerOptBut(i) instead of Controls("PlayerOptBut" & i). Answered this morning before the caffeine kicked in. - Jon ------- Jon Peltier, Microsoft Excel MVP Tutorials and Custom Solutions http://PeltierTech.com _______ "Charles Chickering" wrote in message ... Actually Jon, I've found that if I don't include the frame in the line my code runs much slower than if I do include it. -- Charles Chickering "A good example is twice the value of good advice." "Jon Peltier" wrote: I don't think you want to include the name of the frame enclosing the option buttons. - Jon ------- Jon Peltier, Microsoft Excel MVP Tutorials and Custom Solutions http://PeltierTech.com _______ "WizOfAus" wrote in message ups.com... 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 |
Dynamic Optionbutton Captions
It makes sense that it's faster, since it more directly references the
controls. I'd just never thought of it. - Jon ------- Jon Peltier, Microsoft Excel MVP Tutorials and Custom Solutions http://PeltierTech.com _______ "Charles Chickering" wrote in message ... Jon, if you get board sometime, take and place several (50-100) controls inside several different frames, then loop through with and without specifically calling the frame, unless my office 2003 install is whacked (which is always a possibility) calling the frame.control will be significantly faster. -- Charles Chickering "A good example is twice the value of good advice." "Jon Peltier" wrote: Interesting, I've never included it. I missed the use of PlayerOptBut(i) instead of Controls("PlayerOptBut" & i). Answered this morning before the caffeine kicked in. - Jon ------- Jon Peltier, Microsoft Excel MVP Tutorials and Custom Solutions http://PeltierTech.com _______ "Charles Chickering" wrote in message ... Actually Jon, I've found that if I don't include the frame in the line my code runs much slower than if I do include it. -- Charles Chickering "A good example is twice the value of good advice." "Jon Peltier" wrote: I don't think you want to include the name of the frame enclosing the option buttons. - Jon ------- Jon Peltier, Microsoft Excel MVP Tutorials and Custom Solutions http://PeltierTech.com _______ "WizOfAus" wrote in message ups.com... 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 |
| All times are GMT +1. The time now is 07:35 PM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com