Dynamic auto filter...

[Legacy 264643]

Just curious,
What would I have to do to make the following code I recorded for using an auto filter Dynamic?

ActiveSheet.Range("$A$2:$G$1138").AutoFilter Field:=5, Criteria1:="Yes"
    ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort. _
    SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort. _
    SortFields.Add Key:=Range("C2:C1138"), SortOn:=xlSortOnValues, Order:= _
    xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").AutoFilter. _
        Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

 

[Chris Mack]

It depends what you want it to be dynamic for.

One thing I can think of would be like:

n = Inputbox("Last row in range:")

or

n = Cells(Rows.Count, 1).End(xlUp).Row

ActiveSheet.Range("$A$2:$G$" & n).AutoFilter Field:=5, Criteria1:="Yes"

I would think it would depend on what kind of dynamicity you wanted though.

Chris.