I am trying to run a filter on a set of data, copy only whats left after the filter, then remove the filter to repeat with a different filter...my code is a little bulky but i dont see why it wont work
[VBA]
'ISOLATE BY MKP
Dim MKP As String
Dim i As Integer
Dim MKPRng As Range
MKP = "Search Criteria"
i = 3
ActiveWorkbook.Worksheets(1).Activate
On Error Resume Next
ActiveSheet.ShowAllData
On Error GoTo 0
Range("A1").Activate
Set MKPRng = Selection.CurrentRegion
MKPRng.AutoFilter Field:=3, Criteria1:=MKP, Operator:=xlFilterValues
Set MKPRng = Selection.SpecialCells(xlCellTypeVisible)
MKPRng.Copy
ActiveWorkbook.Worksheets(i).Activate
Range("A:AL").Select
Selection.PasteSpecial Paste:=xlPasteValues
[/VBA]