combo box?

[zabiullakhan]

I have 2 combo box and i want to change the input range of the second combo box with refrence to the value in first combo box.

For example

combo box 1 - "animals", "flowers"
combo box 2 - "dog", "cat", "lion", "rose", "lily", "lotus"

if i select "animals" in combo box 1 then combo box 2 should list only "dog", "cat", "lion"

if i select "flowers" in combo box 1 then combo box 2 should list only "rose", "lily", "lotus"

Please help

 

[pedie]

try

[FONT=Courier New]If ActiveSheet.ComboBox1.Value = "Flower" Then[/FONT]
[FONT=Courier New]ActiveSheet.ComboBox2.ListFillRange = Range("B1:B10") ' flower range[/FONT]
[FONT=Courier New]ElseIf ActiveSheet.ComboBox1.Value = "Fruits" Then[/FONT]
[FONT=Courier New]ActiveSheet.ComboBox2.ListFillRange = Range("A1:A10") 'fruits range[/FONT]
[FONT=Courier New]Else[/FONT]
[FONT=Courier New]End If[/FONT]

 

[zabiullakhan]

can you please paste the full function..

and i am using cobobox(from controls) as am not use to working on cobobox(activeX controls).

Please help

 

[zabiullakhan]

how can i take Range("B1:B10") and Range("A1:A10") from sheet4

 

[zabiullakhan]

i have this code to populate ComboBox2 with refrence to ComboBox1, however this ComboBox2 is not geting updated. please help

Private Sub ComboBox1_Change()
    If ActiveSheet.ComboBox1.Value = "animals" Then
        ActiveSheet.ComboBox2.ListFillRange = Range("Reference!B2:B7")      
    ElseIf ActiveSheet.ComboBox1.Value = "flowers" Then
        ActiveSheet.ComboBox2.ListFillRange = Range("Reference!B8:B14") 
    ElseIf ActiveSheet.ComboBox1.Value = "colors" Then
       ActiveSheet.ComboBox2.ListFillRange = Range("Reference!A14:A15")  
    End If
End Sub