Filter out >today's date

[VbaHell]

Hello all

I am trying to filter out all dates that are greater than today with VBA with my code below but it is bugging out on & Today()
Any idea's please

[Sub LateSupplier()
If ActiveSheet.FilterMode Then
ActiveSheet.ShowAllData
End If

ActiveSheet.Range("$A$1:$AA$5000").AutoFilter Field:=15, Criteria1:=" > " & Today()
End Sub]

 

[mse330]

Use "Date" instead of "Today()"

 

[VbaHell]

Hi mse330

thank you for your quick reply

using “Date”, will this alway know what today’s date is, as this will change daily

 

[MARK858]

using “Date”, will this alway know what today’s date is, as this will change daily

Date is the VBA equivalent of the worksheet formula =Today() so yes it will use todays system date each time the macro is run..

You can find out what VBA functions do by clicking inside the word and pressing F1.

 

[VbaHell]

That’s great guys, thanks for your help

 

[mse330]

Yes, as MARK858 said that "Date" is the equivalent function of "Today()" in VBA ...

Check the following link for VBA functions https://www.techonthenet.com/excel/formulas/index_vba.php

Glad to help & you are welcome