Giúp em Macro về Advanced filter với !!!!

[thainam2k]

Em xem hướng dẫn trên đây
http://www.meadinkent.co.uk/xlfilter.htm
Và làm theo như file đính kèm. Nhưng khi chạy bị báo lỗi.
Em không rành về lập trình lắm.
Mong các bác chỉ giáo cách fix lỗi giúp em.

 

[nghiaphuc]

Em xem hướng dẫn trên đây
http://www.meadinkent.co.uk/xlfilter.htm
Và làm theo như file đính kèm. Nhưng khi chạy bị báo lỗi.
Em không rành về lập trình lắm.
Mong các bác chỉ giáo cách fix lỗi giúp em.

Bạn tham khảo trong file nhé. Chỉ cần bố trí lại bảng tiêu chuẩn và sử dụng code như vầy thôi:

Sub AdFil()
    Sheet2.Activate
    Sheet1.[A3].CurrentRegion.AdvancedFilter xlFilterCopy, [A1:A2], [B8:F8]
End Sub

Lưu ý là dữ liệu của bạn chưa đúng chuẩn (các ô đều dư 1 khoảng trắng ở cuối). Mình đã sử dụng Replace để xóa chúng đi.