Chào a, nhờ a giúp với.
Mình đang làm code Advanced Filter ở Sheet Filter. Tuy nhiên mãng dữ liệu để lọc lại đang định dạng "Table" nên Code không hiểu nên ko chạy được. Vinh gửi File, mong được hướng dẫn cách xử lý.
Cảm ơn nhiều lắm ạ.
Code của bạn cũng gần đúng rồi, chỉ là sai tên của table thôi. Tên table là Data_01 nhưng bạn chưa đổi tên (vẫn là Table1) => mình có sửa lại và code chạy được.
Sheets("Data_Pro").Range("Data_01[#All]").AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Filter").Range("M2:O3"), _
CopyToRange:=Sheets("Filter").Range("B5:I5"), _
Unique:=False
Chú ý: các vùng điều kiện và vùng trích xuất nên chỉ định rõ là ở Sheet nào để code hoạt động chính xác hơn.
cảm ơn a nhiều nhé