Make a selection in a ComboBox based on a specific cell input

[DaniVD]

I'm trying to do this without using VBA.

I have 3 combo boxes with a list of 10 available selection items(the 3 combo boxes have the same list of 10 items). I want them to default to a specific selection when a value is entered in Cell A1. I want to save some time for the user, so that the user can input a value and all 3 combo boxes select that value from their list. Thanks in advance.

 

[AlphaFrog]

You could link all three comboboxes to cell A1, but anytime you change one combobox, the other two would change to the same value as well. I doubt that's what's you want.

I think it would require VBA. The code would be simple. What type of comboboxes are you using; ActiveX-type or Form-type?

 

[DaniVD]

You could link all three comboboxes to cell A1, but anytime you change one combobox, the other two would change to the same value as well. I doubt that's what's you want.

I think it would require VBA. The code would be simple. What type of comboboxes are you using; ActiveX-type or Form-type?

I'm using Form-type. I was trying to avoid VBA but it looks like that would be the simpler way to go. Thanks for the advice.

 

[AlphaFrog]

• Right-click on the sheet tab and select View Code from the pop-up context menu.
• Paste the code below in the worksheet's code module.
• Change the names of the three Drop Down form-type controls to suit.

[COLOR=darkblue]Private[/COLOR] [COLOR=darkblue]Sub[/COLOR] Worksheet_Change([COLOR=darkblue]ByVal[/COLOR] Target [COLOR=darkblue]As[/COLOR] Range)
    [COLOR=darkblue]If[/COLOR] Target.Address(0, 0) = "A1" [COLOR=darkblue]Then[/COLOR]
        ActiveSheet.DropDowns("[B]Drop Down 1[/B]").Text = Target.Value
        ActiveSheet.DropDowns("[B]Drop Down 2[/B]").Text = Target.Value
        ActiveSheet.DropDowns("[B]Drop Down 3[/B]").Text = Target.Value
    [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]If[/COLOR]
End [COLOR=darkblue]Sub[/COLOR]