Xem giúp đoạn code autofilter và copy giá trị lọc sang sheet khác (2 người xem)

[thangbithu]

Các anh chị xem giúp đoạn code này, tại sao bị sai ở dòng lệnh chữ đỏ? có cách nào viết ngắn gọn hơn nữa không?

Sub Macro2()
' Filter
Sheet1.Range("$A$3:$E$12").AutoFilter Field:=5, Criteria1:=">6000", _
Operator:=xlAnd
Sheet1.Range("A3:E11").Copy
Sheet3.Range("I14").Select
Sheet3.Paste
End Sub

 

[phihndhsp]

Các anh chị xem giúp đoạn code này, tại sao bị sai ở dòng lệnh chữ đỏ? có cách nào viết ngắn gọn hơn nữa không?

Sub Macro2()
' Filter
Sheet1.Range("$A$3:$E$12").AutoFilter Field:=5, Criteria1:=">6000", _
Operator:=xlAnd
Sheet1.Range("A3:E11").Copy
Sheet3.Select
Sheet3.Range("I14").Select
Sheet3.Paste

sửa lại thì như trên, mình phải thêm câu lệnh
Sheet3.select vào chổ đỏ đỏ
ngắn thì có như thế này
Sheet1.Range("A3:E11").Copy Sheet3.Range("I14")

 

[thangbithu]

Mình cảm ơn bạn Phi nha.

Bây giờ mình muốn lọc nhiều điều kiện theo đoạn code dưới đây

Sub macro3()
'Filter nhieu dk
ActiveSheet.Range("a3:e12").AutoFilter field:=5, Criteria1:=">6000", _
Operator:=xlAnd
ActiveSheet.Range("a3:e12").AutoFilter field:=3, Criteria1:=">50", _
Operator:=xlAnd
Range("a3:e12").Copy
Range("I14").Select
ActiveSheet.Paste
End Sub

Đoạn này chạy ok rồi, vấn đề là muốn ghép 2 dòng điều kiện (chữ đỏ) lại chung 1 dòng lệnh thì làm thế nào? trong trường hợp này có sử dụng toán tử AND được không? nếu được thì cú pháp thế nào?

 

[be_09]

Tốt nhất là bạn nên sử dụng AdvancedFilter để lọc ở 1 sheet riêng thì code sẽ gọn gàng hơn.

 

[thangbithu]

Tốt nhất là bạn nên sử dụng AdvancedFilter để lọc ở 1 sheet riêng thì code sẽ gọn gàng hơn.

Cảm ơn bạn đã có lời khuyên. Là vì mình đang học VBA căn bản, mình muốn mở rộng bài tập để tìm hiểu thêm. Nếu được bạn code cụ thể giúp mình, cảm ơn bạn nhiều.

 

[phihndhsp]

Mình cảm ơn bạn Phi nha.

Bây giờ mình muốn lọc nhiều điều kiện theo đoạn code dưới đây

Sub macro3()
'Filter nhieu dk
ActiveSheet.Range("a3:e12").AutoFilter field:=5, Criteria1:=">6000", _
Operator:=xlAnd
ActiveSheet.Range("a3:e12").AutoFilter field:=3, Criteria1:=">50", _
Operator:=xlAnd
Range("a3:e12").Copy
Range("I14").Select
ActiveSheet.Paste
End Sub

Đoạn này chạy ok rồi, vấn đề là muốn ghép 2 dòng điều kiện (chữ đỏ) lại chung 1 dòng lệnh thì làm thế nào? trong trường hợp này có sử dụng toán tử AND được không? nếu được thì cú pháp thế nào?

sử dụng advanced filter nha chứ auto thì phải 2 dòng riêng biệt

 

[ndu96081631]

Cảm ơn bạn đã có lời khuyên. Là vì mình đang học VBA căn bản, mình muốn mở rộng bài tập để tìm hiểu thêm. Nếu được bạn code cụ thể giúp mình, cảm ơn bạn nhiều.

Khi hỏi bài, muốn nhận được trợ giúp nhanh chóng, Thắng nên cho file giả lập lên đây kèm code
Bởi không lý gì bắt người khác giả lập dữ liệu để test code cho mình, đúng không?
------------------------

Đoạn này chạy ok rồi, vấn đề là muốn ghép 2 dòng điều kiện (chữ đỏ) lại chung 1 dòng lệnh thì làm thế nào? trong trường hợp này có sử dụng toán tử AND được không? nếu được thì cú pháp thế nào?

Chắc ăn không ghép được rồi! Khỏi suy nghĩ! Ẹc... Ẹc...

 

[thangbithu]

Dạ, em cảm ơn anh ndu96081631 và bạn phihndhsp