Nhờ giúp đỡ sửa code Filter

[AnhThu-1976]

Em có đoạn code

Sub FilterRows()
    With Worksheets("TH").Range("A8")
        .AutoFilter Field:=12, Criteria1:=">0"
        .AutoFilter Field:=13, Criteria1:=">0"
    End With
End Sub

Đoạn code trên dùng để Filter cột 12 và cột 13 (cột L và M) lớn hơn 0
Bây giờ em muốn thêm điều kiện filter ở cột 13 là <=10000
Nhờ anh chị giúp em, em xin cảm ơn!

 

[Nhattanktnn]

Em có đoạn code

Sub FilterRows()
    With Worksheets("TH").Range("A8")
        .AutoFilter Field:=12, Criteria1:=">0"
        .AutoFilter Field:=13, Criteria1:=">0"
    End With
End Sub

Đoạn code trên dùng để Filter cột 12 và cột 13 (cột L và M) lớn hơn 0
Bây giờ em muốn thêm điều kiện filter ở cột 13 là <=10000
Nhờ anh chị giúp em, em xin cảm ơn!

Record macro nha bạn . .

 

[AnhThu-1976]

Record macro nha bạn . .

Đã record và thêm dòng lệnh
.AutoFilter Field:=13, Criteria1:="<=10000"
nhưng không đúng

 

[Nhattanktnn]

Đã record và thêm dòng lệnh
.AutoFilter Field:=13, Criteria1:="<=10000"
nhưng không đúng

Đó là do record chưa đúng, hãy nghiên cứu thêm