Lọc dữ liệu!

[yome]

Chào cả nhà! Mình có file này post lên và nhờ cả nhà sửa dùm mình nhé!

 

[yome]

Đây là code mình đã làm:

Private Sub ComboBox1_Change()
Dim ma As String
ma = Me.ComboBox1.Text
    Sheet1.Range("A3:E47").AutoFilter Field:=2, Criteria1:=ma, Operator:=xlAnd
    ActiveWindow.SmallScroll Down:=-15
End Sub

 

[ndu96081631]

Đây là code mình đã làm:

Private Sub ComboBox1_Change()
Dim ma As String
ma = Me.ComboBox1.Text
    Sheet1.Range("A3:E47").AutoFilter Field:=2, Criteria1:=ma, Operator:=xlAnd
    ActiveWindow.SmallScroll Down:=-15
End Sub

Tôi không hiểu lắm ---> Lọc theo kiểu này thì cần quái gì code... Bấm vào mũi tên xổ xuống của AutoFilter mà chọn cho nó lẹ