Delete Non-Filtered Data

[thardin]

Here is the code I have to filter my data.
However, I want to delete not Hide all the rows (besides headings) that DOES not meet these 2 criteria.
How would I modify this AND the range that changes on a daily basis.


Sub FilterTest3()
' FilterTest3 Macro
' Keyboard Shortcut: Ctrl+p


Range("O2").Select

Selection.AutoFilter

ActiveSheet.Range("$A$1:$S$15").AutoFilter Field:=15, Criteria1:="=MFS*", _

Operator:=xlOr, Criteria2:="=#N/A"

End Sub

 

[Fluff]

How about

Sub FilterTest3()
' FilterTest3 Macro
' Keyboard Shortcut: Ctrl+p


Range("O2").Select

Selection.AutoFilter

With ActiveSheet
   .Range("$A$1:$S$1").AutoFilter 15, "<>MFS*", xlAnd, "<>#N/A"
   .AutoFilter.Range.Offset(1).EntireRow.Delete
   .ShowAllData
End With

End Sub

 

[thardin]

How about

Sub FilterTest3()
' FilterTest3 Macro
' Keyboard Shortcut: Ctrl+p


Range("O2").Select

Selection.AutoFilter

With ActiveSheet
   .Range("$A$1:$S$1").AutoFilter 15, "<>MFS*", xlAnd, "<>#N/A"
   .AutoFilter.Range.Offset(1).EntireRow.Delete
   .ShowAllData
End With

End Sub

.ShowAllData is showing a yellow error in Visual Basic when I run the Macro.

 

[Fluff]

Is it deleting the correct rows?

 

[thardin]

Is it deleting the correct rows?

Yes

Is it deleting the correct rows?

Yes

 

[Fluff]

In that case change that line to

.AutoFilterMode = False

 

[thardin]

In that case change that line to

.AutoFilterMode = False

I think that worked! Thanks.

 

[Fluff]

You're welcome & thanks for the feedback.