Value in Combo Box 1 affects visibility of Combo Box 2

[apz84]

Hi, I was looking for some help on a excel worksheet which I have used the form control combo box on the worksheet and the combo boxes are populated by lists in hidden columns.

I have two combo boxes on the worksheet. From Combo Box 1 the user can select A, B or C. In combo box 2 the user can select between 5% through 95% (in 5% increments).

I would like combo box 2 to be hidden and only be visible upon selecting "C" in combo box 1. Is this possible? Any help would be appreciated.

Thank you!

 

[Sektor]

Something like this. FillCombo is test procedure to fill first combo.

[COLOR="Blue"]Private[/COLOR] [COLOR="Blue"]Sub[/COLOR] ComboBox1_Change()
    ComboBox2.Visible = ComboBox1.Value = "C"
[COLOR="Blue"]End[/COLOR] [COLOR="Blue"]Sub[/COLOR]

[COLOR="Blue"]Sub[/COLOR] FillCombo()
    [COLOR="Blue"]With[/COLOR] ComboBox1
        .Clear
        .AddItem "A"
        .AddItem "B"
        .AddItem "C"
    [COLOR="Blue"]End[/COLOR] [COLOR="Blue"]With[/COLOR]
[COLOR="Blue"]End[/COLOR] [COLOR="Blue"]Sub[/COLOR]

 

[apz84]

Thank you but it doesn't quite seem to work. I'm using the form control version of the combo box rather than the activex if that makes any difference.

Something like this. FillCombo is test procedure to fill first combo.

[COLOR="Blue"]Private[/COLOR] [COLOR="Blue"]Sub[/COLOR] ComboBox1_Change()
    ComboBox2.Visible = ComboBox1.Value = "C"
[COLOR="Blue"]End[/COLOR] [COLOR="Blue"]Sub[/COLOR]

[COLOR="Blue"]Sub[/COLOR] FillCombo()
    [COLOR="Blue"]With[/COLOR] ComboBox1
        .Clear
        .AddItem "A"
        .AddItem "B"
        .AddItem "C"
    [COLOR="Blue"]End[/COLOR] [COLOR="Blue"]With[/COLOR]
[COLOR="Blue"]End[/COLOR] [COLOR="Blue"]Sub[/COLOR]

 

[Sektor]

It matters much! Forms "comboboxes" are called DropDowns. Place this code to standard module and assign this macro to first DropDown.

[COLOR="Blue"]Sub[/COLOR] OnValueChange()
    [COLOR="Blue"]With[/COLOR] ActiveSheet
        .DropDowns("ComboBox2").Visible = _
            .DropDowns("ComboBox1").List(.DropDowns("ComboBox1").ListIndex) = "C"
    [COLOR="Blue"]End[/COLOR] [COLOR="Blue"]With[/COLOR]
[COLOR="Blue"]End[/COLOR] [COLOR="Blue"]Sub[/COLOR]