Nhờ cả nhà viết giúp câu lệnh VBA cho file theo dõi nhập xuất nguyên liệu

[Hoangquyenbong]

Em xin chào cả nhà !
Em có 1 file excel, mọi thông tin dữ liệu đang theo dõi ở dạng bảng ngang, em xin nhờ cả nhà viết giúp em code chuyển thông tin sang dạng bảng dọc. Em muốn khi em copy và dán dữ liệu vào sheet DLXUAT và sheetDLNHAP thì kết quả sẽ chạy qua file KQXUAT và KQNHAP. Chi tiết em đã ghi trong file đính kèm ạ. Em cảm ơn cả nhà !

 

[Ba Tê]

Em xin chào cả nhà !
Em có 1 file excel, mọi thông tin dữ liệu đang theo dõi ở dạng bảng ngang, em xin nhờ cả nhà viết giúp em code chuyển thông tin sang dạng bảng dọc. Em muốn khi em copy và dán dữ liệu vào sheet DLXUAT và sheetDLNHAP thì kết quả sẽ chạy qua file KQXUAT và KQNHAP. Chi tiết em đã ghi trong file đính kèm ạ. Em cảm ơn cả nhà !

Sheet DLXUAT không thể yêu cầu lấy dữ liệu các cột tô màu, mà phải nêu điều kiện kiểu khác (ví dụ dòng 1 (tiêu đề) có dạng ngày tháng năm, hay gì gì đó)
Ở dòng 1 có nhiều cells có dữ liệu là #Value thì VBA không chịu.

 

[Hoangquyenbong]

Sheet DLXUAT không thể yêu cầu lấy dữ liệu các cột tô màu, mà phải nêu điều kiện kiểu khác (ví dụ dòng 1 (tiêu đề) có dạng ngày tháng năm, hay gì gì đó)
Ở dòng 1 có nhiều cells có dữ liệu là #Value thì VBA không chịu.

Cháu cảm ơn bác đã xem bài !
Vì file dữ liệu là cháu đi xin từ bộ phận khác nên định dạng không như ý ạ. Nếu copy về rồi chỉnh cũng mất khá nhiều thời gian, dữ liệu ở dòng 1 đang đều là kiểu General, cháu chỉ đổ màu thêm để giải thích cho dễ hiểu thôi bác ạ. Bác có gợi ý gì giúp cháu đưa ra điều kiện không ạ ?

Bài đã được tự động gộp: 12/9/20

Sheet DLXUAT không thể yêu cầu lấy dữ liệu các cột tô màu, mà phải nêu điều kiện kiểu khác (ví dụ dòng 1 (tiêu đề) có dạng ngày tháng năm, hay gì gì đó)
Ở dòng 1 có nhiều cells có dữ liệu là #Value thì VBA không chịu.

Dạ còn những dữ liệu là #Value thì cháu sẽ khắc phục bằng cách xóa bỏ đi ạ.

 

[Ba Tê]

Cháu cảm ơn bác đã xem bài !
Vì file dữ liệu là cháu đi xin từ bộ phận khác nên định dạng không như ý ạ. Nếu copy về rồi chỉnh cũng mất khá nhiều thời gian, dữ liệu ở dòng 1 đang đều là kiểu General, cháu chỉ đổ màu thêm để giải thích cho dễ hiểu thôi bác ạ. Bác có gợi ý gì giúp cháu đưa ra điều kiện không ạ ?

Bài đã được tự động gộp: 12/9/20

Dạ còn những dữ liệu là #Value thì cháu sẽ khắc phục bằng cách xóa bỏ đi ạ.

Sheet DLXUAT, Tôi dựa vào dòng 1, gặp ô nào có ký tự đầu tiên là số thì lấy dữ liệu trong cột đó. Nếu không phải hoàn toàn như vậy thì "tèo"
Xài tạm chứ không chắc hoàn toàn đúng vì có dùng On Error Resume Next để bỏ qua các cells lỗi #Value.

 

[Hoangquyenbong]

Sheet DLXUAT, Tôi dựa vào dòng 1, gặp ô nào có ký tự đầu tiên là số thì lấy dữ liệu trong cột đó. Nếu không phải hoàn toàn như vậy thì "tèo"
Xài tạm chứ không chắc hoàn toàn đúng vì có dùng On Error Resume Next để bỏ qua các cells lỗi #Value.

Dạ cháu dùng được rồi ạ,
Cháu sẽ kiểm tra lại trong quá trình sử dụng ạ.
Cháu cảm ơn bác nhiều !

Bài đã được tự động gộp: 12/9/20

Dạ cháu dùng được rồi ạ,
Cháu sẽ kiểm tra lại trong quá trình sử dụng ạ.
Cháu cảm ơn bác nhiều !

À bác ơi, ở sheet KQXUAT cột H bác có thể lấy toàn bộ thông tin ở ô tương ứng của dòng số 1 giúp cháu được không ạ.

 

[Hoangquyenbong]

Dạ cháu dùng được rồi ạ,
Cháu sẽ kiểm tra lại trong quá trình sử dụng ạ.
Cháu cảm ơn bác nhiều !

Bài đã được tự động gộp: 12/9/20

À bác ơi, ở sheet KQXUAT cột H bác có thể lấy toàn bộ thông tin ở ô tương ứng của dòng số 1 giúp cháu được không ạ.

Bác @Ba Tê ơi do cháu nhầm, kết quả đúng rồi ạ.
cháu cảm ơn bác !