Help with this filter macro?

[tonywatsonhelp]

Hi Everyone

I have this macro to filter dates but I need to be able to combine the two so it does both things



So basicly it currently chages the filter to just
"Sheets("PropPDD").Range("$A$2:$J$10000").AutoFilter Field:=1, Criteria1:="<=" & EndM"

I need it to do both?

StartM = Sheets("Dashboard Data1").Range("B12").Value
EndM = Sheets("Dashboard Data1").Range("B14").Value


If StartM <> 0 Then
Sheets("PropPDD").Range("$A$2:$J$10000").AutoFilter Field:=1, Criteria1:=">=" & StartM
Else
Sheets("PropPDD").Range("$A$2:$J$10000").AutoFilter Field:=1, Criteria1:=">=01/01/2014"
End If


If EndM <> 0 Then
Sheets("PropPDD").Range("$A$2:$J$10000").AutoFilter Field:=1, Criteria1:="<=" & EndM
End If

 

[Gerald Higgins]

Hi, I'm not completely clear what you mean by doing both things, but I'm guessing you mean set the filter so that it shows items where the data is both after the start date, and before the end date.

Here's some code that I've used for a similar situation, maybe you can adapt it.

        Selection.AutoFilter Field:=1, Criteria1:=">=" & Startdate, Operator:=xlAnd, Criteria2:="<=" & Enddate

 

[frank_AL]

Tony,

I believe this is what you are looking for. I modified the If statement and the Filter

startM = Sheets("Dashboard Data1").Range("B12").Value
endM = Sheets("Dashboard Data1").Range("B14").Value




If startM <> 0 And endM <> 0 Then
Sheets("PropPDD").Range("$A$2:$J$10000").AutoFilter Field:=1, Criteria1:=">=" & startM, _
Operator:=xlAnd, Criteria1:="<=" & endM
Else
Sheets("PropPDD").Range("$A$2:$J$10000").AutoFilter Field:=1, Criteria1:=">=01/01/2014"
End If

 

[tonywatsonhelp]

Thanks you Frank AL and Gerald,

You have both been very helpful,
If I'm being honest frank its not quite what I wanted but you have given me the code I needed so I can change it to do what I wanted so thank you very much
Tony

 

[frank_AL]

That's fair! Hopefully it got you headed in the right direction for the desired solution.