Sortare dupa data in pivot table ,report filter vba

salut,


Incerc sa fac niste filtrari intru-un pivot, in functie de data, pe care o selectez cu ajutorul unui "Inputbox", de fiecare data cand  rulez programu am nevoi de alta zi
Am folosit mai multe variante ....dar nu aplica filtru , am 2variante  mai jos, daca are cineva alte idei, am incercat chiar sa modific formatul datei din sursa pivotului.

Columns("A:A").Select
    Selection.NumberFormat = "dd.mm.yyyy"
Dim W1ziua As String

W1ziua = Application.InputBox("Ziua de Prelucrat")
Dim pf As PivotField
Dim pi As PivotItem
Set pf = ActiveSheet.PivotTables("PivotTable2").PivotFields("Date")
For Each pi In pf.PivotItems
On Error Resume Next

    Select Case pi
  
    Case "W1ziua"
  
    pi.Visible = True
    Case Else
    pi.Visible = False
  
    End Select

Next
End Sub


si varianta 2

Dim W1ziua As String
    num = InputBox(Prompt:="Date", Title:="Ziua prelucrata")
    Sheets("Sheet5").PivotTables("PivotTable2").PivotFields("Date")_
    .CurrentPage = "W1ziua"

Daca am inteles eu bine ce vrei, posibil sa te ajute "slicers"
https://support.offi...1a-12651785d29d

multumesc,

dar lucrez pe  2007