A OptionButton that populates a value in a ListBox, Textbox or Label

[ro_1991]

Hi, I have been working on a UserForm. Everything is working fine except for one thing, I have multiple OptionButtons from which you will need select 1. I want a Listbox, Textbox or Label to be populated by this choice. For instance, if you pick OptionButton1 I want Label 1 to be populated automatically. If you pick OptionButton2 I want aswell Label 1 to be populated. Thanks for your help in advance! Roderik

 

[bertie]

Hi, and welcome to the forum.

Assuming you have your lists stored in sheet1, something like:

Excel 2007
	A	B
1	List1	List2
2	Item1	Item4
3	Item2	Item5
4	Item3	Item6
Sheet1

Then set up click events for your option buttons:

Private Sub OptionButton1_Click()
   Me.ListBox1.List = Sheets("Sheet1").Range("A2:A4").Value
End Sub


Private Sub OptionButton2_Click()
    Me.ListBox1.List = Sheets("Sheet1").Range("B2:B4").Value
End Sub

For Labels or TextBoxes just send a value:

Private Sub OptionButton1_Click()
   Me.TextBox1.Value = "bertie"
End Sub

Hope this helps,
Bertie

 

[ro_1991]

Hi, Thank you very much for your help. After customization it worked perfectly. Cheers!