Filter Greater than 2 working days out

[nniedzielski]

I am trying to build a macro that will filter all dates in column G that are more than 2 business days out, so weekends removed. I tried recording one, but just got this:

Selection.Range("$A$1:$AT$937").AutoFilter Field:=7, Criteria1:= _
        ">6/11/2021", Operator:=xlAnd

which is great for today, but will obviously not work tomorrow. How can I set the logic to always grab any dates further out than 2 working days?

2nd Note, I also need any dates in the past as well, they are super rare, but need to grab those too.

thanks,

 

[fadee2]

if

6/11/2021

is todays date then try the following:

Selection.Range("$A$1:$AT$937").AutoFilter Field:=7, Criteria1:= ">" & Date, Operator:=xlAnd, Criteria1:= "<=" & Date + 2

This will filter out dates greater then today and less then equal to next 2 days, only.

for your second query try

Selection.Range("$A$1:$AT$937").AutoFilter Field:=7, Criteria1:= "<" & Date

This will filter out all dates less then today's date.

hth....