Nhập SL tự động từ các sheet chi tiết vào sheet Tổng hợp

[thanh_chien]

Em chào các thầy và các anh chị ạ

Em được giao nhiệm vụ nhập số liệu tự động từ các sheet vào sheet Tổng hợp nhưng loay hoay mãi vẫn không hình dung được cách làm vì em chưa biết nhiều về VBA. Mong các thầy và các anh chị chỉ bảo giùm em với ạ.

Yêu cầu em đã ghi chi tiết trong file đính kèm.
Em xin cảm ơn các thầy và anh chị ạ

 

[ChanhTQ@]

Bạn chiêm nghiệm file đính kèm & cho biết vài í kiến!

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, [B1]) Is Nothing Then
   Dim Sh As Worksheet, Rng As Range, sRng As Range, Cls As Range, Rg0 As Range
   Dim Rws As Long
   Dim Col As Byte, Cot As Byte
   
   Rws = [b4].CurrentRegion.Rows.Count - 3
   [b5].Resize(Rws, 6).ClearContents
   For Each Cls In Range([a5], [a5].End(xlDown)) '**'
      For Each Sh In Worksheets
         If Left(Sh.Name, 2) <> "TH" Then
            Set Rng = Range([A3], [iV3].End(xlToLeft))
1 'Tìm Cot Chúa Ma Hàng:'
            Set sRng = Rng.Find(Left(Sh.Name, 2), , xlFormulas, xlPart)
            If Not sRng Is Nothing Then Cot = sRng.Column
2 ' Tìm Ngày San Xuát:'
            Set Rng = Sh.Range(Sh.[A2], Sh.[iv2].End(xlToLeft))
            Set sRng = Rng.Find([B1].Value, , xlFormulas, xlWhole)
            If Not sRng Is Nothing Then Col = sRng.Column
3 'Tìm San Luong Tùng Nguòi:'
            Set Rng = Sh.Range(Sh.[A2], Sh.[A65500].End(xlUp))
            Set sRng = Rng.Find(Cls.Value)
            If Not sRng Is Nothing Then
               Set Rg0 = Sh.Cells(sRng.Row, Col)
               Cells(Cls.Row, Cot).Value = Rg0.Value
               With Application.WorksheetFunction
                  Cells(Cls.Row, 1 + Cot).Value = .Sum(Sh.Range(sRng.Offset(, 1), Rg0))
               End With
            End If
         End If
      Next Sh
   Next Cls
 End If
End Sub