Giúp hoàn thiện đơn hàng

[nguyenmanhhao]

Em có 1 file đơn hàng đề nghị trong đó gồm có 2 sheet là Đơn hàng và Dữ liệu.
Em nhờ các anh chị trên diễn đàn viết Macro giúp để khi chọn nhà cung cấp (NCC) thì toàn bộ dữ liệu của NCC đó được thể hiện bên đơn hàng.
Rất mong nhận được sự giúp đỡ của các anh chị

 

[Ba Tê]

Chào Bác, e Là vợ A Hảo, sau khi tổng hợp chi tiết File,e Nhờ Bác hoàn thiện giúp E file in đơn hàng:
1,E có 1 file in đơn hàng gồn 2 sheet, 1 sheet in(sheet print) va 1 sheet dữ liệu(sheet proposalQty),khi nhấp vào nút EXECUTE tai sheet print thì tất cả các dữ liệu về đơn hàng sẽ tự động link qua từ sheet proposalQty và tạo các bản in lần lượt theo từng NCC,theo từng quầy.
2,Vấn đề E gặp phải là: khi nhấp vào nút EXECUTE thì mỗi bản in đều chỉ hiện ra 1 mặt hàng của 1 NCC trong khi đó từ sheet proposalQty NCC có nhiều mặt hàng.
&E muốn có thêm dòng giá trị đơn hàng tại dòng T33
3,Điểm chung : 1 NCC thì có 1 số đơn hàng nhưng 1 NCC có thể cung cấp hàng cho nhiều quầy (NCC LE MAY cung cấp hàng cho cả 2 quầy 450YV000 và 440YV000) và số đơn hàng thứ tự không liên tiếp nhau(NCC LIX WOW đơn hàng số 1120 có một số mặt hàng nằm phía cuối tại sheet proposalQty)

e xin lỗi vì chưa hiểu nội quy trên diễn đàn nên may lần up lên bị sai.
Cảm ơn Bác trước nhé

Trời ạ!
Tôi vẫn chưa biết bạn đang nói đến file nào?
Bạn xem lại file gốc của bạn ở bài #1:
"khi nhấp vào nút EXECUTE tai sheet print" cái nút này ở đâu?
"NCC LE MAY cung cấp hàng cho cả 2 quầy 450YV000 và 440YV000" trong file của bạn thì dòng nào thể hiện điều này?
"NCC LIX WOW đơn hàng số 1120 có một số mặt hàng nằm phía cuối tại sheet proposalQty" Cột nào ghi đơn hàng số 1120?
Nếu không có file khác đầy đủ chi tiết hơn thì không thể tiếp tục chuyện này nữa rồi.
(Hình như cái File mà bạn nói chưa được gởi lên GPE)

 

[nguyenmanhhao]

Nó đây bác Bate ơi. Xem và giúp em với ạ.

 

[nmhung49]

File của bạn ở sheet Print có nhiều Object rác lắm hớn 17.000 Object rác bạn dùng code này xóa bớt sẽ giảm dung lượng. Mình cũng muốn tham gia lắm mà không hiểu ý của bạn nên không biết giúp làm sao. Để anh Ba Tê giúp luôn thể

Sub xoaobject()
Dim sh As Shape, i
For Each sh In ActiveSheet.Shapes
i = i + 1
sh.Delete
Next sh
MsgBox i
End Sub

 

[Ba Tê]

Nó đây bác Bate ơi. Xem và giúp em với ạ.

Đến giờ mới thấy được cái file này, nếu làm theo file cũ ở bài #1 chắc cũng "trớt huớt" nữa rồi.
Vẫn chưa hiểu ý muốn của bạn thật sự là sao.
Tạm xem file này nhé. Nếu 1 NCC có 2 Số HD thì chọn NCC xong, chọn thêm trong ô OrderNo.(2 ô màu vàng)
Đến đây là đuối rồi.

 

[nguyenmanhhao]

Chào Bác Bate,
Cảm ơn bác đã nhiệt tình giúp e, nhưng bác Bate, file Bác viết cho e gặp phải một số vấn đề sau:
1-khi sử dụng vào thực tế độ dài của sheet tham chiếu là 8.000-12.000 dòng,
2-khi tham chiếu theo tên NCC nếu trường hợp e bị sai tên 1 dòng thì dữ liệu NCC dó sẽ bị thiếu dữ liệu bên sheet print
Do đó e đã tạo công thức gộp giữa quầy và NCC, sau dó sẽ lấy công thức gộp này làm tham chiếu để xuất dữ liệu từ File dữ liệu sang sheet “print”, Bác giúp e viết lại code nhé.

 

[Ba Tê]

Chào Bác Bate,
Cảm ơn bác đã nhiệt tình giúp e, nhưng bác Bate, file Bác viết cho e gặp phải một số vấn đề sau:
1-khi sử dụng vào thực tế độ dài của sheet tham chiếu là 8.000-12.000 dòng,
2-khi tham chiếu theo tên NCC nếu trường hợp e bị sai tên 1 dòng thì dữ liệu NCC dó sẽ bị thiếu dữ liệu bên sheet print
Do đó e đã tạo công thức gộp giữa quầy và NCC, sau dó sẽ lấy công thức gộp này làm tham chiếu để xuất dữ liệu từ File dữ liệu sang sheet “print”, Bác giúp e viết lại code nhé.

Thử lại cái này xem, hình như bạn không biết nhấn nút Cảm ơn? Chỉ cần bạn nhấn nút này thì người viết đã biết rằng bài viết của mình đã được người đó đọc qua rồi. Vừa ý hay không thì chưa biết.