VBA code for filtering on dates before today

[Jonathan Jones]

Hi,

I have a spreadsheet which shows outstanding purchase orders. I would like to create a button which, once you press it, means only overdue orders are shown. When I do the record macro option and do the following: click filter on "due date" column, number filter, before today - it doesn't work.

I'd also like another button which shows orders due on the next working day only.

Any help would be very much appreciated.

Jonathan

 

[MARK858]

You haven't stated what column so using column A try...

Sub lesstoday()
Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row).AutoFilter 1, "<" & CLng(Date)
End Sub

Sub workingday()
Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row).AutoFilter 1, "=" & CDate(WorksheetFunction.WorkDay(Date, 1))
End Sub