Xin hỗ trợ hàm tổng hợp dữ liệu từ nhiều sheet vào sheet tổng trên VBA

[lemanhhung00000]

Kính gửi anh chị

Hiện tại trong file VBA em gửi file đính kèm thì nó chỉ tổng hợp được khi đã có đây đủ dữ liệu ạ

Vậy em muốn nhờ anh chị em hỗ trợ em xem làm cách nào ở Sheet : Tổng hợp sẽ tự động ghi lại dữ liệu các sheet còn lại cho dù sheet đó có dữ liệu hay không, sheet nào có dữ liệu sẽ tự ghi còn sheet không có dữ liệu thì bỏ qua ạ


Trong file Excel của em có sheet tên là : Tong Hop

Các sheet nhỏ sẽ có tên là : 01-07 đến 22-31 (Anh chị giúp em nếu mai kia em có thay đổi tên các sheet này đi chăng nữa thì cũng không ảnh hưởng đến sheet Tong Hop ạ


Rất mong anh chị xem có cách nào tìm hàm để tổng hợp vào được không ạ

Trân trọng cám ơn anh chị
_________________________________________

Ở trong VBA em gửi thì khi em xoá dữ liệu của một Sheet bất kỳ 01-07 đến 22-31 thì nó bị lỗi như vậy ạ

 

[SA_DQ]

Thứ nhất tên trang tính không nên là '01-07' mà nên là '01_07'
& các trang con còn lại cần tổng hợp dữ liệu đến trang 'TongHop' đều có tên là '**_**'
Bạn lập vòng lặp duyệt qua hết các trang tính;
Hễ trang nào đạt điều kiện Left(TenTrangTinh, 2) là dạng Numeric thì thực hiện các lệnh sau:
1./ Xem 2 ô [B14-c14] có dữ liệu thì làm tiếp; nếu không thì bỏ qua
2./ Lấy số dòng của trang đang khảo sát & chép khối dự liệu, căn cứ vô số dòng đã tìm, vô trang 'TongHop'

 

[snow25]

Kính gửi anh chị

Hiện tại trong file VBA em gửi file đính kèm thì nó chỉ tổng hợp được khi đã có đây đủ dữ liệu ạ

Vậy em muốn nhờ anh chị em hỗ trợ em xem làm cách nào ở Sheet : Tổng hợp sẽ tự động ghi lại dữ liệu các sheet còn lại cho dù sheet đó có dữ liệu hay không, sheet nào có dữ liệu sẽ tự ghi còn sheet không có dữ liệu thì bỏ qua ạ


Trong file Excel của em có sheet tên là : Tong Hop

Các sheet nhỏ sẽ có tên là : 01-07 đến 22-31 (Anh chị giúp em nếu mai kia em có thay đổi tên các sheet này đi chăng nữa thì cũng không ảnh hưởng đến sheet Tong Hop ạ


Rất mong anh chị xem có cách nào tìm hàm để tổng hợp vào được không ạ

Trân trọng cám ơn anh chị
_________________________________________

Ở trong VBA em gửi thì khi em xoá dữ liệu của một Sheet bất kỳ 01-07 đến 22-31 thì nó bị lỗi như vậy ạ

View attachment 210949

Bạn xem.

 

[lemanhhung00000]

Bạn xem.

Kính gửi bạn

Mình đã sử dụng được rồi ạ

Trân trọng cám ơn ban