Auto Filter


'Filter
    Selection.AutoFilter
    Selection.AutoFilter Field:=1, Criteria1:="12"

ActiveSheet.Range("A:O").AutoFilter Field:=9, Criteria1:="Bench-Allocation Pending"

'Filter view All
    Selection.AutoFilter Field:=1


If ActiveSheet.AutoFilterMode = True Then ActiveSheet.AutoFilterMode = False

ActiveSheet.Range("$A$1:$R$" & endrows).AutoFilter Field:=4, Criteria1:="=CnTy", Operator:=xlOr, Criteria2:="="

Range(Range("C65536").End(xlUp), Cells(1)).AutoFilter

Total Page Visits: 57 - Today Page Visits: 1

Leave a Reply