Tự thay giá trị Lọc và tạo sheet mới (1 người xem)

[cuncon207]

Xin chào Anh/Chị

Em cần xuất báo cáo bán hàng, hiện tại, em đang dùng AdvancedFilter để xuất.
Vấn đề là mỗi lần muốn xuất báo cáo cho một Khách hàng có code khác nhau, phải thay đổi điều kiện lọc bằng tay rất mệt mỏi

Vậy cho em hỏi làm cách nào mình có thể xuất nhiều báo cáo riêng biệt cho từng khách hàng theo một danh sách điều kiện code cho trước

Em xin cảm ơn trước!

Code hiện tại như sau:

Sub XuatBaoCao()

Sheets("Export").Select
Range("A18:L1000").Select
Application.CutCopyMode = False
Selection.Clear
Sheets("JuneConsignment").Select
Range("A1:L1000").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("N1:N2"), Unique:=False
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Export").Select
Range("A19").Select
ActiveSheet.Paste
Sheets("JuneConsignment").Select
Application.CutCopyMode = False
ActiveSheet.ShowAllData
Sheets("Export").Copy

End Sub

 

[ChanhTQ@]

Theo những gì mình đọc được trong macro thì:

Bạn cần thay đổi trị đang chứa trong [N2] sau mỗi lần lọc & copy đi đâu đó;

Việc này có thể làm như sau:

Thiết lập vòng lặp

 For Each Cls In Range("Code")
'Range("Code") là vùng ô chứa mã các khách hàng'
    [N2].Value= Cls.Value 
    'Các Câu lệnh lọc & Copy  '
    ' . . . . . .  . . . .  . . '
    
 Next Cls

Chúc bạn thành công!