Filter for all dates except this month

[Milos]

Hi,

Can anybody please help me edit my clumsy coding please? I am trying to apply a filter that selects any date apart from dates within the last month. So if I use today for an example the filter will filter for all dates before and including 30/10/2018 because today's date is 30/11/2018. So far I have just been using 30 because that is the easiest option.

Sub Filter_Dates()
Dim date_all  As Long
Dim date_month As Long
date_all = DateSerial(Year(Date), Month(Date), Day(Date)) - 1000
date_month = DateSerial(Year(Date), Month(Date), Day(Date)) - 30
    
ActiveSheet.Rows(2).AutoFilter
ActiveSheet.Rows(2).AutoFilter Field:=3, Criteria1:=">=" & date_all, Operator:=xlAnd, Criteria2:="<=" & date_month
End Sub



End Sub

Thanks,
Milos

 

[6StringJazzer]

all dates before and including 30/10/2018 because today's date is 30/11/2018.

That's not the same thing as "this month" which is what's in your title. It's "date more than a month ago" which is what my explanation below will address.

any date apart from dates within the last month.

Can any of the dates be in the future? If so, then you need and "or" for

">" & Date

You don't need the first criterion. If you want all dates earlier than another date, then you don't need to specify an earliest date.

The quick fix you are looking for is

date_month = DateSerial(Year(Date), Month(Date) [COLOR=#ff0000]- 1[/COLOR], Day(Date))

 

[Milos]

Whoops sometimes me and words have a few issues. Thanks 6StringJazzer. Really appreciate the help!