Copy dữ liệu bằng VBA có điều kiện từ sheets này sang sheets khác

[ketoan100]

Anh chị giúp em xem copy dữ liệu bằng VBA có điều kiện của em sao bị lỗi, e chưa hiểu lắm. cảm ơn các anh chị rất nhiều

 

[Ba Tê]

Anh chị giúp em xem copy dữ liệu bằng VBA có điều kiện của em sao bị lỗi, e chưa hiểu lắm. cảm ơn các anh chị rất nhiều

1/ Đọc Record Macro chẳng hiểu gì.
2/ Tên sheet dài lê thê viết code khó mà "siêng" được.
3/ Code viết hoàn toàn khác.
4/ Vùng kết quả do bạn "khóa đuôi" nên có sự cố gì thì bạn tự chỉnh nhé.

 

[ketoan100]

Cảm anh anh "Ba Tê" rất nhiều đã viết code mới cho em.

 

[ketoan100]

Anh Ba Tê ơi, nó bị lỗi khi chạy mã hàng không phát sinh. Mình muốn nó thông báo " không phát sinh" và thoát thì làm sao đây anh ? cảm ơn anh đã xem giúp !

 

[snow25]

Anh Ba Tê ơi, nó bị lỗi khi chạy mã hàng không phát sinh. Mình muốn nó thông báo " không phát sinh" và thoát thì làm sao đây anh ? cảm ơn anh đã xem giúp !

Bạn sửa dòng cuối thành dòng này xem đúng không nhé.

If K Then .Range("C14:M14").Resize(K) = dArr Else MsgBox "khong phat sinh"

 

[ketoan100]

Mình đã thử rồi, không chạy được bạn ơi. cảm ơn bạn snow25 đã đóng góp

 

[snow25]

Mình đã thử rồi, không chạy được bạn ơi. cảm ơn bạn snow25 đã đóng góp

Bạn gửi cái file với cái không phát sinh lên xem nào.