Viết giúp tổng của nhiều sheet

[thachthao0710]

Em chào các Anh (Chị).
Anh chị xem giúp em file sau đây.
Em muốn tạo sheet tổng các sheet này nhờ các Anh (Chị) viết giúp em.
Em cảm ơn

 

[Hoàng Tuấn 868]

Em chào các Anh (Chị).
Anh chị xem giúp em file sau đây.
Em muốn tạo sheet tổng các sheet này nhờ các Anh (Chị) viết giúp em.
Em cảm ơn

Bạn muốn viết như thế nào và theo mẫu nào nhỉ.

 

[thachthao0710]

Bạn muốn viết như thế nào và theo mẫu nào nhỉ.

Em muốn viết sheet tổng các sheet mà trong các sheet đó là inv khác nhau: mã sản phẩm và tên sản phẩm không giống nhau. Nếu dùng hàm SUMIF thì dẽ rất khó vì sheet tổng là của 12 tháng. File em gửi mới là của 1 tháng. Anh xem giúp em nhé

 

[Hoàng Tuấn 868]

Em muốn viết sheet tổng các sheet mà trong các sheet đó là inv khác nhau: mã sản phẩm và tên sản phẩm không giống nhau. Nếu dùng hàm SUMIF thì dẽ rất khó vì sheet tổng là của 12 tháng. File em gửi mới là của 1 tháng. Anh xem giúp em nhé

"inv" là gì bạn nhỉ?, Sao mã sản phẩm của bạn ở file Tổng không đủ vậy.

 

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

Em muốn viết sheet tổng các sheet mà trong các sheet đó là inv khác nhau: mã sản phẩm và tên sản phẩm không giống nhau. Nếu dùng hàm SUMIF thì dẽ rất khó vì sheet tổng là của 12 tháng. File em gửi mới là của 1 tháng. Anh xem giúp em nhé

Bạn chạy code sau thử nhé:

Sub TongHop_HLMT()
    Dim i As Integer, strSQl As String
    For i = 1 To 17
        strSQl = strSQl & " Union All Select * from [" & i & "$A14:F] Where F4 Is Not Null"
    Next
    strSQl = Right(strSQl, Len(strSQl) - 11)
    With CreateObject("ADODB.Recordset")
        .Open "Select F2,F3,F4,Sum(F5),Sum(F6) From (" & strSQl & ") Group By F2,F3,F4", "Provider=Microsoft.ACE.OLEDB.12.0;Data source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=No"""
         Sheet19.Range("B6").CopyFromRecordset .DataSource
    End With
End Sub

 

[thachthao0710]

Bạn chạy code sau thử nhé:

Sub TongHop_HLMT()
    Dim i As Integer, strSQl As String
    For i = 1 To 17
        strSQl = strSQl & " Union All Select * from [" & i & "$A14:F] Where F4 Is Not Null"
    Next
    strSQl = Right(strSQl, Len(strSQl) - 11)
    With CreateObject("ADODB.Recordset")
        .Open "Select F2,F3,F4,Sum(F5),Sum(F6) From (" & strSQl & ") Group By F2,F3,F4", "Provider=Microsoft.ACE.OLEDB.12.0;Data source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=No"""
         Sheet19.Range("B6").CopyFromRecordset .DataSource
    End With
End Sub

Em cảm ơn anh mà em ko biết sao lại bị lỗi ở dòng Sheet19.Range("B6").CopyFromRecordset .DataSource
Anh có thể xem giúp em được không ah.

 

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

Em cảm ơn anh mà em ko biết sao lại bị lỗi ở dòng Sheet19.Range("B6").CopyFromRecordset .DataSource
Anh có thể xem giúp em được không ah.

Có thể file của bạn dùng chạy code không có Sheet19, Vậy cái tên sheet mà bạn muốn ghi kết quả là sheet tên gì bạn?

 

[thachthao0710]

Có thể file của bạn dùng chạy code không có Sheet19, Vậy cái tên sheet mà bạn muốn ghi kết quả là sheet tên gì bạn?

Dạ file kết quả: Tong Hop

 

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

Dạ file kết quả: Tong Hop

Bạn thử chỉnh lại code dòng đó như sau:

Sheets("Tong Hop").Range("B6").CopyFromRecordset .DataSource

 

[thachthao0710]

Bạn thử chỉnh lại code dòng đó như sau:

Sheets("Tong Hop").Range("B6").CopyFromRecordset .DataSource

Vẫn bị lỗi anh ah. Em gửi lại file đính kèm và hình ảnh lỗi anh xem giúp em hixhix.

 

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

Vẫn bị lỗi anh ah. Em gửi lại file đính kèm và hình ảnh lỗi anh xem giúp em hixhix.
View attachment 254562

Tôi gửi file đính kèm, bạn thử chạy xem có lỗi gì không nhé.

 

[thachthao0710]

Tôi gửi file đính kèm, bạn thử chạy xem có lỗi gì không nhé.

Dạ em cảm ơn anh đã được rồi ah. Nếu không có chắc em làm khi nào mới xong nữa.

Bài đã được tự động gộp: 26/2/21

Tôi gửi file đính kèm, bạn thử chạy xem có lỗi gì không nhé.

Em có thể làm phiền anh được không ah. Tổng theo tên sản phẩm thì sẽ thế nào ah

 

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

Dạ em cảm ơn anh đã được rồi ah. Nếu không có chắc em làm khi nào mới xong nữa.

Lưu ý là bạn phải thay đổi trong code cho phù hợp với file của bạn. Ví dụ có sheet 18 trở đi thì nó chỉ lấy chỉ đến sheet 17 thôi nhé.

Dạ em có thể làm phiền anh thêm được không ah. Vì em muốn làm tổng theo từng mỗi mã sản phẩm thì sao ah. Vì code anh viết là tổng các sheet lại với nhau

Đã tổng hợp theo từng mã rồi mà bạn???

 

[thachthao0710]

Lưu ý là bạn phải thay đổi trong code cho phù hợp với file của bạn. Ví dụ có sheet 18 trở đi thì nó chỉ lấy chỉ đến sheet 17 thôi nhé.


Đã tổng hợp theo từng mã rồi mà bạn???

Lưu ý là bạn phải thay đổi trong code cho phù hợp với file của bạn. Ví dụ có sheet 18 trở đi thì nó chỉ lấy chỉ đến sheet 17 thôi nhé.

Dạ em sẽ thay đổi.

Đã tổng hợp theo từng mã rồi mà bạn???
Em không rõ sao còn một số mã lại không thể tổng hợp được

 

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

Lưu ý là bạn phải thay đổi trong code cho phù hợp với file của bạn. Ví dụ có sheet 18 trở đi thì nó chỉ lấy chỉ đến sheet 17 thôi nhé.

Dạ em sẽ thay đổi.

Đã tổng hợp theo từng mã rồi mà bạn???
Em không rõ sao còn một số mã lại không thể tổng hợp đượcView attachment 254567

Với file của bạn thì tôi chạy như sau:



Bạn nên xóa hết dữ liệu cũ của sheet kết quả trước khi chạy code thử xem sao nhé.

 

[Hoàng Tuấn 868]

Em cảm ơn anh mà em ko biết sao lại bị lỗi ở dòng Sheet19.Range("B6").CopyFromRecordset .DataSource
Anh có thể xem giúp em được không ah.

Mình không thấy bạn trả lời câu hỏi của mình và bạn đã có Anh Hai Lúa Miền Tây giúp rồi nhé.

 

[thachthao0710]

Với file của bạn thì tôi chạy như sau:

View attachment 254569

Bạn nên xóa hết dữ liệu cũ của sheet kết quả trước khi chạy code thử xem sao nhé.

Anh cho em hỏi nếu office thấp hơn office a đang tạo thì chạy có bị lỗi không ah

 

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

Anh cho em hỏi nếu office thấp hơn office a đang tạo thì chạy có bị lỗi không ah

Bạn dùng bản nào bạn?