Ghi dữ liệu từ sheet tổng đến các sheet chi tiết

Mình có 1 file Excel có 1 sheet tổng (Bao cao) chứa dữ liệu của tất cả các trại (101,102,103…) và các sheet chi tiết của từng trại có tên tương ứng (101, 102, 103…). Cứ 2 ngày thì mình phải nhập 1 lần số liệu trong Sheet "Bao cao", mình muốn sau khi nhập xong báo cáo thì tự động copy dữ liệu từ sheet "Bao cao" sang các sheet chi tiết "101, 102, 103…" và "ghi" lại dữ liệu trên các sheet chi tiết theo ngày tương ứng để sau đó xóa dữ liệu trên sheet "Bao cao" và nhập lại số liệu của đợt kế tiếp.
3884
Tuy nhiên mình chưa biết làm như thế nào, mong mọi người giúp đỡ mình nhé.

bạn lưu file theo định dạng: .xlsm hay .xlsb, chép code và chạy macro

Sub GPE()
Dim Dic As Object, Darr(), Ws As Worksheet, i As Integer, tmp As Long, Ngay As Long
Set Dic = CreateObject("scripting.dictionary")
Application.ScreenUpdating = False
With Sheets("Bao cao")
  Ngay = .Range("B2").Value2
  Darr = .Range("A1:A" & .Range("A65500").End(xlUp).Row).Value
  For i = 6 To UBound(Darr)
    Dic.Add Darr(i, 1), i
  Next i
  For Each Ws In ThisWorkbook.Sheets
    tmp = Val(Ws.Name)
    If Dic.exists(tmp) Then
      Darr = Ws.Range("A1:A" & Ws.Range("A65500").End(xlUp).Row).Value
      For i = 6 To UBound(Darr)
        If CLng(Darr(i, 1)) = Ngay Then
          Ws.Range("B" & i).Resize(1, 11).Value = .Range("B" & Dic.Item(tmp)).Resize(1, 11).Value
          Exit For
        End If
      Next i
    End If
  Next
  .Range("B6:L11").ClearContents
  .Range("B13:L18").ClearContents
  .Range("B20:L27").ClearContents
  .Range("B29:L33").ClearContents
  .Range("B35:L38").ClearContents
End With
Application.ScreenUpdating = True
End Sub

www.giaiphapexcel.com/diendan/threads/ghi-d%E1%BB%AF-li%E1%BB%87u-t%E1%BB%AB-sheet-t%E1%BB%95ng-%C4%91%E1%BA%BFn-c%C3%A1c-sheet-chi-ti%E1%BA%BFt.122857/#post-769186

Khóa học SprinGO phù hợp

Ứng dụng AI và Chat GPT trong Quản trị nhân sự

Học xong khóa này, học viên có thể: Hiểu đúng bản chất AI, các nhóm AI phổ biến và cách AI “hoạt động” ở...

Xem khóa học