Lọc dữ liệu theo điều kiện

[lehang159]

Dạ nhờ Anh/Chị xem giúp em trường hợp này theo file đính kèm với ạ.
Nếu em chọn tại ô A1 của Sheet "Filter" theo dạng list của Data Validation thì tự động lọc được data ở bảng dưới ô đó, còn nếu em tham chiếu về giá trị của ô A1 sheet "Refer" và chọn theo list từ sheet "Refer" thì data không tự động lọc được ạ.
Làm thế nào để khi chọn điều kiện ở sheet "Refer" thì bên sheet "Filter" tự động lọc dữ liệu tương ứng ạ?
Em cảm ơn ạ!

 

[HUONGHCKT]

Dạ nhờ Anh/Chị xem giúp em trường hợp này theo file đính kèm với ạ.
Nếu em chọn tại ô A1 của Sheet "Filter" theo dạng list của Data Validation thì tự động lọc được data ở bảng dưới ô đó, còn nếu em tham chiếu về giá trị của ô A1 sheet "Refer" và chọn theo list từ sheet "Refer" thì data không tự động lọc được ạ.
Làm thế nào để khi chọn điều kiện ở sheet "Refer" thì bên sheet "Filter" tự động lọc dữ liệu tương ứng ạ?
Em cảm ơn ạ!

Trong module Sheets Refer them đoạn code sau:

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Range("A1")) Is Nothing Then
        Sheets("Filter").Range("A1") = Target
    End If
End Sub

 

[lehang159]

Trong module Sheets Refer them đoạn code sau:

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Range("A1")) Is Nothing Then
        Sheets("Filter").Range("A1") = Target
    End If
End Sub

Dạ em cảm ơn anh nhiều ạ.