Auto Filter VBA using a formula

[ItalianPlatinum]

Looking to find a way to use auto filter to filter out using a formula

.Range("1:1").AutoFilter Field:=2, Criteria1:="=TEXT(Today(),YYYYMMDD)"

The column as of now has two dates in YYYYMMDD number format. I only want to filter to see today so 3/31 the above isnt work and I cant quite get it to work i want to refrain from adding any helper columns if possible

20220331
20220401

 

[kevin9999]

Looking to find a way to use auto filter to filter out using a formula

.Range("1:1").AutoFilter Field:=2, Criteria1:="=TEXT(Today(),YYYYMMDD)"

The column as of now has two dates in YYYYMMDD number format. I only want to filter to see today so 3/31 the above isnt work and I cant quite get it to work i want to refrain from adding any helper columns if possible

20220331
20220401

See if this works for you:

Range("1:1").AutoFilter 2, 1, 11

 

[ItalianPlatinum]

Didn't seem to work

 

[kevin9999]

Didn't seem to work

View attachment 61433

I'm away from my laptop at the moment, if still needed I'll look at it in a few hours.

 

[bebo021999]

use evaluate with the worksheet function string, also the " must be double.

Range("1:1").AutoFilter 2, Evaluate("=text(today(),""yyyymmdd"")")

 

[kevin9999]

Didn't seem to work

View attachment 61433

I take it your values are entered as text, therefore the following should work for you:

Range("1:1").AutoFilter 2, Format(Date, "YYYYMMDD")

 

[ItalianPlatinum]

they are not they are in general format

 

[ItalianPlatinum]

look

use evaluate with the worksheet function string, also the " must be double.

Range("1:1").AutoFilter 2, Evaluate("=text(today(),""yyyymmdd"")")

this look to have worked going to test little bit further to validate

 

[kevin9999]

they are not they are in general format

View attachment 61471

That's OK, the code in post #6 should still be fine with General format.