Help- Copy 1 ô cụ thể ở tất cả các sheets sang sheet mới (1 người xem)

[kendyvn]

Chào cả nhà,

mình mới tự học VBA và hiện đang rối ở cái này, mong cả nhà giúp đỡ.
Cụ thể mọi người xem giúp mình file đính kèm. Mình có 1 sheet đầu tên "TH" là sheet tổng hợp dữ liệu từ các sheets khác. Các sheets sau tên không theo thứ tự nhưng form giống hệt nhau. Mình muốn get toàn bộ dữ liệu ở ô C7 từ tất cả các sheets về cột A ở sheet "TH".

Mình code như sau:

Sub CopyPaste()
Dim ws As Worksheet
On Error Resume Next
Application.ScreenUpdating = False
For Each ws In Worksheets


If ws.Name <> "TH" Then
ws.Select
ws.Application.Run "copy"
End If
Next ws
End Sub


Sub copy()
Range("C7:C7").Select
Selection.copy
Sheets("TH").Select
Range("A1:A5").Select
ActiveSheet.Paste
End Sub

Nhưng hiện mới chỉ get được sheet cuối cùng chứ không chạy tiếp. Vậy "Next ws" của mình là sai? hay do lý do nào khác? Và nếu sửa thì sửa thế nào? Kính mong mọi người giúp đỡ ạ.

 

[kendyvn]

Cám ơn hpkhuong nhiều nhé! mình làm được rồi.

Nhưng do mới học vba, nên nhiều chỗ mình chưa hiểu. Bạn có thể giúp mình giải thích chỗ này là thế nào không?

Arr(K, 1) = Ws.Range("C7").Value

Thanks bạn!

 

[kendyvn]

Phần mảng mình chưa tìm hiểu nên đọc ko hiểu nghĩa của code đó. Tks hpkhuong nhiều