Tổng hợp dữ liệu từ nhiều sheet (1 người xem)

[pth_gpex]

Các bác giúp em VBA cái này với.
Tình hình là: trong workbook này có các sheet (Sheet dữ liệu từng loại hàng, Sheet MENU)
Nút Tổng hợp các mặt hàng có thể nằm ở sheet MENU nếu như sau khi bấm sẽ tạo ra sheet TH mặt hàng (Cách này ưu tiên hơn vì có thể tuỳ ý chỉnh sửa hoặc cộng trừ). Hoặc nút này nằm trong sheet TH tạo sẵn các dòng tiêu đề như các sheet mặt hàng.
Hãy giúp em copy chỉ 1 dòng đầu của mặt hàng (không tính dòng Tiêu đề) vì đây là dòng tổng cộng của mặt hàng đó.
Mỗi sheet mặt hàng là 1 mặt hàng tương ứng.
Nói chung là làm sao tạo ra được sheet TH như trong file mà chỉ cần 1 click tổng hợp.

Cảm ơn các bác!

 

[ndu96081631]

Các bác giúp em VBA cái này với.
Tình hình là: trong workbook này có các sheet (Sheet dữ liệu từng loại hàng, Sheet MENU)
Nút Tổng hợp các mặt hàng có thể nằm ở sheet MENU nếu như sau khi bấm sẽ tạo ra sheet TH mặt hàng (Cách này ưu tiên hơn vì có thể tuỳ ý chỉnh sửa hoặc cộng trừ). Hoặc nút này nằm trong sheet TH tạo sẵn các dòng tiêu đề như các sheet mặt hàng.
Hãy giúp em copy chỉ 1 dòng đầu của mặt hàng (không tính dòng Tiêu đề) vì đây là dòng tổng cộng của mặt hàng đó.
Mỗi sheet mặt hàng là 1 mặt hàng tương ứng.
Nói chung là làm sao tạo ra được sheet TH như trong file mà chỉ cần 1 click tổng hợp.

Cảm ơn các bác!

Tiêu đề bạn ghi là "Gửi file nhờ các bác giúp đỡ! "
Như vậy là PHẠM QUY nha
Lần đầu tôi sửa lại tiêu đề cho bạn, lần sau bị xóa bài ráng chịu

 

[pth_gpex]

Cảm ơn bạn ndu đã nhắc nhở, do mình mới post bài hỏi lần đầu.
Mong mọi người giúp đõ VBA này!

 

[Lê Duy Thương]

Các bác giúp em VBA cái này với.
Tình hình là: trong workbook này có các sheet (Sheet dữ liệu từng loại hàng, Sheet MENU)
Nút Tổng hợp các mặt hàng có thể nằm ở sheet MENU nếu như sau khi bấm sẽ tạo ra sheet TH mặt hàng (Cách này ưu tiên hơn vì có thể tuỳ ý chỉnh sửa hoặc cộng trừ). Hoặc nút này nằm trong sheet TH tạo sẵn các dòng tiêu đề như các sheet mặt hàng.
Hãy giúp em copy chỉ 1 dòng đầu của mặt hàng (không tính dòng Tiêu đề) vì đây là dòng tổng cộng của mặt hàng đó.
Mỗi sheet mặt hàng là 1 mặt hàng tương ứng.
Nói chung là làm sao tạo ra được sheet TH như trong file mà chỉ cần 1 click tổng hợp.

Cảm ơn các bác!

CHÉP ĐOẠN NÀY VÀO SHEET TH XEM SAO

Sub THMH()
 Dim WSH As Worksheet
 With Application
.ScreenUpdating = False
 Sheets("TH").Range("A5:F6500").ClearContents
 For Each WSH In ThisWorkbook.Worksheets
    If WSH.Name <> "TH" Then
        WSH.Range("A5:F5").Copy
        Sheets("TH").[A6550].End(3).Offset(1).PasteSpecial (12)
    End If
 Next
 .CutCopyMode = False
 .ScreenUpdating = True
 End With
End Sub

 

[Ba Tê]

Cảm ơn bạn ndu đã nhắc nhở, do mình mới post bài hỏi lần đầu.
Mong mọi người giúp đõ VBA này!

Thêm một code nữa cho vui

Public Sub GPE()
Dim Ws As Worksheet, dArr(1 To 1000, 1 To 6), K As Long, J As Long
For Each Ws In ThisWorkbook.Worksheets
    If Left(Ws.Name, 2) = "MH" Then
        K = K + 1
        dArr(K, 1) = K
        For J = 2 To 6
            dArr(K, J) = Ws.Cells(5, J).Value
        Next J
    End If
Next
With Sheets("TH")
    .[A5:F1000].ClearContents
    .[A5].Resize(K, 6).Value = dArr
End With
End Sub

 

[pth_gpex]

Các bác Pro thiệt, mới có 1 bữa mà đã xong code. Rất rất cảm ơn 2 bác Lê Duy Thương, và Ba Tê. Mình trích code của bác Ba Tê rất OK, à, còn của bác Lê Duy Thương thì còn copy dữ liệu của sheet khác, edit lại mới OK. Diễn đàn GPEX tuyệt!