Cần giúp đỡ: Viết code vba tự động tìm tiêu đề cột thỏa mãn điều kiện để filter và copy dữ liệu sang sheet khác

Liên hệ QC

thanh_kta

Thành viên mới
Tham gia
17/4/12
Bài viết
10
Được thích
0
Đầu tiên em xin gửi lời chào năm mới tới toàn thể thành viên diễn đàn. Chúc mọi người năm mới tốt lành.
Như tiêu đề em có file mẫu gồm 3 sheet: sheet: "DATAROP"; "ROP" và "Print". Em muốn nhờ các anh chị viết giúp code VBA thỏa mãn điều kiện:
1./ Code VBA thay thế cho hàm "sumif" : Tại sheet DATAROP có nút điều khiển khi bấm "cập nhật" sẽ tự động dò tìm ở sheet ROP cột F và so sánh với cột F ở sheet DATAROP: Nếu trùng thì tự động copy dữ liệu cột H ở sheet ROP sang cột I ở sheet DATAROP
2./ Tại sheet Print: khi ô B2 gõ dữ liệu thì ở sheet ROP sẽ tự động dò tìm cột có tiêu đề trùng với ô B2 ở sheet Print và lọc dữ liệu ở cột đó (hiển thị dòng có dữ liệu) sau đó copy dữ liệu vừa lọc được từ sheet ROP sang sheet Print
Ví dụ: khi ô B2 =ROP01 thì bên sheet ROP sẽ tự động dò tìm ở dòng 3 có kết quả là cột I3=ROP01. và sẽ tiến hành lọc bỏ những dòng trống ở cột I
Sau đó copy dữ liệu vừa lọc ở sheet ROP sang sheet Print.
Em xin cảm ơn!
 

File đính kèm

  • 05.ROP_KL_VALVE_CN_LANH.xls
    1.1 MB · Đọc: 23
Năm mới mọi người vẫn đang du xuân ạ, có bác nào giúp em với :D
 
Upvote 0
Năm mới mọi người vẫn đang du xuân ạ, có bác nào giúp em với :D
Du mốc xì gì.
Ở đây nhiều người đói bài lắm, vừa uống rượu vừa tranh nhau viết code là thường. Giao thừa hay mồng một cũng code không nghỉ.
Không ai làm là do không ai hiểu nổi bạn muốn gì.
Đăng bài lâu không thấy ai trả lời thì tự xem lại mình giải thích có rõ hay không.
 
Upvote 0
Đầu tiên em xin gửi lời chào năm mới tới toàn thể thành viên diễn đàn. Chúc mọi người năm mới tốt lành.
Như tiêu đề em có file mẫu gồm 3 sheet: sheet: "DATAROP"; "ROP" và "Print". Em muốn nhờ các anh chị viết giúp code VBA thỏa mãn điều kiện:
1./ Code VBA thay thế cho hàm "sumif" : Tại sheet DATAROP có nút điều khiển khi bấm "cập nhật" sẽ tự động dò tìm ở sheet ROP cột F và so sánh với cột F ở sheet DATAROP: Nếu trùng thì tự động copy dữ liệu cột H ở sheet ROP sang cột I ở sheet DATAROP
2./ Tại sheet Print: khi ô B2 gõ dữ liệu thì ở sheet ROP sẽ tự động dò tìm cột có tiêu đề trùng với ô B2 ở sheet Print và lọc dữ liệu ở cột đó (hiển thị dòng có dữ liệu) sau đó copy dữ liệu vừa lọc được từ sheet ROP sang sheet Print
Ví dụ: khi ô B2 =ROP01 thì bên sheet ROP sẽ tự động dò tìm ở dòng 3 có kết quả là cột I3=ROP01. và sẽ tiến hành lọc bỏ những dòng trống ở cột I
Sau đó copy dữ liệu vừa lọc ở sheet ROP sang sheet Print.
Em xin cảm ơn!
Đọc bài của bạn tí thì tẩu hỏa.Bạn viết chỉ mình bạn hiểu nên rất khó làm.
 
Upvote 0
Thanks các bác @VetMini @snow25 đã nhắc. Do em diễn đạt lủng củng quá, em xin trình bày lại
1./Tại sheet: DATAROP em muốn thay thế hàm SUMIF(ROP!F7:F5003,F6:F5003,ROP!H7:H5003) ở cột H bằng VBA
2./ Tại sheet: PRINT em muốn tạo phiếu in lấy giữ liệu từ sheet ROP.
- Khi em nhập ROP01 hoặc ROP02, ROP03........... vào ô B8 thì bên sheet ROP sẽ tìm ở hàng 3 từ cột 1 đến cột cuối cùng có chứa tiêu đề và so sánh với ô B8: nếu cột nào có giá trị = ô B8 thì sẽ lọc ở những cột đó (ẩn các dòng không có dữ liệu)
- Copy dữ liệu vừa lọc được sang phiếu in ở sheet PRINT
Ví dụ: Sheet: PRINT B8=ROP01 thì kiểm tra bên
Sheet: ROP I3=ROP01 => ẩn những dòng trống ở cột I3
và sau đó copy các dòng ở cột I3 sang sheet PRINT
Cảm ơn các bác!
 

File đính kèm

  • 05.ROP_KL_VALVE_CN_LANH.xls
    1.1 MB · Đọc: 5
Upvote 0
Web KT
Back
Top Bottom