Excel VBA: Auto-Filter filtering first column when A2 selected

[Bluesguy07]

I'm not sure why this is happening, and you guys helped me with this original code... but whenever I run this macro, it is ALWAYS trying to filter the first column when the any cell left of AS1 is selected. I have done some modifications to the original, but can't figure out why it's doing it.

          'Filters Column AS by QOI-qty = 
redSub FilterColumnAS()
Application.ScreenUpdating = False
    ActiveSheet.Range("AS1").Select
    Selection.AutoFilter
    ActiveSheet.Range("$AS$1:$AY$" & lastr1).AutoFilter Field:=1, Criteria1:=RGB(255, 0 _
    , 0), Operator:=xlFilterCellColor
Application.ScreenUpdating = True
End Sub

Thanks

 

[JLGWhiz]

I'm not sure why this is happening, and you guys helped me with this original code... but whenever I run this macro, it is ALWAYS trying to filter the first column when the any cell left of AS1 is selected. I have done some modifications to the original, but can't figure out why it's doing it.

          'Filters Column AS by QOI-qty = 
redSub FilterColumnAS()
Application.ScreenUpdating = False
    ActiveSheet.Range("AS1").Select
    Selection.AutoFilter
    ActiveSheet.Range("$AS$1:$AY$" & lastr1).AutoFilter Field:=1, Criteria1:=RGB(255, 0 _
    , 0), Operator:=xlFilterCellColor
Application.ScreenUpdating = True
End Sub

Thanks

Field:=1

The Field number designates the column within the specified range to filter. If your range is G1:AC500 and the Field designation is 3, then Column I will be the filtered column. Of tje Field designation is 1 then Column G will be the filtered column. So change the Field number to change the column that is filtered.