Tự động ghép danh sách từ những danh sách khác nhau (1 người xem)

[dong_ly06]

Mình có một file như thế này mong mọi người giúp dùm mình nhen. Mình có tất cả 4 danh sách ở 4 sheet khác nhau, bây giờ mình muốn tạo một sheet mới để tổng hợp danh sách ở 4 sheet kia. Nhưng khi 4 danh sách kia có thêm bớt gì thì sheet tổng hợp cũng phải cập nhật ngay. Mong mọi người đóng góp nhiệt tình nhe. Mình gởi kèm file.

 

[ChanhTQ@]

Bạn xem theo file: Cứ mở trang 'TH' sẽ có đủ danh sách HS cho bạn

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\///,,

 

[Quang_Hải]

Mình có một file như thế này mong mọi người giúp dùm mình nhen. Mình có tất cả 4 danh sách ở 4 sheet khác nhau, bây giờ mình muốn tạo một sheet mới để tổng hợp danh sách ở 4 sheet kia. Nhưng khi 4 danh sách kia có thêm bớt gì thì sheet tổng hợp cũng phải cập nhật ngay. Mong mọi người đóng góp nhiệt tình nhe. Mình gởi kèm file.

Mình nghĩ phải làm bằng code mới đặng. Xem file.

Hic. Gởi chậm rồi. Nhưng cứ để đó cho vui nhà. Code chắc là tương tự.

 

[dong_ly06]

Nếu có thêm nhiều sheet dữ lieu nữa thì code sẽ viết như thế nào bạn. Ví dụ sẽ có thêm sheet T12, sheet T1 ....Và sắp xếp theo thứ tự lớp tăng dần. mong anh em giúp đỡ. cám ơn.

 

[Quang_Hải]

Nếu có thêm nhiều sheet dữ lieu nữa thì code sẽ viết như thế nào bạn. Ví dụ sẽ có thêm sheet T12, sheet T1 ....Và sắp xếp theo thứ tự lớp tăng dần. mong anh em giúp đỡ. cám ơn.

Trong code của mình thì thêm dòng đỏ vào

Sub TH()
Dim sh As Worksheet
Sheets("TH").[N6:R10000].ClearContents
For Each sh In Worksheets
If sh.Name <> "TH" Then
sh.Range(sh.[N6], sh.[N65536].End(3)).Resize(, 5).Copy Sheets("TH").[N65536].End(3).Offset(1)
End If
Next
[N6:R10000].Sort [P5]
End Sub

 

[dong_ly06]

bạn làm dùm minh nhe

mình thêm các sheet dữ lieu mới vào. bây giờ ở sheet CN bạn tổng hợp dùm mình. Và sắp xếp tăng dần theo lớp.

 

[Quang_Hải]

mình thêm các sheet dữ lieu mới vào. bây giờ ở sheet CN bạn tổng hợp dùm mình. Và sắp xếp tăng dần theo lớp.

Tự xem lại file của mình coi có hợp lý không nha. Viết code giúp mấy cái file thế này >>> chán.

 

[dong_ly06]

SORY mình chưa nhập dữ liệu

bạn giúp mình nhe. mình sữa lại rồi.

 

[Quang_Hải]

bạn giúp mình nhe. mình sữa lại rồi.

1. Trong các sheet phụ không có cột địa chỉ, nhưng sheet tổng hợp lại có.
2. Bạn quá lười. Với những dòng code trên, chỉ cần suy nghĩ 1 chút thì sẽ biết làm thế nào để có thể ứng dụng vào file

 

[dong_ly06]

Bạn tổng hợp dùm mình file hoàn chỉnh này nhe.

Mình mò hoài mà không làm được nên mới hỏi bạn, giúp mình tổng hợp sheet CN. Hình như code của bạn bị lỗi. Do các sheet không có danh sách học sinh nên code không hoạt động được, bị lỗi. Làm sao mà khi không có danh sách học sinh thì nó bỏ qua không cập nhật. Mình gửi bạn file hoành chỉnh của mình mới làm. . Mỗi tháng sẽ có thêm danh sách học sinh mới, lúc này mình mới cập nhật thêm.

 

[Quang_Hải]

Mình mò hoài mà không làm được nên mới hỏi bạn, giúp mình tổng hợp sheet CN. Hình như code của bạn bị lỗi. Do các sheet không có danh sách học sinh nên code không hoạt động được, bị lỗi. Làm sao mà khi không có danh sách học sinh thì nó bỏ qua không cập nhật. Mình gửi bạn file hoành chỉnh của mình mới làm. . Mỗi tháng sẽ có thêm danh sách học sinh mới, lúc này mình mới cập nhật thêm.

Sub TH()
Dim sh As Worksheet, nguon(), kq(1 To 10000, 1 To 5), i, j, n
Sheets("CN").[A5:F10000].ClearContents
For Each sh In Worksheets
   If sh.Name <> "CN" Then
      nguon = sh.[N6:R1000].Value
      For i = 1 To UBound(nguon)
         If Len(nguon(i, 1)) > 5 Then
            j = j + 1
            For n = 1 To 5
               kq(j, n) = nguon(i, n)
            Next
         End If
      Next
   End If
Next
With [B5]
   .Resize(j, 5) = kq
   .Resize(j, 5).Sort [D4]
   .Resize(j).Offset(, -1) = [row(a:a)]
End With
End Sub