Nhờ các A/C Code lọc và cộng dữ liệu trùng, tổng hợp sang sheet khác!

[tieptouch]

Em xin chào cả nhà!
Em làm kế toán, theo dõi công nợ khách hàng bằng file excel. Mỗi khách hàng trong tháng của em có nhiều đơn hàng,
Em muốn nhờ các bác giúp em code giúp lọc, và cộng tổng hợp lại công nợ cho mỗi khách hàng ở sheet "CHI TIET", rồi tổng hợp sang sheet "TONG HOP" theo mẫu file excel đính kèm.
Phần này trên Excel có Công cụ Consolidate cũng có thể giúp em được phần này, nhưng em muốn dùng code VBA và bấm nút Buton để chạy luôn cho nhanh.
Phần này em thấy trên diễn đàn có rất nhiều các topic và code tương tự, nhưng em là người ko hiểu gì về code nên ko thể tự chỉnh theo ý mình được.
Rất mong nhận được sự giúp đỡ của mọi người.
Em xin cảm ơn!

 

[Gió mùa]

Em xin chào cả nhà!
Em làm kế toán, theo dõi công nợ khách hàng bằng file excel. Mỗi khách hàng trong tháng của em có nhiều đơn hàng,
Em muốn nhờ các bác giúp em code giúp lọc, và cộng tổng hợp lại công nợ cho mỗi khách hàng ở sheet "CHI TIET", rồi tổng hợp sang sheet "TONG HOP" theo mẫu file excel đính kèm.
Phần này trên Excel có Công cụ Consolidate cũng có thể giúp em được phần này, nhưng em muốn dùng code VBA và bấm nút Buton để chạy luôn cho nhanh.
Phần này em thấy trên diễn đàn có rất nhiều các topic và code tương tự, nhưng em là người ko hiểu gì về code nên ko thể tự chỉnh theo ý mình được.
Rất mong nhận được sự giúp đỡ của mọi người.
Em xin cảm ơn!

 

[Hai Lúa Miền Tây]

Em xin chào cả nhà!
Em làm kế toán, theo dõi công nợ khách hàng bằng file excel. Mỗi khách hàng trong tháng của em có nhiều đơn hàng,
Em muốn nhờ các bác giúp em code giúp lọc, và cộng tổng hợp lại công nợ cho mỗi khách hàng ở sheet "CHI TIET", rồi tổng hợp sang sheet "TONG HOP" theo mẫu file excel đính kèm.
Phần này trên Excel có Công cụ Consolidate cũng có thể giúp em được phần này, nhưng em muốn dùng code VBA và bấm nút Buton để chạy luôn cho nhanh.
Phần này em thấy trên diễn đàn có rất nhiều các topic và code tương tự, nhưng em là người ko hiểu gì về code nên ko thể tự chỉnh theo ý mình được.
Rất mong nhận được sự giúp đỡ của mọi người.
Em xin cảm ơn!

Muốn dùng ADO thì dùng như sau nhé:

Sub TongHop_HLMT()
    With CreateObject("ADODB.Connection")
        .Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=No"""
        Sheet1.Range("A5").CopyFromRecordset .Execute("Select F1,F2,Sum(F3),Sum(F4),Sum(F5),Sum(F13),Sum(F14),Sum(F15),Sum(F16),Sum(F17) from [CHITIET$D3:T36] group by F1,F2")
    End With
End Sub

 

[tieptouch]

Cảm ơn sự giúp đỡ của bạn rất nhiều!
Mình lấy code để thử cho file chính của mình thì phát hiện ra 1 thiếu sót của mình khi đưa file ví dụ.
Cột để lọc dữ liệu mình muốn là Cột D - Tên KH, . Ở Chương trình khi lọc xong tên KH (Cột B - Sheet TONGHOP) , sẽ tương trả tương ứng lại mã BP ở cột A bên trái.
Code bạn viết thì lọc theo Cột C - Mã BP, cho nên kết quả trả về sẽ bị thiếu các khách hàng khác của mã Bộ Phận đó quản lý ạ.
Mình đã lấy file của bạn, bổ sung thêm dữ liệu nhiều hơn ở cột D - Tên KH để bạn có thể thấy rõ hơn mong muốn của mình.
Rất mong bạn sửa giúp chút nữa ạ. Trân trọng!

 

[Gió mùa]

Cảm ơn sự giúp đỡ của bạn rất nhiều!
Mình lấy code để thử cho file chính của mình thì phát hiện ra 1 thiếu sót của mình khi đưa file ví dụ.
Cột để lọc dữ liệu mình muốn là Cột D - Tên KH, . Ở Chương trình khi lọc xong tên KH (Cột B - Sheet TONGHOP) , sẽ tương trả tương ứng lại mã BP ở cột A bên trái.
Code bạn viết thì lọc theo Cột C - Mã BP, cho nên kết quả trả về sẽ bị thiếu các khách hàng khác của mã Bộ Phận đó quản lý ạ.
Mình đã lấy file của bạn, bổ sung thêm dữ liệu nhiều hơn ở cột D - Tên KH để bạn có thể thấy rõ hơn mong muốn của mình.
Rất mong bạn sửa giúp chút nữa ạ. Trân trọng!

 

[tieptouch]

Cám ơn bạn rất nhiều!
Chương trình đã chạy đúng ý mình ^^