VBA autofilter dates

[awsumchillicrab]

I have an input box asking for a date. This is my variable Date1.

How do I use Date1 in a VBA autofilter code, with inequality signs?

E.g. These do not work:

range("A1").CurrentRegion.Autofilter field:=6 Criteria1:=>Date1

range("A1").CurrentRegion.Autofilter field:=6 Criteria1:=">Date1"

range("A1").CurrentRegion.Autofilter field:=6 Criteria1:=">"Date1

 

[Richard Schollar]

Hi

Firstly, dimension your date variable as a Long, then use it thus:

Dim Date1 As Long

Date1 = CLng(Textbox1.Value)   'depending on where you are sourcing this from


range("A1").CurrentRegion.Autofilter field:=6 Criteria1:=">" & Date1

 

[awsumchillicrab]

Thanks! I forgot to use "&"