Code Pastlink nhiều sheet vào sheet tổng! (2 người xem)

[pth_gpex]

Mình đang bí code này. Mong mọi người giúp đỡ!

 

[Quang_Hải]

Mình đang bí code này. Mong mọi người giúp đỡ!

Copy code này bỏ vào sheet theodoi

Private Sub Worksheet_Activate()
Sheet1.[A7:E10000].ClearContents
For Each sh In Worksheets
   If sh.CodeName <> "Sheet1" Then
      sh.Range("A7", sh.[E65536].End(3)).Copy Sheet1.[A65536].End(3)(2)
   End If
Next
End Sub

 

[pth_gpex]

Thank Quanghai, nhưng mà nếu các sheet Nk thay đổi theo chiều dọc thì ở sheet "Theo doi" code để tổng hợp thay đổi ra sao vậy Quanghai ơi, giúp mình với! (ví dụ sheet NK cột A là các chỉ mục còn cột B là nội dung)

Cột A Cột B
Họ tên A
Sinh ngày 12/11/1972
...

 

[Quang_Hải]

Thank Quanghai, nhưng mà nếu các sheet Nk thay đổi theo chiều dọc thì ở sheet "Theo doi" code để tổng hợp thay đổi ra sao vậy Quanghai ơi, giúp mình với! (ví dụ sheet NK cột A là các chỉ mục còn cột B là nội dung)

Cột A Cột B
Họ tên A
Sinh ngày 12/11/1972
...

Chỉ là nếu thôi, thực tế thì không ai tổng hợp như thế cả. Mà là nếu thì mình hỏng biết code đâu.