Macro for Date Filter

[jchakkalakal]

Spreadsheet that is used for delivery schedule. Column A is a list of locations, Column B is a list of date, both past due and for the upcoming 12 months.

Macro Needed:- On any given day one would open the spreadsheet and hit a macro button that can filter column B to show delivery dates that are past due and delivery dates that are 3 weeks out, based on todays date according to time/date of Windows OS.

I know you can just do a manual filter, but for some reason it proves to be challenge for some of our older salespeople.
Thank you for your help. <!-- / message --><!-- BEGIN TEMPLATE: ad_showthread_firstpost_sig --><!-- END TEMPLATE: ad_showthread_firstpost_sig -->

 

[roentgen]

Hi

The code below will filter column B for dates older than Today and 3weeks from Today into the future. Hope it helps.

Sub d_filter()

Dim dt As Date

dt = Date 'today

x = dt + 21 ' plus 3wks
d = Day(x)
M = Month(x)
y = Year(x)

Z = M & "/" & d & "/" & y

C = "<=" & Z

ActiveSheet.Range("a1").AutoFilter _
field:=2, _
Criteria1:=C

End Sub