Copy dữ liệu Sheet khác

[tranphuson]

Do hiện tại mình phải làm thủ công copy từng file vào 1 file chỉ lấy 1 số cột dữ liệu cần copy. Do vậy hỗ trợ VBA giải quyết copy nhiều file " Phiếu xuất điều chuyển - TIKI" lưu ở 1 Thư mục vào 1 file "Order Template Mapping _Karcher - vào Sheet "Orders". Nội dung cần copy ở File "Phiếu xuất điều chuyển - TIKI" được paste vào cột A, T, V vào File "Order Template Mapping _Karcher ở Sheet Orders" như hình bên dưới.

(Các file "Phiếu xuất điều chuyển - TIKI" cùng 1 template nhưng nội dung khác nhau (Số phiếu ở Cột R7, Mã vật tư ở Cột B15, Số lượng ở Cột L15)



Xin cảm ơn

 

[HUONGHCKT]

Do hiện tại mình phải làm thủ công copy từng file vào 1 file chỉ lấy 1 số cột dữ liệu cần copy. Do vậy hỗ trợ VBA giải quyết copy nhiều file " Phiếu xuất điều chuyển - TIKI" lưu ở 1 Thư mục vào 1 file "Order Template Mapping _Karcher - vào Sheet "Orders". Nội dung cần copy ở File "Phiếu xuất điều chuyển - TIKI" được paste vào cột A, T, V vào File "Order Template Mapping _Karcher ở Sheet Orders" như hình bên dưới.

(Các file "Phiếu xuất điều chuyển - TIKI" cùng 1 template nhưng nội dung khác nhau (Số phiếu ở Cột R7, Mã vật tư ở Cột B15, Số lượng ở Cột L15)

View attachment 262525

Xin cảm ơn

trong khi chờ các anh chị em khác hỗ trợ, hãy dùng thử đoạn code này xem sao.

 

[tranphuson]

trong khi chờ các anh chị em khác hỗ trợ, hãy dùng thử đoạn code này xem sao.

Tuyệt vời, cảm ơn đã hỗ trợ. Nhân tiện bổ sung thêm cột D5 (ngày hiện tại)

Cảm ơn

 

[HUONGHCKT]

Tuyệt vời, cảm ơn đã hỗ trợ. Nhân tiện bổ sung thêm cột D5 (ngày hiện tại)

Cảm ơn

bạn sửa
............
.Cells(Rows.count, 1).End(3).Offset(1, 0) = sh.[R7]
..........
thành
......
.Cells(Rows.count, 1).End(3).Offset(1, 0) = sh.[R7]
.Cells(Rows.count, 1).End(3).Offset(0, 3) = Date
.........

chúc thành công

 

[tranphuson]

bạn sửa
............
.Cells(Rows.count, 1).End(3).Offset(1, 0) = sh.[R7]
..........
thành
......
.Cells(Rows.count, 1).End(3).Offset(1, 0) = sh.[R7]
.Cells(Rows.count, 1).End(3).Offset(0, 3) = Date
.........

chúc thành công

Đã hoàn thành, cảm ơn bạn lần nữa