Ai gúp em viết macro tìm và lọc dự liệu theo dự liệu con

[myluck]

-em có một dãy các vật tư theo dạng
a gồm có a1, a2, a3
b gồm có b1, b2
c gồm có c1, c2, c3, c4
......
- em muốn lập 1 sheet mới mà chỉ cần gõ a thì các hạng mục a1, a2,a3 xuất hiện
tương tự như thế cho các b c.....

 

[nghiaphuc]

-em có một dãy các vật tư theo dạng
a gồm có a1, a2, a3
b gồm có b1, b2
c gồm có c1, c2, c3, c4
......
- em muốn lập 1 sheet mới mà chỉ cần gõ a thì các hạng mục a1, a2,a3 xuất hiện
tương tự như thế cho các b c.....

Trên Sheet2 của bạn, tạo 1 sub như vầy:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$B$1" Then Exit Sub
    Sheet1.[B1:B65536].AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=[E1:E2], _
        CopyToRange:=[C1], Unique:=False
End Sub

(Xem trong file đính kèm nhé)

 

[Hai Lúa Miền Tây]

-em có một dãy các vật tư theo dạng
a gồm có a1, a2, a3
b gồm có b1, b2
c gồm có c1, c2, c3, c4
......
- em muốn lập 1 sheet mới mà chỉ cần gõ a thì các hạng mục a1, a2,a3 xuất hiện
tương tự như thế cho các b c.....

Lỡ viết code củ chuối rồi post luôn
Dùng 3 cái inputbox để nhập cho nó năng động

Sub Loc()
Dim rRange As Range
Dim chuoi As String
Dim cot As Long
Sheet2.Columns("A:B").ClearContents
    On Error Resume Next
      Set rRange = Application.InputBox(Prompt:= _
         "Vui long chon vung du lieu", _
             Title:="Chon vung du lieu", Type:=8)
         cot = InputBox("Vui long nhap so cot can loc", "Nhap so cot cua bang ", "")
         chuoi = InputBox("Dieu kien loc", "Go dieu kien loc", "")
    On Error GoTo 0
       If rRange Is Nothing Then
         Exit Sub
       Else
          With rRange
            .AutoFilter cot, chuoi & "*"
            .SpecialCells(12).Copy Sheet2.Range("A1")
            .AutoFilter
          End With
       End If
 Sheet2.Select

End Sub