Отметить даты в фильтре сводной таблицы

[agregator]

Здравствуйте, уважаемые программисты. Подскажите код, который сможет отметить в фильтре полей сводной таблицы даты, меньшие или равные конечной дате.

[agregator]

Отредактировал, добавил вложение.

[agregator]

Здраствуйте.
1. Написал

Sub Фильтр()

    Dim dat1, dat2 As Date
    With Sheets("Сводная").PivotTables("СводнаяТаблица7").PivotFields("Дата выезда")
        .Orientation = xlRowField
        .Position = 1
    End With
    
    With Sheets("Сводная").PivotTables("СводнаяТаблица7").PivotFields("Дата выезда")
        For i = 1 To .PivotItems.Count
            dat1 = .PivotItems(i).Name
            dat2 = Sheets("Данные").Cells(2, 3)
        If dat2 < dat1 Then
            .PivotItems(i).Visible = False
        Else
            .PivotItems(i).Visible = True
        End If
            
        Next
    End With
    
    With Sheets("Сводная").PivotTables("СводнаяТаблица7").PivotFields("Дата выезда")
        .Orientation = xlPageField
        .Position = 2
    End With
    
End Sub

Не работает , Debug на .PivotItems(i).Visible = True. Не пойму почему. Подскажите.
2. Можно ли отметить даты сразу в поле страницы?

[agregator]

Поменял знак неравенства с< на > код заработал

Sub Фильтр()

    Dim dat1, dat2 As Date
    With Sheets("Сводная").PivotTables("СводнаяТаблица7").PivotFields("Дата выезда")
        .Orientation = xlRowField
        .Position = 1
    End With
    
    With Sheets("Сводная").PivotTables("СводнаяТаблица7").PivotFields("Дата выезда")
        For i = 1 To .PivotItems.Count
            dat1 = .PivotItems(i).Name
            dat2 = Sheets("Данные").Cells(2, 3)
        If dat2 > dat1 Then
            .PivotItems(i).Visible = False
        Else
            .PivotItems(i).Visible = True
        End If
            
        Next
    End With
    
    With Sheets("Сводная").PivotTables("СводнаяТаблица7").PivotFields("Дата выезда")
        .Orientation = xlPageField
        .Position = 2
    End With
    
End Sub

Но соответственно наоборот, поставил галки у тех которые не надо.
В чём дело?

2. Можно ли отметить даты сразу в поле страницы?

[agregator]

Здраствуйте.
Этот макрос проставляет галочки в фильте столбца сводной таблицs возле дат, которые меньше значения dat2.
Проблема в том, что он перестаёт работать после обновления данных сводной таблицы.
Начинает ругаться Debug на .PivotItems(i).Visible = True

Sub Фильтр()
   
    With Sheets("Сводная").PivotTables("СводнаяТаблица7").PivotFields("Дата выезда")
        For i = 1 To .PivotItems.Count
            dat1 = .PivotItems(i).Name
            dat2 = Sheets("Данные").Cells(2, 3)
        If dat2 < dat1 Then
            .PivotItems(i).Visible = False
        Else
            .PivotItems(i).Visible = True
        End If
            
        Next
    End With
    
End Sub

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

[agregator]

Мне кажется это связано с мусором в сводной таблице. Если его убрать, то начинает работать.
Но иногда мусор бывает полезен.
Можно ли сделать, чтобы работало с ним?