tổng hợp dữ liệu từ nhiều sheet vào 1 sheet ( sheet tổng hợp không cùng form)

[duylinh241]

Nhờ các anh chị trợ giúp code VBA tổng hợp dữ liệu từ nhiều sheet data (có cùng form) vào 1 sheet tổng hợp( không cùng form với các sheet data) số liệu theo tiêu đề.
Em mới bước đầu tìm hiểu VBA mà đang cần tổng hợp gấp nên mong mọi người trợ giúp em
Em xin cám ơn

 

[snow25]

Nhờ các anh chị trợ giúp code VBA tổng hợp dữ liệu từ nhiều sheet data (có cùng form) vào 1 sheet tổng hợp( không cùng form với các sheet data) số liệu theo tiêu đề.
Em mới bước đầu tìm hiểu VBA mà đang cần tổng hợp gấp nên mong mọi người trợ giúp em
Em xin cám ơn

Gấp thì cũng phải đầy đủ chứ.Vứt cái file lên đây rồi chẳng nói tổng hợp thế nào.Tổng hợp vào đâu.Lấy những cái gì.Bài này chắc tầm 20 bài chưa chuẩn được code.

 

[duylinh241]

Gấp thì cũng phải đầy đủ chứ.Vứt cái file lên đây rồi chẳng nói tổng hợp thế nào.Tổng hợp vào đâu.Lấy những cái gì.Bày này chắc tầm 20 bài chưa chuẩn được code.

Em xin lỗi . Các bác xem sửa giúp em đoạn code này với ạ . em muốn copy từ I19:I49 các sheet "NHDV*" sang sheet "tong_hop" vào từ dòng AA11 trở đi theo dạng transpose nhưng khi chạy lệnh thì bị paste vào dòng 1123 trở đi và không paste xuống dòng được mà paste đè lên

Public wk As Workbook
Public ws As Worksheet
Public lr As Long, lrdata As Long
Public frdata As Long


Sub debit_regina()
Set wk = ThisWorkbook
Set ws = wk.Sheets("tong_hop")

For i = 2 To Sheets.Count
Sheets(i).Select
lrdata = Sheets(i).Cells(Rows.Count, 1).End(xlUp).Row
Range("I19:I49" & lrdata).Copy

ws.Select
lr = ws.Cells(Rows.Count, 1).End(xlUp).Row
Range("AA11" & lr + 1).PasteSpecial Transpose:=True


Next i

End Sub

 

[snow25]

Em xin lỗi . Các bác xem sửa giúp em đoạn code này với ạ . em muốn copy từ I19:I49 các sheet "NHDV*" sang sheet "tong_hop" vào từ dòng AA11 trở đi theo dạng transpose nhưng khi chạy lệnh thì bị paste vào dòng 1123 trở đi và không paste xuống dòng được mà paste đè lên

Public wk As Workbook
Public ws As Worksheet
Public lr As Long, lrdata As Long
Public frdata As Long


Sub debit_regina()
Set wk = ThisWorkbook
Set ws = wk.Sheets("tong_hop")

For i = 2 To Sheets.Count
Sheets(i).Select
lrdata = Sheets(i).Cells(Rows.Count, 1).End(xlUp).Row
Range("I19:I49" & lrdata).Copy

ws.Select
lr = ws.Cells(Rows.Count, 1).End(xlUp).Row
Range("AA11" & lr + 1).PasteSpecial Transpose:=True


Next i

End Sub

Sửa thành như thế này xem Range("AA" & lr + 1).PasteSpecial Transpose:=True

 

[duylinh241]

Sửa thành như thế này xem Range("AA" & lr + 1).PasteSpecial Transpose:=True

Em sửa lại thì vẫn không xuống dòng và bị paste từ dòng 23 trở đi

 

[snow25]

Em sửa thì có xuống dòng rồi nhưng không paste được dòng AA11 mà dữ liệu paste vào dòng AA22 trở đi

Vậy,làm câu lệnh,xóa dữ liệu cũ đi.Rồi tìm dòng cuối.Xóa để ngoài vòng lặp nhé.

 

[cantl]

Thử xem.

Public wk As Workbook
Public ws As Worksheet
Public lr As Long, lrdata As Long
Public frdata As Long
Sub debit_regina()
    Application.ScreenUpdating = False
    Set wk = ThisWorkbook
    Set ws = wk.Sheets("tong_hop")

    For i = 1 To Sheets.Count
        If Sheets(i).Visible = True And Left(Sheets(i).Name, 4) = "NHDV" Then
            Sheets(i).Select
            'lrdata = Sheets(i).Cells(Rows.Count, 1).End(xlUp).Row
            Range("I19:I49").Copy
            ws.Select
            lr = ws.Cells(Rows.Count, 1).End(xlUp).Row
            frdata = Sheets("tong_hop").Cells(lr, 1).End(xlUp).Row
            Range("AA" & (lr + i - 1)).PasteSpecial Transpose:=True
        End If
    Next
    Application.ScreenUpdating = True
End Sub

 

[befaint]

Dùng Sheets là hỏng bánh kẹo rồi.
Sheet object gồm: Worksheet, Sheet Chart
Lấy bảng dữ liệu thì người ta phải gọi Worksheet.

 

[cantl]

Dùng Sheets là hỏng bánh kẹo rồi.
Sheet object gồm: Worksheet, Sheet Chart
Lấy bảng dữ liệu thì người ta phải gọi Worksheet.

View attachment 282373

Cái này rút kinh nghiệm được, chào bạn cãi cũ nhé.