VBA copy các cột không liên tục và dán qua sheet khác

[MeThuongNho]

Kính gửi Anh/Chị,
Em có file đính kèm, có tìm hiểu được code capnhat mà chỉ copy 1 cột và dán vào 1 cột: lấy cột E ( mã NV) là chuẩn.
Giờ em muốn copy thêm các cột khác dựa theo dòng cuối Mã NV (cột E):
COPY sheet DS-TH qua sheet DS TONG
copy cột L ---> dán qua cột D
copy cột E ---> dán qua cột E
copy cột F ---> dán qua cột F
copy cột D ---> dán qua cột G
copy cột G ---> dán qua cột H
P/s:
- sheet DS-TH: copy tính từ dòng 390 trở đi mới COPY
- sheet DS TONG: dán từ dòng 837 trở đi
Mong mọi người giúp đỡ ạ.
Trân trọng!

 

[HUONGHCKT]

Kính gửi Anh/Chị,
Em có file đính kèm, có tìm hiểu được code capnhat mà chỉ copy 1 cột và dán vào 1 cột: lấy cột E ( mã NV) là chuẩn.
Giờ em muốn copy thêm các cột khác dựa theo dòng cuối Mã NV (cột E):
COPY sheet DS-TH qua sheet DS TONG
copy cột L ---> dán qua cột D
copy cột E ---> dán qua cột E
copy cột F ---> dán qua cột F
copy cột D ---> dán qua cột G
copy cột G ---> dán qua cột H
P/s:
- sheet DS-TH: copy tính từ dòng 390 trở đi mới COPY
- sheet DS TONG: dán từ dòng 837 trở đi
Mong mọi người giúp đỡ ạ.
Trân trọng!

Bạn xem file. vẫn code của bạn tôi copy thành Sub CapNhatLai() thôi, trong đó để copy như bạn đề nghị thì không cần dùng đến Dictonary làm gì.

 

[MeThuongNho]

Bạn xem file. vẫn code của bạn tôi copy thành Sub CapNhatLai() thôi, trong đó để copy như bạn đề nghị thì không cần dùng đến Dictonary làm gì.

Cảm ơn HUONGHCKT nhiều.
Mình xem file đính kèm và code mới OK rồi.
Trân trọng.

 

[MeThuongNho]

Cảm ơn HUONGHCKT nhiều.
Mình xem file đính kèm và code mới OK rồi.
Trân trọng.

Dạ Chào Anh/Chị,
Nhờ Anh/Chị giúp em thêm yêu cầu này:
1. Nếu Mã NV trống thì không copy nguyên dòng đó.
2. Code này khi Run lần 2 thì nó lại copy lại từ đầu:
Mong muốn là: những mã đã dán qua rồi sheet DS TONG này rồi thì không copy nữa. (loại trùng các mã NV mình đã cập nhật trước đó).
+ Cộng với trong quá trình thêm mã NV bên sheet DS-KH: thao tác là Insert ở các dòng mà mình đã cập nhật dữ liệu.
Vậy code cập nhật tiếp thông tin các dòng đã Insert đó qua dòng cuối của sheet DS TONG thì sửa sao ạ
Em cảm ơn nhiều!
Chúc cả nhà một ngày vui