VBA Macro to Filter
' VBA Macro to Filter
Sub Macro2Filter()
'
' Program to filter in Column f, select 1, 2 and 3 and then delete it
'
'
Selection.AutoFilter
Sheets("Sheet1").Range("F1").Select
ActiveSheet.Range("$A$1:$F$954").AutoFilter Field:=6, Criteria1:=Array("1", _
"2", "3"), Operator:=xlFilterValues
Range("F2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete Shift:=xlUp
Selection.AutoFilter
End Sub
Sub Macro2Filter()
'
' Program to filter in Column f, select 1, 2 and 3 and then delete it
'
'
Selection.AutoFilter
Sheets("Sheet1").Range("F1").Select
ActiveSheet.Range("$A$1:$F$954").AutoFilter Field:=6, Criteria1:=Array("1", _
"2", "3"), Operator:=xlFilterValues
Range("F2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete Shift:=xlUp
Selection.AutoFilter
End Sub
Comments
Post a Comment