AhmedOC
12-08-2020, 02:29 PM
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
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