lọc dữ liệu (2 người xem)

[shinodato]

lần trc e có hỏi 1 lần về macro cho để lọc dữ liệu, nhưng e làm lại thì k thấy hiển thị kết quả mặc dù macro chạy ok, mong các bác giúp đỡ e ạ

 

[Quang_Hải]

lần trc e có hỏi 1 lần về macro cho để lọc dữ liệu, nhưng e làm lại thì k thấy hiển thị kết quả mặc dù macro chạy ok, mong các bác giúp đỡ e ạ

Code bạn sai sạch trơn mà chạy gì được.
Code của bạn

Sub loc()
Range("a6", Range("h25")).End(xlUp).AutoFilter field:=3, Criteria1:=[k7]
End Sub

Trong khi dữ liệu trong file thì từ ô E6 đến G20, điều kiện lọc lại nằm tại K5
Cho nên cần sửa lại là

Sub loc()
Range("E6", Range("G25")).End(xlUp).AutoFilter field:=3, Criteria1:=[k5]
End Sub

 

[shinodato]

em sửa lại rồi mà vẫn k hiển thi đươc bác ơi?

 

[Quang_Hải]

em sửa lại rồi mà vẫn k hiển thi đươc bác ơi?

Vậy bạn kiên nhẫn đợi sự trợ giúp khác nhé. Mình chỉ thấy có nhiêu đó thôi.

 

[phuyen89]

Vậy bạn kiên nhẫn đợi sự trợ giúp khác nhé. Mình chỉ thấy có nhiêu đó thôi.

Anh Quang Hai đã nhìn vô là thấy hết rồi bạn.
Code bạn sửa lại vùng chưa đúng, điều kiện Lọc bạn tham chiếu bị sai địa chỉ thì sao mà ra cho bạn được!

 

[shinodato]

Cám ơn các bác, nhưng e sửa lại rồi mà vẫn k được, hình như chỉ tìm đc mỗi hàng 17 còn các hàng khác k tìm được, chả hiểu ra sao nữa ạ. Các các check file giùm em với ạ

 

[Quang_Hải]

Cám ơn các bác, nhưng e sửa lại rồi mà vẫn k được, hình như chỉ tìm đc mỗi hàng 17 còn các hàng khác k tìm được, chả hiểu ra sao nữa ạ. Các các check file giùm em với ạ

Sub loc()
Range("E6", Range("G65536").End(xlUp)).AutoFilter field:=3, Criteria1:=[k5]
End Sub

Hoặc

Sub loc()
Range("E6").CurrentRegion.AutoFilter field:=3, Criteria1:=[k5]
End Sub