Hiding Rows Based on Matching Value in Specific Cells

[cheesiepoof05]

I'm trying to set up a landing page where data selections can be entered and then based on those selections it hides records on the data set tab so that only what was selected on the landing page is shown on the data set tab, unless the landing page cell is left blank, then that column wouldn't be limited. So the workbook would open to "landing page" tab, they would populate "Dog", "Red", and leave the number cell blank. When the process button is pushed, it hides all records on the "Data Set" tab where column A is not "Dog", column B is not "Red", and since Number was left blank in this scenario, it wouldn't use that as a factor this time. We're trying to make a "cleaner" option than the user going to the data tab and limiting each column themselves. Thank you for your help.

 

[cheesiepoof05]

What is your system date setting?

I'm not sure what you mean. My cells are set to "Short Date". If I do a formula like =Today(), it also comes back in that same format.

 

[cheesiepoof05]

I'm not sure what you mean. My cells are set to "Short Date". If I do a formula like =Today(), it also comes back in that same format.

Also, under File, Excel Options, Advanced, "When calculating this workbook", these are my settings.

 

[Fluff]

If you format a date as short date what do you get?

 

[cheesiepoof05]

If you format a date as short date what do you get?

1/1/2020
12/31/2021

And that looks the same as my limit page, but doesn't pull anything back when those limits are used.

 

[cheesiepoof05]

Also, if I do an equal statement between the cell being filtered and the cell I'm using to filter, it comes back as TRUE that they are equal.

 

[Fluff]

In that case I'm surprised your having problems.
Try one of these two options

If Ws.Range("B2") <> "" Then .Range("A1").AutoFilter 1, CDate(Ws.Range("B2"))
or
If Ws.Range("B2") <> "" Then .Range("A1").AutoFilter 1, CLng(Ws.Range("B2"))

 

[cheesiepoof05]

In that case I'm surprised your having problems.
Try one of these two options

If Ws.Range("B2") <> "" Then .Range("A1").AutoFilter 1, CDate(Ws.Range("B2"))
or
If Ws.Range("B2") <> "" Then .Range("A1").AutoFilter 1, CLng(Ws.Range("B2"))

Bingo, the first option worked. Thanks so much, I was stumped.

 

[Fluff]

Glad to help & thanks for the feedback.