Lỗi Run-time error '9'

[Bear1012]

Lần đầu biết đến code trong excel nên em mạn phép hỏi em nhập dòng code này vào và bị báo lỗi Run-time error '9' thì phải xử lý làm sao ạ. Em đang muốn tạo ô tìm kiếm số điện thoại theo tên trong bảng, anh chị có cách nào hay chỉ giúp em với ạ. Xin cảm ơn anh chị rất nhiều!

 

[Bear1012]

Không ai giúp em với à (

 

[nguoiconxunui]

Bởi nó không hiểu bạn muốn autofilter ở range() nào nên nó bào out of range()

Như vậy muốn autofiter thì trước tiên phải chỉ định range() , sau đó mới Criteria

 

[Bear1012]

Bởi nó không hiểu bạn muốn autofilter ở range() nào nên nó bào out of range()

Như vậy muốn autofiter thì trước tiên phải chỉ định range() , sau đó mới Criteria

Cảm ơn anh..anh có thể sửa cụ thể giúp em không ạ..em làm theo người ta thôi chứ cũng mù lắm

 

[nguoiconxunui]

Cảm ơn anh..anh có thể sửa cụ thể giúp em không ạ..em làm theo người ta thôi chứ cũng mù lắm

Ví dụ nhập text ở A1
1. Gọi sub public FilterToShow khi a1 change

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Target.Worksheet.Range("A1")) Is Nothing Then FilterToShow
End Sub

2. Viết sub autofilter

Public Sub FilterToShow()
With Sheet1

            .AutoFilterMode = False

            .Range("A5:B5").AutoFilter

            .Range("A5:B5").AutoFilter Field:=2, Criteria1:="=*" & Range("A1").Value & "*", Operator:=xlAnd

    End With
End Sub