Xin giúp đỡ in phiếu thông tin hàng loạt có điều kiện (1 người xem)

[nguyenthiminhtho1999]

Em chào các anh chị trên GPE
Em xin nhờ mọi người giúp đỡ em in phiếu thông tin hàng loạt để treo dấu và lưu
Em đính kèm file. Trên file có 4 sheet. Sheet ALL chứa thông tin tổng, các sheet K1,K2,K3 chứa thông tin phụ qua từng kỳ, em đang cần xử lý in phiếu thông tin với điều kiện dòng thứ 1 trong từng sheet có ký tự "P" và cột đó giá trị trống hoặc khác 0 thì chạy vào phiếu thông tin, tương tự trên các sheet K1,K2,K3 dòng dầu tiên có ký tự "P" và giá khác rỗng và 0 thì đưa vào phiếu.
Lấy sheet ALL làm sheet chuẩn để in, trên sheet K1,K2,K3 có những mã không có trên sheet ALL, mã nào không có thì không hiển thị trên phiếu thông tin, Có thể chọn in sheet K1, K2, K3 theo nhu cầu và có thể chọn in theo KHỐI hoặc theo mã. Mỗi 1 mã vừa 1 trang A4

Trên file có sheet PHIEU, in 1 mã 10048. chỉ in thông tin sheet K1 và K2, không in K3, Trong đó sheet K2 không có dữ liệu liên quan mã 10048 nên k hiển thị trên phiếu in
hiện tại em làm thủ công mất rất nhiều thời gian, xin nhờ các anh/chị giúp đỡ em với ạ, em cảm ơn ạ!

 

[BuiQuangThuan]

Có cách nào khi xuất phiếu nó dựa vào ghi chú tại cột D này để lấy các sheet K cần kèm theo không ạ. Vì số sheet K có lúc nó nhiều lắm, nếu khi phát sinh thêm K4, K5, .... thì cũng không truy xuất được

@Hoàng Tuấn 868 đến cái đoạn này thì có vẻ nó sẽ phát sinh vấn đề nè anh:

Nếu nó có 10,15 cái K thì chỗ này sẽ dẫn đến hoạt động sai chức năng nè anh

 

[Hoàng Tuấn 868]

@Hoàng Tuấn 868 đến cái đoạn này thì có vẻ nó sẽ phát sinh vấn đề nè anh:
View attachment 308241
Nếu nó có 10,15 cái K thì chỗ này sẽ dẫn đến hoạt động sai chức năng nè anh

Mình định thay bằng điều kiện nếu left(Sheets(i1).Name,1) ="N" thì xoá, nhưng quên mất. Thêm K4, K5 là về sau mới lòi ra.

Đã bổ sung phần thiếu sót. Cảm ơn Thuận nhé.

 

[HUONGHCKT]

Em chào các anh chị trên GPE
Em xin nhờ mọi người giúp đỡ em in phiếu thông tin hàng loạt để treo dấu và lưu
Em đính kèm file. Trên file có 4 sheet. Sheet ALL chứa thông tin tổng, các sheet K1,K2,K3 chứa thông tin phụ qua từng kỳ, em đang cần xử lý in phiếu thông tin với điều kiện dòng thứ 1 trong từng sheet có ký tự "P" và cột đó giá trị trống hoặc khác 0 thì chạy vào phiếu thông tin, tương tự trên các sheet K1,K2,K3 dòng dầu tiên có ký tự "P" và giá khác rỗng và 0 thì đưa vào phiếu.
Lấy sheet ALL làm sheet chuẩn để in, trên sheet K1,K2,K3 có những mã không có trên sheet ALL, mã nào không có thì không hiển thị trên phiếu thông tin, Có thể chọn in sheet K1, K2, K3 theo nhu cầu và có thể chọn in theo KHỐI hoặc theo mã. Mỗi 1 mã vừa 1 trang A4

Trên file có sheet PHIEU, in 1 mã 10048. chỉ in thông tin sheet K1 và K2, không in K3, Trong đó sheet K2 không có dữ liệu liên quan mã 10048 nên k hiển thị trên phiếu in
hiện tại em làm thủ công mất rất nhiều thời gian, xin nhờ các anh/chị giúp đỡ em với ạ, em cảm ơn ạ!

Không hiểu lắm nhưng cứ làm đại (nhờ có sự hỗ trợ của compilot)>Trúng trật-Hên sui
Nhập (mã Vidu : 10045-hoặc khối: KHỐI W..) vào Ô C1/Sheet Main
Nhấn nút Chạy code----> Xuất hiện inputbox : Bạn nhập Sh cần lấy dữ liệu vào Inputbox và nhấn OK-Nếu để trống thì có như là lấy tất cả các Sh(ALL,K1,K2,K3,....).
Lưu ý: không xóa Ô A1 và A2 của Sheet Main.
Các định dạng về mãu in : hy vọng bạn tự làm được
Bạn có thể nhấn nút "Lấy dữ liệu..." Ở sheet Phieu và xem điều gì đã diễn ra.
Bạn chủ thớt đã có được đáp án từ anh @Hoàng Tuấn 868 rồi (Code xịn đấy).
Hãy coi file gửi kèm đây là 1 tham khảo.

 

[nguyenthiminhtho1999]

Dạ, em cảm ơn mọi người rất nhiều, chúc mọi người thật nhiều sức khỏe ạ.