Sub minus_den()

'Stop

'ActiveWorkbook.RefreshAll

Cells(1, 1).value = Cells(1, 1).value - 1

Фильтр_сводной

End Sub

Sub plus_den()

'Stop

'ActiveWorkbook.RefreshAll

Cells(1, 1).value = Cells(1, 1).value + 1

Фильтр_сводной

End Sub

Sub Фильтр_сводной()

Dim oPt As PivotTable

Dim oPf As PivotField

Dim strPfName As String

Dim strVal As String

Set oPt = ActiveSheet.PivotTables(1)

strPfName = "Год"

If ActiveSheet.Name = "Борисов (TTS-TOL)" Then strPfName = strPfName & "_Decl"

strVal = Cells(6, 19).value

Set oPf = oPt.PageFields(strPfName)

фильтр = FnФильтр_сводной(oPf, strVal)

strPfName = ("Неделя")

If ActiveSheet.Name = "Борисов (TTS-TOL)" Then strPfName = strPfName & "_Decl"

strVal = Cells(7, 19).value

Set oPf = oPt.PageFields(strPfName)

фильтр = FnФильтр_сводной(oPf, strVal)

End Sub

Function FnФильтр_сводной(ByVal oPf As PivotField, _

ByVal strVal As String) As Boolean

EventsChange False

Err.Clear

With oPf

.ClearAllFilters

.CurrentPage = strVal

End With

If Len(Err.Description) = 0 Then FnФильтр_сводной = True

EventsChange True

End Function