Auto filter based on yesterdays date

[anichols]

Hello all,

I have an autofilter that I am trying to have match yesterdays date, and I am struggling to make it work. I am trying to show all values that do not match yesterdays date so I can delete all those rows.

    Selection.AutoFilter
    ActiveSheet.Range("AU1:AU" & Lastrow).AutoFilter Field:=47, Criteria1:="<>Format(Date - 1, "m/d/yyyy")", Operator:=xlFilterValues

 

[Logit]

Sub FiltrDate()
Dim MyVal As Date

MyVal = Date

ActiveSheet.Range("A1:A20").AutoFilter 1, ">=" & CDbl(MyVal)

End Sub

Change range to match your needs.