Xin giúp code VBA để cập nhật dữ liệu từ sheet này sang sheet khác

[n0thing1988]

Do bài cũ tại link http://www.giaiphapexcel.com/forum/...à-user-form-nhập-liệu-cho-sổ-thu-chi-tiền-mặt em không giải thích rõ. Nay e gửi lại bài mới
Mong các thành viên GPE giúp em viết CODE trong truờng hợp này. Em muốn dữ liệu tự động cập nhật từ sheet Thu, Chi sang sheet SoQuy

 

[huuthang_bd]

Do bài cũ tại link http://www.giaiphapexcel.com/forum/...à-user-form-nhập-liệu-cho-sổ-thu-chi-tiền-mặt em không giải thích rõ. Nay e gửi lại bài mới
Mong các thành viên GPE giúp em viết CODE trong truờng hợp này. Em muốn dữ liệu tự động cập nhật từ sheet Thu, Chi sang sheet SoQuy

Thấy bạn hỏi cũng lâu rồi nhưng chưa có ai trả lời. Tôi làm thử bạn tham khảo.
Tôi làm theo hướng khi nào cần thì lập (bấm nút), bạn muốn cập nhật tự động hay như thế nào thì gán code cho sự kiện.

 

[n0thing1988]

Thấy bạn hỏi cũng lâu rồi nhưng chưa có ai trả lời. Tôi làm thử bạn tham khảo.
Tôi làm theo hướng khi nào cần thì lập (bấm nút), bạn muốn cập nhật tự động hay như thế nào thì gán code cho sự kiện.

Cảm ơn anh Huuthang_bd đã giúp đỡ. Code chạy rất tốt. Em có thắc mắc là khi em xóa dữ liệu ở sheet thu, và sheet chi. Để sử dụng cho năm mới
Code báo lỗi tại dòng 13 như sau
ReDim DataSoQuy(1 To (UBound(DataThu, 1) + UBound(DataChi, 1)), 1 To 7)
Nhờ anh và các bạn trên diễn đàn giúp em giải quyết vấn đền này ạ

 

[n0thing1988]

Có anh chị nào fix giúp em lỗi này với ạ.

 

[n0thing1988]

Em vẫn mong hồi âm ạ. Có anh chị nào đi qua xem giùm em với

 

[Let'GâuGâu]

Em vẫn mong hồi âm ạ. Có anh chị nào đi qua xem giùm em với

khi đó
UBound(DataThu, 1) + UBound(DataChi, 1))=0 nên nó báo lổi
mà xóa hết số liệu thì chạy code chi?

 

[n0thing1988]

khi đó
UBound(DataThu, 1) + UBound(DataChi, 1))=0 nên nó báo lổi
mà xóa hết số liệu thì chạy code chi?

Em Hiểu ý anh rồi. Em cảm ơn