VBA to filter on a column with Dates

[VbaHell]

Hello all

Can anyone please spot my error on this code

I am trying to filter on dates Greater than Today()

It is applying the filter on the correct column but it's not applying the value, net result everything is filtered out

Dim Myval as Date
MyVal = Date
FilterRange.AutoFilter field:=24, Criteria2:=">" & MyVal

 

[MARK858]

Why Criteria2 and not Criteria1? also try

Dim Myval as Long
MyVal = CLng(Date)

Also are the dates in the cells real dates or text?

 

[Fluff]

Try

FilterRange.AutoFilter Field:=24, Criteria1:=">" & CLng(Myval)

 

[VbaHell]

Thank you both for your reply

Is it possible to add another filter on a different column at the same time

Something like this

 FilterRange.AutoFilter field:=21, Criteria1:="*Out*"
                FilterRange.AutoFilter field:=24, Criteria2:="<" & CLng(MyVal)

 

[MARK858]

Not like that, you write it as 2 separate lines.

FilterRange.AutoFilter field:=21, Criteria1:="*Out*"
FilterRange.AutoFilter field:=24, Criteria1:="<" & CLng(MyVal)

 

[VbaHell]

Yea that works, Thanks very much Mark

 

[VbaHell]

Mark can I bother you again please on the second filter is it possible to say show all blanks in field 24 and "<" & CLng(MyVal)

 [LEFT][COLOR=#333333][FONT=monospace]FilterRange.AutoFilter field:=21, Criteria1:="*Out*"
        FilterRange.AutoFilter field:=24, Criteria1:="<" & CLng(MyVal)[/FONT][/COLOR][/LEFT]

 

[MARK858]

FilterRange.AutoFilter field:=24, Criteria1:="<" & CLng(MyVal), Operator:=xlOr, Criteria2:="="

 

[VbaHell]

Thank you so much, this works great, I wish I had your knowledge