Làm cách nào để tách đơn đặt hàng theo khách

[Hai Lúa Miền Tây]

Chào các anh chị trên diễn đàn, lại một lần nữa làm phiền các anh chị

Em có 1 ý tưởng như sau: Có 1 dữ liệu tổng theo file đính kèm, em muốn có 1 nút click ; sau khi click thì nó sẽ tự động tách đơn đặt hàng theo khách (Mỗi 1 khách là 1 sheet riêng, hoặc 1 workbook riêng thì càng tốt), nếu là sheet trong workbook thì mỗi 1 khách được tách ra trên sheet name cũng ghi tên khách hàng tương ứng.

Cám ơn các anh chị
-Thành viên mới học VBA-

 

[sealand]

Nó chỉ đẹp thôi còn tốc độ sẽ phải hy sinh đấy.

 

[sealand]

Theo ý bạn, nhưng tận dụng StatusBar cho nó nhẹ nhàng

 

[Hai Lúa Miền Tây]

Đơn đặt hàng

Sau khi được sự giúp đở nhiệt tình của anh Sealand em xin chia xẻ với mọi người file đính kèm nhé, mình nghĩ nó rất giúp ích cho những ai làm công tác vật tư như mình

Lưu ý là nhớ giải nén và chép nguyên folder đó vào 1 thư mục nào đó để khi tách file nó còn nhận diện nhé.

Cảm ơn anh Sealand rất nhiều

 

[adult]

Sau khi được sự giúp đở nhiệt tình của anh Sealand em xin chia xẻ với mọi người file đính kèm nhé, mình nghĩ nó rất giúp ích cho những ai làm công tác vật tư như mình

Lưu ý là nhớ giải nén và chép nguyên folder đó vào 1 thư mục nào đó để khi tách file nó còn nhận diện nhé.

Cảm ơn anh Sealand rất nhiều

File của anh khá hay. Tôi đã sử dụng sub saveworksheets trong đó cho công việc của mình, nhưng không hiểu tại sao lúc nó chạy lúc không? Trong bài trước tôi thấy anh cũng bị lỗi này. Anh có thể cho tôi và mọi người biết làm cách nào có thể cho sub này chạy ổn định không? Thanks so much!!!
Trong code tôi thấy anh có sử dụng xoá sheet khá hay

 If UCase(sh.CodeName) <> "SHEET1" And UCase(sh.CodeName) <> "SHEET2" And UCase(sh.CodeName) <> "SHEET3" Then
sh.Delete

. Nhưng nếu tôi có dữ liệu không muốn xoá khoảng 10 sheet thì không lẻ áp dụng thêm.........UCase(sh.CodeName)<>"SHEET10"... Anh có thể cho tôi biết cách nào khác không?
Thanks anh!

 

[adult]

Đã giải quyết được tình trạng code lúc chạy lúc không. Nay vẫn còn 1 vấn đề:

If UCase(sh.CodeName) <> "SHEET1" And UCase(sh.CodeName) <> "SHEET2" And UCase(sh.CodeName) <> "SHEET3" Then
sh.Delete

tôi có dữ liệu không muốn xoá khoảng 10 sheet thì không lẻ áp dụng thêm.........UCase(sh.CodeName)<>"SHEET10"... Anh có thể cho tôi biết cách nào khác không?
Các bác vui lòng bỏ chút thời gian giúp mình nhé.
Thân!

 

[adult]

3 ngày rồi vẫn chưa có anh chị nào trả lời câu hỏi của tôi. Chẳng lẻ phải tạo 1 thread riêng câu hỏi này sao nhỉ?

 

[MinhNguyệt]

3 ngày rồi vẫn chưa có anh chị nào trả lời câu hỏi của tôi. Chẳng lẻ phải tạo 1 thread riêng câu hỏi này sao nhỉ?

"Bảy lần đo, một lần cắt"