Макрос обновления сводной для текущей даты

[Артем_100]

Добрый день! Возникла такая потребность/проблема. Имеется сводная, которая при открывании автоматически обновляется, нужно сделать так, чтобы автоматически в фильтре отчета проставлялась текущая дата.
Сводная уже имеет код для выставления правильного формата (большая благодарность в помощи VDM). Для выставления текущей даты и обновления сводной по нужным форматам код имеет такой вид:

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Sheets("НАДО").PivotTables("Сводная Таблица5").PivotFields("Дата").Curr entPage = _
Format(CDate(Sheets("НАДО").Cells(1 , 3)), "DD/MM/YYYY")
Sheets("НАДО").PivotTables("Сводная Таблица5").PivotSelect "цена[All]", xlLabelOnly, True
Selection.NumberFormat = "#,##0.00"
End Sub

Выдается ошибка: "Aplication - defined or object defined error" с выделением строки Sheets("НАДО").PivotTables("Сводная Таблица5").PivotFields("Дата").Curr entPage = _
Format(CDate(Sheets("НАДО").Cells(1 , 3)), "DD/MM/YYYY")

Сводная таблица при открытии автоматически обновляется и должна показывать данные согласно текущей даты.

В VBA плохо разбираюсь (практически не разбираюсь), поэтому, пожалуйста, помогите праильно прописать код..

[agregator]

Попробуйте так

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Dim x
For Each x In Application.ActiveWorkbook.PivotCaches
x.MissingItemsLimit = xlMissingItemsNone
Next
 Sheets("НАДО").PivotTables("Сводная Таблица5").PivotFields("Дата").Curr entPage = _
 Format(CDate(Sheets("НАДО").Cells(1, 3)), "DD/MM/YYYY")
 Sheets("НАДО").PivotTables("Сводная Таблица5").PivotSelect "цена[All]", xlLabelOnly, True
 Selection.NumberFormat = "#,##0.00"
 End Sub

[Артем_100]

Сообщение от agregator

Попробуйте так

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Dim x
For Each x In Application.ActiveWorkbook.PivotCaches
x.MissingItemsLimit = xlMissingItemsNone
Next
 Sheets("НАДО").PivotTables("Сводная Таблица5").PivotFields("Дата").Curr entPage = _
 Format(CDate(Sheets("НАДО").Cells(1, 3)), "DD/MM/YYYY")
 Sheets("НАДО").PivotTables("Сводная Таблица5").PivotSelect "цена[All]", xlLabelOnly, True
 Selection.NumberFormat = "#,##0.00"
 End Sub

Теперь ошибка "object doesn't support this property or method" и выделяет строку Sheets("НАДО").PivotTables("Сводная Таблица5").PivotFields("Дата").Curr entPage = _
Format(CDate(Sheets("НАДО").Cells(1 , 3)), "DD/MM/YYYY")
Объясните, пожалуйста, я так понял "Format(CDate(Sheets("НАДО").Cells( 1, 3))" обозначает ячейку, где должна проставляться текущая дата - по какой формуле? ТДАТА() или СЕГОДНЯ()?
Cells(1,3) координаты этой ячейки, т.е. А3?
А PivotFields обозначает ячейку сводной в области фильтра отчета?
...бьюсь уже 4-й день...

[agregator]

Попробуй так
запусти вручную

Sub Фильтр()
 Dim dat1, dat2 As Date
Dim x
For Each x In Application.ActiveWorkbook.PivotCaches
x.MissingItemsLimit = xlMissingItemsNone
Next
 With Sheets ("НАДО").PivotTables("Сводная Таблица5").PivotFields("Дата")
        For i = 1 To .PivotItems.Count
            dat1 = .PivotItems(i).Name
            dat2 = Format(Now(), " DD/MM/YYYY ")
        If dat2 = dat1 Then
            .PivotItems(i).Visible = True 
        Else
            .PivotItems(i).Visible = False
        End If
            
        Next
    End With
End Sub

Автоматически код зацикливается

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
 Dim dat1, dat2 As Date
Dim x
For Each x In Application.ActiveWorkbook.PivotCaches
x.MissingItemsLimit = xlMissingItemsNone
Next
 With Sheets ("НАДО").PivotTables("Сводная Таблица5").PivotFields("Дата")
        For i = 1 To .PivotItems.Count
            dat1 = .PivotItems(i).Name
            dat2 = Format(Now(), " DD/MM/YYYY ")
        If dat2 = dat1 Then
            .PivotItems(i).Visible = True 
        Else
            .PivotItems(i).Visible = False
        End If
            
        Next
    End With
End Sub