Please Help ( vba combobox code )

[AhmedOC]

i use this code for combobox2 to show only filterd data in it .. and it's work but when i select anything from this list nothing happend
i mean that combox don't read or select my choise.. in another meaning ,, when i select anything from list .. combox still empty
_______________________

Private Sub ComboBox2_DropButtonClick()

Worksheets("2").Range("F4").AutoFilter Field:=1, Criteria1:=ComboBox1.Value
Dim rRange As Range
Dim VisibleRange As Range

Set rRange = Sheets("2").Range("i4:I20")


Set VisibleRange = rRange.SpecialCells(xlCellTypeVisible)
ComboBox2.Clear
For Each rcell In VisibleRange
ComboBox2.AddItem rcell
Next


End Sub
_______________________
please help

[SamT]

and it's work but when i select anything from this list nothing happend
i mean that combox don't read or select my choise.. in another meaning ,, when i select anything from list .. combox still empty
I don't understand... In English, you said "The list is in the ComboBox," and said "The list is NOT in the Combobox."