copy nội dung của nhiều Sheet qua sheet tổng

[gaupu89]

Mình có file đính kèm và đã viết code nhưng chưa hoạt động,
copy 1 cell của nhiều Sheet ra Sheet tổng theo hàng ngang ( ở sheet tong tô vàng)

 

[ndu96081631]

Mình có file đính kèm và đã viết code nhưng chưa hoạt động,
copy 1 cell của nhiều Sheet ra Sheet tổng theo hàng ngang ( ở sheet tong tô vàng)

Sửa lại tí:

Public Sub copy()
  Dim ws As Worksheet, K As Long
  ReDim darr(1 To Worksheets.Count)
  For Each ws In Worksheets
    If UCase(ws.Name) <> "TONG" Then
      K = K + 1
      darr(K) = ws.Range("C2").Value
    End If
  Next ws
  if k then Sheets("tong").Range("A7").Resize(, K).Value = darr
End Sub