Sửa dùm code lọc dữ liệu

[Minda]

Tôi có file này, làm mãi không được. Tôi đưa lên đây nhờ mọi người hoàn thiện thêm cho mình nha.

 

[concogia]

Tôi có file này, làm mãi không được. Tôi đưa lên đây nhờ mọi người hoàn thiện thêm cho mình nha.

Lọc thêm một lần nữa ở cột A
........
.AutoFilter 2, ">=" & CLng(Range("B2").Value), 1, "<=" & CLng(Range("B3").Value)
.AutoFilter 1, "px" & "*"
.Offset(1, 2).Resize(, 2).SpecialCells(12).Copy Range("A6")
........
Thân

 

[TrungChinhs]

Tôi có file này, làm mãi không được. Tôi đưa lên đây nhờ mọi người hoàn thiện thêm cho mình nha.

Bạn gõ điều kiện lọc (pn hoặc px) vào ô A1 của S2 rồi lọc nha.

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
    On Error Resume Next
    If Target.Address = "$B$3" Then Call Loc
End Sub

Sub Loc()
On Error Resume Next
    S2.[a6:b30000].Clear
    With S1.[a3:a30000]
        .AutoFilter 1, "=*" & S2.[a1] & "*"
        .Offset(, 2).Resize(, 2).SpecialCells(12).Copy S2.[a6]
        .AutoFilter
    End With
End Sub