Private Sub ComboBox1_Change()
Dim Elmnt As Range, Col As Integer, J As Long
ListView1.ListItems.Clear
[[COLOR=Blue][B]A[/B][/COLOR]1].AutoFilter Field:=[COLOR=Blue][B]1[/B][/COLOR], Criteria1:=ComboBox[B][COLOR=Blue]1[/COLOR][/B].Value
For Each Elmnt In Range("A2", [A65536].End(xlUp)).SpecialCells(xlCellTypeVisible)
With Me.ListView1
.ListItems.Add , , Elmnt.Value
For J = 1 To 6
.ListItems(.ListItems.Count).ListSubItems.Add , , Elmnt.Offset(0, J).Value
Next
End With
Next
End Sub
Private Sub ComboBox2_Change()
Dim Elmnt As Range, Col As Integer, J As Long
ListView1.ListItems.Clear
[[COLOR=Blue][B]C[/B][/COLOR]1].AutoFilter Field:=[B][COLOR=Blue]3[/COLOR][/B], Criteria1:=ComboBox[B][COLOR=Blue]2[/COLOR][/B].Value
For Each Elmnt In Range("A2", [A65536].End(xlUp)).SpecialCells(xlCellTypeVisible)
With Me.ListView1
.ListItems.Add , , Elmnt.Value
For J = 1 To 6
.ListItems(.ListItems.Count).ListSubItems.Add , , Elmnt.Offset(0, J).Value
Next
End With
Next
End Sub