If Then Filter Macro

[thardin]

Here is a filter macro that I use on a daily basis..
How do I modify this for a range that changes daily.
and How do I add an if statement like:
If Results = 0,
Then clear filters and run Firmsignoff Macro (Application.Run "personal. Xlsb! FirmSignoff), save and close WB
Else do nothing

Sub Filter046()
'
' Filter046 Macro
'
' Keyboard Shortcut: Ctrl+d
'
Range("M6").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$N$40").AutoFilter Field:=13, Criteria1:="046"
End Sub

 

[Fluff]

What do you mean by

for a range that changes daily.

 

[thardin]

What do you mean by

Well like the other macros you replied to, My filter range isn't the same everyday because the route count changes on a daily basis.
In this example, my range isn't stuck to .Range("$A$1:$N$40").
My range is from A:N & row count.

 

[Fluff]

In that case, as long as you don't have any completely blank rows in the date, just use

ActiveSheet.Range("A1:N1").AutoFilter Field:=13, Criteria1:="046"

 

[thardin]

In that case, as long as you don't have any completely blank rows in the date, just use

ActiveSheet.Range("A1:N1").AutoFilter Field:=13, Criteria1:="046"

What about the If and Then statement based off the result. That's the most important part i need help on.

 

[Fluff]

Forgot that part, how about

With ActiveSheet
   .Range("A1:N1").AutoFilter Field:=13, Criteria1:="046"
   If .AutoFilter.Range.Columns(1).SpecialCells(xlVisible).Count = 1 Then
      Application.Run "personal.Xlsb!FirmSignoff"
   End If
End With

 

[thardin]

Forgot that part, how about

With ActiveSheet
   .Range("A1:N1").AutoFilter Field:=13, Criteria1:="046"
   If .AutoFilter.Range.Columns(1).SpecialCells(xlVisible).Count = 1 Then
      Application.Run "personal.Xlsb!FirmSignoff"
   End If
End With

This was close, but this is what did it. Thanks

Sub Filter046()
'
With ActiveSheet
.Range("A1:N1").AutoFilter Field:=13, Criteria1:="046"
If .AutoFilter.Range.Columns(1).SpecialCells(xlVisible).Count = 1 Then
.AutoFilterMode = False
Application.Run "PERSONAL.XLSB!FirmSignoff"
End If
End With


End Sub

 

[Fluff]

You're welcome & thanks for the feedback.