Tạo Macro AutoFilter theo điều kiện của 1 bảng (1 người xem)

[ThuyNguyenHN]

Chào các anh chị và các bạn!Em có file excel trong phầ đính kèm, em muốn tạo 1 nút Macro khi nhấn vào thì tự động bảng được lọc theo điều kiện của 1 vùng phía dưới.Cụ thể như sau:Khi nhấn nút Macro thì bảng A2:O3334 sẽ được lọc chỉ lấy sao cho cột C3:C3334 thỏa mãn bảng C3337:C3352 thôi còn các thứ khác sẽ bị lọc ẩn đi ạ. Khi giá trị trong C3337:C3352 thay đổi thì nhấn nút Macro bảng A2:O334 cũng lọc thay đổi theo.Em cảm ơn!

 

[Ba Tê]

Chào các anh chị và các bạn!Em có file excel trong phầ đính kèm, em muốn tạo 1 nút Macro khi nhấn vào thì tự động bảng được lọc theo điều kiện của 1 vùng phía dưới.Cụ thể như sau:Khi nhấn nút Macro thì bảng A2:O3334 sẽ được lọc chỉ lấy sao cho cột C3:C3334 thỏa mãn bảng C3337:C3352 thôi còn các thứ khác sẽ bị lọc ẩn đi ạ. Khi giá trị trong C3337:C3352 thay đổi thì nhấn nút Macro bảng A2:O334 cũng lọc thay đổi theo.Em cảm ơn!

Chuyện này thì dùng Advaced Filter, Record Macro sẽ có được 1 Macro cho bạn, tương tự như vầy:

Sub Macro1()
Range("A2", Range("A2").End(xlDown)).Resize(, 15).AdvancedFilter _
Action:=xlFilterInPlace, CriteriaRange:=Range("C3336:C3352"), Unique:=False
End Sub

 

[ThuyNguyenHN]

Em cảm ơn anh Ba Tê

Chuyện này thì dùng Advaced Filter, Record Macro sẽ có được 1 Macro cho bạn, tương tự như vầy:

Sub Macro1()
Range("A2", Range("A2").End(xlDown)).Resize(, 15).AdvancedFilter _
Action:=xlFilterInPlace, CriteriaRange:=Range("C3336:C3352"), Unique:=False
End Sub