Combo box and option buttons

I have an excel sheet with 5 option buttons (toolbox option buttons) embedded in the sheet. I also have a combobox embedded on the same sheet. Off to the side, I have a list of values that I would like to fill the combobox with based on which option button is selected. I'm not too familiar with using the case select command in VBA. Right now, I have the following code for the combobox:

Private Sub ComboBox4_Change()
If OptionButton1.Value = True Then
Sheet1.ComboBox4.ListFillRange = "T5:T278"

Else

If OptionButton2.Value = True Then
Sheet1.ComboBox4.ListFillRange = "T279:T552"

Else

If OptionButton3.Value = True Then
Sheet1.ComboBox4.ListFillRange = "T1150:T1639"

Else

If OptionButton4.Value = True Then
Sheet1.ComboBox4.ListFillRange = "T1640:T1676"

Else

If OptionButton5.Value = True Then
Sheet1.ComboBox4.ListFillRange = "T553:T1149"

End If
End If
End If
End If
End If


End Sub

This works fine but only if I select a value from the combobox twice, meaning that if option button 2 is checked, the values for option button 3 might be in the combobox unless I click on a value on the list and then the values for option 2 are now in the combobox. It sounds a lot more complicated than it is but I don't know how to fix it!

you don't want the change fill range to be connected to the combo box change routine. It should be hooked to each option button's Click routine. Here is a different form of your routine. The click event for each of the option buttons calls the reset routine.

Please Login or Register  to view this content.