Combo Box Depend on TextBox Value

[Abhishek1988]

Hello Everyone,

I have two option button :

London_Click() and Paris_Click()

One text Box :

TextBox1_Change()

One combo box:

DropDown_Change()

Under the Combo box I have below items:

"High London"
"Low London"
"High London 2"
"Low London 2"
"High Paris"
"Low Paris"
"High Paris 2"
"Low Paris 2"



my combo box is depended on the option button with below code. P2:P5 are related to london. P6:P9 are related to Paris

If UserForm1.London.Value = True Then
UserForm1.DropDown.RowSource = "P2:P5"




If UserForm1.Paris.Value = True Then
UserForm1.DropDown.RowSource = "P6:P9"



Now I need further filter on drop down based on textvalue.

If text value is High and London checkbox is checked then it should shows only high london and high london 2
If text value is low and London checkbox is checked then it should shows only low london and low london 2
If text value is High and Paris checkbox is checked then it should shows only high Paris and high Paris 2
If text value is low and Paris checkbox is checked then it should shows only low Paris and low paris 2

also help me where is should put coding..

thanks

 

[Richard U]

why not use a second set of option buttons? Put each set in a frame, and you're good.

 

[Richard U]

You may want to use another combo box and have the values as "High", "Low", and ""

The code you want the following code

Private sub London_Click()

if me.london then
     select case me.comboHIghLow.value

              Case "High"
                     me .DropDown.RowSource = "P4:P5"
             Case "Low"
                     me .DropDown.RowSource = "P2:P3"
             Case else
                     me .DropDown.RowSource = "P2:P5"
     End select

Else

     select case me.comboHIghLow.value

              Case "High"
                     me .DropDown.RowSource = "P8:P9"
             Case "Low"
                     me .DropDown.RowSource = "P6:P7"
             Case else
                     me .DropDown.RowSource = "P6:P9"
     End select
end if
end sub


Private sub Paris_Click()

if me.london then
     select case me.comboHIghLow.value

              Case "High"
                     me .DropDown.RowSource = "P4:P5"
             Case "Low"
                     me .DropDown.RowSource = "P2:P3"
             Case else
                     me .DropDown.RowSource = "P2:P5"
     End select

Else

     select case me.comboHIghLow.value

              Case "High"
                     me .DropDown.RowSource = "P8:P9"
             Case "Low"
                     me .DropDown.RowSource = "P6:P7"
             Case else
                     me .DropDown.RowSource = "P6:P9"
     End select
End if
end sub