Snasui Excel Forum

Code: Select all

Sub Macro1()
    ActiveSheet.Range("$A$3:$B$20").AutoFilter Field:=1, Criteria1:=Range("A2").Value
End Sub

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$2" Then Call Module1.Macro1
End Sub

Code: Select all

    Range("A2") = Empty
    Selection.AutoFilter

Code: Select all

Sub Filter()
    ActiveSheet.Range("$A$3:$B$20").AutoFilter Field:=1, Criteria1:=Range("A2").Value
End Sub

Code: Select all

Sub Filter()
    On Error Resume Next
    If Range("A2") = "" Then
        ActiveSheet.ShowAllData
    Else
        ActiveSheet.Range("$A$3:$B$20").AutoFilter Field:=1, _
            Criteria1:=Range("A2").Value
    End If
End Sub