Trích lọc dữ liệu từ workbook Master sang workbook warehouse theo điều kiện

[thanh_jr]

Chào các anh chị,
Em mới học VBA đang muốn áp dung cho công việc.
Em muốn lấy dữ lieu trong shFormNhap( D4) làm điều kiện lọc vùng OrderNumber 01 trong ShMaster kết quả trả về là giá trị Duy Nhất trong cột Q( Balance Code 01) theo điều kiện . Ko lấy giá trị trùng lặp.
Kết quả có được điền vào vùng từ shFormNhap(B12) trở xuống.
Các anh chị xem giúp trong module.
Sub Trich_Loc_Su_Dung_Mang()
Trong code Em viết chắc là ko đúng với thuật ngữ VBA hay là logic chưa đúng hay sao mà giá trị trong dic và r không chạy vào trong vùng cần điền.
Mong các anh chị hướng dẫn giúp
Cám ơn.