Auto Filter

John, this might work for you. This assumes your criteria is in cell A1 (what you want to filter for), and your data is in column B starting in row 2. You don't want to start your data in row 1, since row 1 may get hidden (along with your criteria cell) if it doesn't equal the criteria value.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Range("A1") = "" Then
        If ActiveSheet.FilterMode Then
            ActiveSheet.ShowAllData
        End If
    Else
        Worksheets("Sheet1").Range("B:B").AutoFilter _
            field:=1, _
            Criteria1:=Range("A1").Value, _
            VisibleDropDown:=False
    End If
End Sub

This updates anytime you change the criteria in cell A1. It even shows all your data if you change the value in A1 to nothing (blank).

Open your worksheet, press ALT+F11 to open the vba window.

Expand the branch for 'VBA Project (your workbook name)' until you see 'Sheet1', 'Sheet2', 'ThisWorkbook', etc.

Double-click on the sheet that you want to apply the auto-filtering, and in the right-hand window paste the code I provided. You can then close the VBA window to return to your worksheet.

This code works on the worksheet's SelectionChange event, so you don't have to press any buttons or run any macros manually. Whenever you change the value in cell A1 it will update the auto-filtered data in column B.

JohnGuts

You are carrying this conversation with numerous members over at least two different formus, wasting the time of 3 (to date) forum members. Before posting, read the rules of either forum, and ask your question in one forum only.

http://www.mrexcel.com/board2/viewtopic.php?t=265557

DominicB