Dò tìm theo điều kiện cho trước

[mhieuit]

Em muốn chuyển dư liệu từ cột a đến cột e trong file đính kèm từ sheet main, qua sheet khgh kn theo điều kiện là chỉ lọc những dữ liệu theo vận chuyển kn thui.

Mong các ace giúp đỡ,

thanks all.

 

[huyhoang1768]

Có 2 cách, mình mở file thấy bạn dùng Filter, vậy sao ko lọc luôn bằng filter rồi coppy sang, hoặc dùng công thức tại sheet KHGN KN

=IF(MAIN!F2="KN",MAIN!A2,"")

 

[Ngoai Thanh]

Em muốn chuyển dư liệu từ cột a đến cột e trong file đính kèm từ sheet main, qua sheet khgh kn theo điều kiện là chỉ lọc những dữ liệu theo vận chuyển kn thui.

Mong các ace giúp đỡ,

thanks all.

Bạn xem file xem được chưa ?

 

[mhieuit]

Bạn xem file xem được chưa ?

em muốn dùng công thức, mỗi khi chép dữ liệu vào sheet Main thì tự động lấy qua sheet KHGH KN

 

[mhieuit]

Có 2 cách, mình mở file thấy bạn dùng Filter, vậy sao ko lọc luôn bằng filter rồi coppy sang, hoặc dùng công thức tại sheet KHGN KN

thank ban nhiều nha, em đã làm được rùi.

 

[mhieuit]

Bạn xem file xem được chưa ?

anh ơi, có thể giải thích dùm em code vba trong file của anh không,

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B2]) Is Nothing Then Exit Sub
Range("A4:F65536").Clear
Sheet1.[A1:F65536].AdvancedFilter 2, [B1:B2], [A4]
Range("F:F").Clear
Range("A2").Select
End Sub

thanks anh nhiều

 

[Ngoai Thanh]

à, thì tàm tạm thế này :
trên cơ sở thay đổi tại ô B2 để chạy sub
trước khi nạp dữ liệu mới thì xóa dữ liệu cũ đi ( Range("A4:F65536").Clear )
Tại sheet1 chọn vùng A1 đến F 65536 lọc AdvancedFilter nội dung thứ 2 theo điều kiện tại [B1:B2] và dán tại A4 .
do không cần cột f nên xóa đi .
với cái trình độ hơn bạn một tý thì mình tạm giải thích vậy .

 

[mhieuit]

à, thì tàm tạm thế này :
trên cơ sở thay đổi tại ô B2 để chạy sub
trước khi nạp dữ liệu mới thì xóa dữ liệu cũ đi ( Range("A4:F65536").Clear )
Tại sheet1 chọn vùng A1 đến F 65536 lọc AdvancedFilter nội dung thứ 2 theo điều kiện tại [B1:B2] và dán tại A4 .
do không cần cột f nên xóa đi .
với cái trình độ hơn bạn một tý thì mình tạm giải thích vậy .

sao em xóa dự liệu của sheet khgh kn, sao đó chạy vba lại thì không có tác dụng vậy anh.

 

[Ngoai Thanh]

sao em xóa dự liệu của sheet khgh kn, sao đó chạy vba lại thì không có tác dụng vậy anh.

Chiều mình đi vắng nên không hồi âm . Bạn xóa thế nào nhỉ ? Có thể xóa hết trừ ô B1 và B2 . Nếu thay đổi B2 thì lọc các nội cung khác như :smg, mkp ....để chay code, bạn nháy đùp vào B2 hoặc đặt chuột vào B2 . Là vi code thực hiện theo Worksheet_Change mà .

 

[mhieuit]

Chiều mình đi vắng nên không hồi âm . Bạn xóa thế nào nhỉ ? Có thể xóa hết trừ ô B1 và B2 . Nếu thay đổi B2 thì lọc các nội cung khác như :smg, mkp ....để chay code, bạn nháy đùp vào B2 hoặc đặt chuột vào B2 và bấm F2 hoặc chuyển qua sheet khác rồi quay lại . Là vi code thực hiện theo Worksheet_Change mà .

Cám ơn anh Thanh rất nhiều, em đã hiểu được vấn đề rồi.

Sẳn đây em hỏi anh 1 câu nữa nha!
Em có 1 vấn đề chưa giải quyết được như sau:
- Em muốn tạo 1 Pivotable auto cho sheet KHGH KN khi điều kiện tại ô vận chuyển thay đổi, em đã thử tạo trước pivotable cho sheet KHGH KN, khi thay đổi điều kiện tại ô vận chuyển thì vùng nguồn lại có thêm các dòng khoảng trắng, anh giúp em nhé.

Thank anh nhiều.

 

[Ngoai Thanh]

Cám ơn anh Thanh rất nhiều, em đã hiểu được vấn đề rồi.

Sẳn đây em hỏi anh 1 câu nữa nha!
Em có 1 vấn đề chưa giải quyết được như sau:
- Em muốn tạo 1 Pivotable auto cho sheet KHGH KN khi điều kiện tại ô vận chuyển thay đổi, em đã thử tạo trước pivotable cho sheet KHGH KN, khi thay đổi điều kiện tại ô vận chuyển thì vùng nguồn lại có thêm các dòng khoảng trắng, anh giúp em nhé.

Thank anh nhiều.

Thú thực là mình quên vì chục ngày nay bạn mới quay lại . Thấy chủ đề mới vào xem, thấy tên mới xem lại .
Mình không hiểu bạn muốn nói đến dòng trắng nào ? nếu là 2 dòng gần cuối của Pivotable thì bạn bỏ chọn Blank đi . Còn nếu bạn muốn chọn thêm điều khiện lọc thì mình đã sửa lại code để lọc thêm điệu kiện của cột Name of the ship-to party ( tức lọc 2 điều khiện ) . Nếu không muốn lọc điều kiện thứ 2 thì xóa c2 đi .

 

[mhieuit]

Thú thực là mình quên vì chục ngày nay bạn mới quay lại . Thấy chủ đề mới vào xem, thấy tên mới xem lại .
Mình không hiểu bạn muốn nói đến dòng trắng nào ? nếu là 2 dòng gần cuối của Pivotable thì bạn bỏ chọn Blank đi . Còn nếu bạn muốn chọn thêm điều khiện lọc thì mình đã sửa lại code để lọc thêm điệu kiện của cột Name of the ship-to party ( tức lọc 2 điều khiện ) . Nếu không muốn lọc điều kiện thứ 2 thì xóa c2 đi .

- Ý của em là tạo auto pivottable dựa trên sự thay đổi dữ liệu của sheet KHGH KN.
- Mỗi lần thay đổi nhà vận chuyển thì sheet pivotable phải thay đổi theo, nhưng mà soure KHGH KN em chọn vùng hơi rộng nên phát sinh dòng bank trong pivotable.
- Vậy dùng code VBA như thế nào để không xuất hiện dòng bank mỗi khi dữ liệu ít hay nhiều bên sheet KHGH KN.

Thanks anh nhiều.

 

[Ngoai Thanh]

- Ý của em là tạo auto pivottable dựa trên sự thay đổi dữ liệu của sheet KHGH KN.
- Mỗi lần thay đổi nhà vận chuyển thì sheet pivotable phải thay đổi theo, nhưng mà soure KHGH KN em chọn vùng hơi rộng nên phát sinh dòng bank trong pivotable.
- Vậy dùng code VBA như thế nào để không xuất hiện dòng bank mỗi khi dữ liệu ít hay nhiều bên sheet KHGH KN.

Thanks anh nhiều.

À, vậy thì thua rồi , chờ các bạn khác giúp vậy ! viết code phụ thuộc vào pivotable thì mình chưa viết bao giờ . Nhưng theo mình thì bạn dùng pivotable đi code mà làm gì . vì pivotable là tuyệt chiêu của Excel rồi .

 

[mhieuit]

À, vậy thì thua rồi , chờ các bạn khác giúp vậy ! viết code phụ thuộc vào pivotable thì mình chưa viết bao giờ . Nhưng theo mình thì bạn dùng pivotable đi code mà làm gì . vì pivotable là tuyệt chiêu của Excel rồi .

Về phần trên em đã tham khảo các bài liên quan trên 4rum và em đã làm ok rồi, thank anh nhiều.
- Cho em hỏi 1 câu nữa về code bên dưới của anh:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B2]) Is Nothing Then Exit Sub
Range("A4:F65536").Clear
Sheet1.[A1:F65536].AdvancedFilter 2, [B1:B2], [A4]
Range("F:F").Clear
Range("A2").Select
End Sub

- Anh có thể thêm cho em code để mỗi lần thay đổi dữ liệu bên sheet MAIN thì khi click qua sheet KHGH KN nó sẽ update luôn (khỏi xoá điều kiện cũ, tức là em giữ nguyên điều kiện là KN).

Thanks.

 

[Ngoai Thanh]

Về phần trên em đã tham khảo các bài liên quan trên 4rum và em đã làm ok rồi, thank anh nhiều.
- Cho em hỏi 1 câu nữa về code bên dưới của anh:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B2]) Is Nothing Then Exit Sub
Range("A4:F65536").Clear
Sheet1.[A1:F65536].AdvancedFilter 2, [B1:B2], [A4]
Range("F:F").Clear
Range("A2").Select
End Sub

- Anh có thể thêm cho em code để mỗi lần thay đổi dữ liệu bên sheet MAIN thì khi click qua sheet KHGH KN nó sẽ update luôn (khỏi xoá điều kiện cũ, tức là em giữ nguyên điều kiện là KN).

Thanks.

Bạn cứ text code thoải mái đi , thay đổi dữ liệu và kiểm chứng , chưa text đã yêu câu! bạn để ý câu lệnh Sheet1.[A1:F65536].AdvancedFilter 2, [B1:B2], [A4] tức là code sẽ lọc dữ liệu trên cơ sở từ A1:F65536 nếu có dữ liệu là nó lọc AdvancedFilter 2 hết cho dù bạn thay đổi dữ liệu nhiều chỗ hoặc thêm vào , hoặc xóa đi hoặc không thay đổi . Cái chủ yếu là code lọc có chính xác hay không , thời gian chạy thế nào , có bị lỗi không ...? Còn bạn muốn thì tìm trên diễn đàn thiếu gì !

 

[be_09]

- Ý của em là tạo auto pivottable dựa trên sự thay đổi dữ liệu của sheet KHGH KN.
- Mỗi lần thay đổi nhà vận chuyển thì sheet pivotable phải thay đổi theo, nhưng mà soure KHGH KN em chọn vùng hơi rộng nên phát sinh dòng bank trong pivotable.
- Vậy dùng code VBA như thế nào để không xuất hiện dòng bank mỗi khi dữ liệu ít hay nhiều bên sheet KHGH KN.

Thanks anh nhiều.

Anh giúp tạo Pivottable ở sheet có tên là TongHopKHGHKN.

Tại B2 của sheet KHGH KN, em chọn 1 nhà vận chuyển xong thì sang sheet TongHopKHGHKN nhấn vào nút Tổng hợp tàu nhận hàng thì được kết quả tổng hợp của nhà vận chuyển vừa chọn ở sheet KHGH KN.

Nếu em chọn 1 nhà vận chuyển khác và nhấn nút Tổng hợp tàu nhận hàng thì nó tự động xóa Pivottable cũ và tạo mới Pivottable của nhà vận chuyển vừa chọn.

Xem File.

 

[mhieuit]

Anh giúp tạo Pivottable ở sheet có tên là TongHopKHGHKN.

Tại B2 của sheet KHGH KN, em chọn 1 nhà vận chuyển xong thì sang sheet TongHopKHGHKN nhấn vào nút Tổng hợp tàu nhận hàng thì được kết quả tổng hợp của nhà vận chuyển vừa chọn ở sheet KHGH KN.

Nếu em chọn 1 nhà vận chuyển khác và nhấn nút Tổng hợp tàu nhận hàng thì nó tự động xóa Pivottable cũ và tạo mới Pivottable của nhà vận chuyển vừa chọn.

Xem File.

CÁM ƠN ANH RẤT NHIỀU VỀ VIỆC GIẢI QUYẾT VẤN ĐỀ TRÊN.

EM ĐÃ THỬ TEST CODE CỦA ANH NGOAI THANH
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B2]) Is Nothing Then Exit Sub
Range("A4:F65536").Clear
Sheet1.[A1:F65536].AdvancedFilter 2, [B1:B2], [A4]
Range("F:F").Clear
Range("A2").Select
End Sub
ĐỂ TỰ ĐỘNG CẬP NHẬT DỮ LIỆU SHEET KHGH KN (NVC VẪN ĐỂ NGUYÊN) KHI THAY ĐỔI DỮ LIỆU TỪ CỘT A ->E CUẢ SHEET MAIN.
CỨ MỖI LẦN DỮ LIỆU SHEET MAIN THAY ĐỔI THÌ QUA SHEET KHGH KN THAY ĐỔI NVC THÌ DỮ LIỆU MỚI ĐƯỢC LÀM MỚI.
ANH CÓ CÁCH NÀO GIÚP EM VỚI.

 

[Ngoai Thanh]

CÁM ƠN ANH RẤT NHIỀU VỀ VIỆC GIẢI QUYẾT VẤN ĐỀ TRÊN.

EM ĐÃ THỬ TEST CODE CỦA ANH NGOAI THANH
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B2]) Is Nothing Then Exit Sub
Range("A4:F65536").Clear
Sheet1.[A1:F65536].AdvancedFilter 2, [B1:B2], [A4]
Range("F:F").Clear
Range("A2").Select
End Sub
ĐỂ TỰ ĐỘNG CẬP NHẬT DỮ LIỆU SHEET KHGH KN (NVC VẪN ĐỂ NGUYÊN) KHI THAY ĐỔI DỮ LIỆU TỪ CỘT A ->E CUẢ SHEET MAIN.
CỨ MỖI LẦN DỮ LIỆU SHEET MAIN THAY ĐỔI THÌ QUA SHEET KHGH KN THAY ĐỔI NVC THÌ DỮ LIỆU MỚI ĐƯỢC LÀM MỚI.
ANH CÓ CÁCH NÀO GIÚP EM VỚI.

À, có phải bạn định sau khi thay đổi dữ liệu bên sheet Main khi sang sheet KHGH KN thì chỉ khi thay đổi NVC tai B2 hoặc C2 thì dữ liệu mới cập nhật , có đúng không ? hoặc bạn sửa dữ liệu mới và gửi tập tin mới nói rõ yêu cầu kết quả phải thế nào thì mới có hướng giải quyết giúp bạn được !

 

[mhieuit]

À, có phải bạn định sau khi thay đổi dữ liệu bên sheet Main khi sang sheet KHGH KN thì chỉ khi thay đổi NVC tai B2 hoặc C2 thì dữ liệu mới cập nhật , có đúng không ? hoặc bạn sửa dữ liệu mới và gửi tập tin mới nói rõ yêu cầu kết quả phải thế nào thì mới có hướng giải quyết giúp bạn được !

- Bình thường thì khi thay đổi nhà vận chuyển (nvc) tại B2(sheet khgh kn) thì dữ liệu bên dưới mới thay đổi.
- Dữ liệu sheet Main (Từ cột A -> E) thay đổi dữ liệu mới chẳng hạn, qua sheet khgh kn thì dữ liệu bên sheet này không thay đổi (trong khi dữ liệu sheet Main đã được update mới), mà phải thay đổi nvc tại B2 thì dữ liệu bên dưới mới được cập nhật.
- Ý em là khi em update dữ liệu bên sheet Main thì qua sheet khgh kn dữ liệu cũng được update theo.

Mong các anh/chị/em giúp đỡ em trường hợp này.


Thank all.

 

[Ngoai Thanh]

- Bình thường thì khi thay đổi nhà vận chuyển (nvc) tại B2(sheet khgh kn) thì dữ liệu bên dưới mới thay đổi.
- Dữ liệu sheet Main (Từ cột A -> E) thay đổi dữ liệu mới chẳng hạn, qua sheet khgh kn thì dữ liệu bên sheet này không thay đổi (trong khi dữ liệu sheet Main đã được update mới), mà phải thay đổi nvc tại B2 thì dữ liệu bên dưới mới được cập nhật.
- Ý em là khi em update dữ liệu bên sheet Main thì qua sheet khgh kn dữ liệu cũng được update theo.

Mong các anh/chị/em giúp đỡ em trường hợp này.


Thank all.

Giúp nốt bạn trong lúc chờ bạn khác giúp !