Hỏi cách tạo Code VBA để tự động thực hiện Filter

[phanthinh1971]

Em muốn tạo mã VBA để có thể tự động thực hiện Filter khi thay đổi giá trị ở ô tham chiếu .
Mong các bác giúp em .

Cảm ơn nhiều .

 

[ptm0412]

Bạn chèn code này vào worksheet

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$9" Then
    Range("$B$10:$D$13").AutoFilter Field:=1, Criteria1:=Target.Value
End If
End Sub

 

[phanthinh1971]

Xin cảm ơn bác .
Nếu sau khi đã lọc ở Cột mã hàng rồi mà muốn tiếp tục lọc ở cột Số lượng theo giá trị của một ô khác (G9) thì có được ko hả bác ?

 

[ptm0412]

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$9" Then
    Range("$B$10:$D$18").AutoFilter
    Range("$B$10:$D$18").AutoFilter Field:=1, Criteria1:=Target.Value
End If
If Target.Address = "$G$9" Then
    Range("$B$10:$D$18").AutoFilter
    Range("$B$10:$D$18").AutoFilter Field:=3, Criteria1:=Target.Value
End If

End Sub