Sử Dụng AUTOFILTER trong VBA (1 người xem)

[Đỗ Đức Tuấn]

Thân chào cả nhà.

Hiện tại mình mình đang muốn sử dụng VBA để sử dụng Autofilter, theo điều kiện của 1 range mong muốn.

Nhưng khi mình cho điều kiện lọc mang tính chất tương đối thì code lại không chạy ra điều kiện đó.

VD như: có 1 dãy ký tự
202-1x
202-2x
202-2x
202-2x
201-1x
201-2xi
khi mình dùng điều kiện lọc chính xác "202-2x" vào range điều kiện thì code chạy ra kết quả ngon
Nhưng khi cho điều kiện lọc là "202-" thì lại không ra kết quả . (mình đã thử các loại nhưng ko đc)

Code:
Sub loc_theo_range()
Sheets("SX").Activate

Range(Range("a5"), Cells(Range("b5").End(xlDown).Row, Range("bb5").End(xlToLeft).Column)).AutoFilter 4, Criteria1:=(Range("D2").Value), Operator:=xlFilterValues

End Sub

Rất mong được sự hỗ trợ của các cao thủ

 

[vu_tuan_manh_linh]

" Nhưng khi cho điều kiện lọc là "202-" thì lại không ra kết quả . (mình đã thử các loại nhưng ko đc) ".
Code cần thêm dấu * vào điều kiện lọc: "202-*".
Muốn biết thêm bạn có thể record code khi fillter text contains

 

[Đỗ Đức Tuấn]

" Nhưng khi cho điều kiện lọc là "202-" thì lại không ra kết quả . (mình đã thử các loại nhưng ko đc) ".
Code cần thêm dấu * vào điều kiện lọc: "202-*".
Muốn biết thêm bạn có thể record code khi fillter text contains

Cảm ơn bác.

có thế mà em làm mãi mà ko đc.

Code: đã OK
Range(Range("a5"), Cells(Range("b5").End(xlDown).Row, Range("bb5").End(xlToLeft).Column)).AutoFilter 4, Criteria1:=(Range("D2") & "*"), Operator:=xlFilterValues

Một lần nữa xin cảm ơn bác.