Sub TongHopDuLieu()
Dim Sh As Worksheet
Dim Rws As Long, Col As Byte
For Each Sh In ThisWorkbook.Worksheets
If Sh.Name <> "THop" Then
Rws = Sh.[B3].CurrentRegion.Rows.Count
If Rws > 1 Then
Col = Sh.[B3].CurrentRegion.Columns.Count
Sh.[A4].Resize(Rws, Col).Copy Destination:=Sheets("THop").[A65500].End(xlUp).Offset(1)
End If
End If
Next Sh
End SubHay quá bạn ơi...cám ơn bạn nhiều lắm.Bạn cho mình hỏi ví dụ nếu mình thay đổi số liệu ở 1 sheet thì ờ sheet tổng hợp có thay đổi theo không bạn...nếu được bạn chỉ minh cái này luôn nhe
Có 2 khả năng:
Ví dụ như mình chỉnh sửa hoặc thêm đối tượng mới thì sheet tổng hợp nó được cập nhật theo,. Chứ mỏi lần mình nhấn F5 thì nó tổng hợp lần nửa như vậy sẽ bị trùng.
Thứ nhất, Các thành viên ở các trang tính cần có mã duy nhất; Điều này là cần thiết để không có việc râu ông này cắm vô cằm bà kia, như ông bà nói.
Dạ e sài code thầy mới cho e lúc nảy thì rất tốt.... nhưng khi thêm mới đối tượng e bấm F5 lần nửa thì nó tổng hợp lần nửa dẫn đến bị trùng. có cách nào mà khi thêm đối tượng mới thi tự động cập nhật bên sheet tổng hợp không thầy.E cám ơn
FMT00 Đỗ Thị Mỹ Trâm
FMT01 Đỗ Minh Trường
FMT02 Đỗ Thị Minh Tâm
FNA00 Đoàn Ngọc Anh
FNA01 Đặng Thị Ngọc Ân
FNC00 Đặng Quỳnh Ngọc Châu
FNH00 Đào Trần Nhật Hào
FNH01 Đinh Ngọc Hùng
FNH00 Đinh Nhật Hào
FNL00 Đặng Ngọc Lâm
FNP00 Đặng Ngọc Phương
FNT00 Đoàn Ngọc Thuận
FNT01 Đỗ Nguyễn Ngọc Tường
FNY00 Đặng Hồ Như Ý
FNY01 Đỗ Thùy Ngọc Ý
FJV00 Đào Viễn
. . . . . . . . ._ Dạ E cám ơn. đoạn code đó có thể sử dụng cho file này được không thầy, Nếu được thì mình cần sửa lại ở chổ nào trong đoạn code.
Thầy giúp dùm e lần nửa đi thầy. Cám ơn thầy
Thầy ơi. E đã sao chép cái bài của thầy xong rồi e thay đổi vài hàng nhưng đoạn code không chạy.. nhờ thầy chỉnh lại đoạn code dùm e xíu nhe thầy.E cám ơn thầy nhiều
Thầy ơi. E đã sao chép cái bài của thầy xong rồi e thay đổi vài hàng nhưng đoạn code không chạy.. nhờ thầy chỉnh lại đoạn code dùm e xíu nhe thầy.E cám ơn thầy nhiều
