How to set filter Pivot Items that start with a date today

[adamasmay]

I currently have a situation where i have a list of pivotitems that my macro has recorded I want filter that start date today

Now I have code as below.

Sub Macro7()

ActiveSheet.PivotTables("PivotTable27").PivotFields("CREATE_DATE").CurrentPage _
= "(All)"
With ActiveSheet.PivotTables("PivotTable27").PivotFields("CREATE_DATE")
.PivotItems("01/05/2024 9:11").Visible = True
.PivotItems("01/05/2024 10:01").Visible = True
.PivotItems("01/05/2024 15:01").Visible = True
End With

Please guide me for solve it.

Thank you.

 

[Fluff]

Welcome to the MrExcel Message Board!

Cross-posting (posting the same question in more than one forum) is not against our rules, but the method of doing so is covered by #13 of the Forum Rules.

Be sure to follow & read the link at the end of the rule too!

Cross posted at: How to set Pivot Items that start with a date today
There is no need to repeat the link(s) provided above but if you have posted the question at other places, please provide links to those as well.

If you do cross-post in the future and also provide links, then there shouldn’t be a problem.