Lọc dữ liệu và tự động lưu file excel theo từng bảng dữ liệu đã lọc (1 người xem)

[bloodtrail]

Chào tất cả mọi người,

Mình có trường hợp như thế này, mình có bảng dữ liệu như file đính kèm. Trong đấy nó sẽ có 1 bảng tham chiếu, để filter và lọc dữ liệu theo bảng tham chiếu đấy. Mình xin hỏi có cách nào để nó tự động lọc thành từng bảng dữ liệu theo cột tham chiếu, sau đấy tự lưu thành từng file ẽxcel riêng. Hoặc lọc xong tự động gửi email theo cột tham chiếu.

Xin lỗi mọi ngừoi xem theo file thứ 2 nhé, file kia ko có cột email, mình lại không biết xóa trên forum

Cảm ơn tất cả mọi người

 

[chuot0106]

Bạn giải thích khó hiểu qúa. Tốt nhất bạn nên nêu yêu cầu của mình 1 cách thật rõ ràng vào, sau đó bạn nhập kết quả mà bạn muốn có bằng tay vào trong File cho người giúp dễ hình dung. Khi đó sẽ có nhiều người giúp bạn hơn!

 

[bloodtrail]

Mình gửi lại nha, mình xin nói lại cụ thể hơn 1 chút.

Tại sheet dữ liệu ban đầu, nó có bảng tham chiếu cần lọc ở bên phải tức là tương ứng với giá trị cột 1 (A,B,C,D). Tại file đính kèm thì sau khi xử lý nó sẽ ra 2 bảng tương tự tại sheet Tach Bang A và Tach Bang B...
Từ các bảng dữ liệu trên, nó sẽ đối chiếu với bảng tham chiếu để gửi email cả bảng A tương ứng với email a@a.com và cả bảng B cho email b@b.com

Ý mình là thế, không biết diễn đạt cho lắm. Mong mọi người thông cảm.

 

[Quang_Hải]

Chào tất cả mọi người,

Mình có trường hợp như thế này, mình có bảng dữ liệu như file đính kèm. Trong đấy nó sẽ có 1 bảng tham chiếu, để filter và lọc dữ liệu theo bảng tham chiếu đấy. Mình xin hỏi có cách nào để nó tự động lọc thành từng bảng dữ liệu theo cột tham chiếu, sau đấy tự lưu thành từng file ẽxcel riêng. Hoặc lọc xong tự động gửi email theo cột tham chiếu.

Xin lỗi mọi ngừoi xem theo file thứ 2 nhé, file kia ko có cột email, mình lại không biết xóa trên forum

Cảm ơn tất cả mọi người

Code của bạn đây

Sub loc_goimail()
Dim data As Range, cll As Range
Set data = [a1].CurrentRegion
For Each cll In Range([I2], [I65536].End(3))
    data.AutoFilter 1, cll
    data.SpecialCells(12).Copy
    With Workbooks.Add
        .ActiveSheet.[a1].PasteSpecial 1
        .SaveAs ThisWorkbook.Path & "\" & cll & ".xlsx"
        .Close
    End With
    data.AutoFilter
    With CreateObject("Outlook.Application")
        .Session.Logon
        With .CreateItem(0)
            .To = cll.Offset(, 1)
            .Subject = "Thong Bao"
            .Body = "Dear " & vbNewLine & vbNewLine _
            & "noi dung dong 1" & vbNewLine _
            & "noi dung dong 2" & vbNewLine _
            & "noi dung dong 3" & vbNewLine & vbNewLine _
            & "Tran Trong" & vbNewLine & vbNewLine _
            & "Nguyen Van Teo"
            .Attachments.Add ThisWorkbook.Path & "\" & cll & ".xlsx"
            .Display
      End With
    End With
    Kill ThisWorkbook.Path & "\" & cll & ".xlsx"
Next
End Sub

 

[bloodtrail]

Em cảm ơn anh quanghai1969 , anh làm đúng như mong muốn của em. Một lần nữa em cảm ơn anh.