Private Sub CommandButton18_Click()
On Error Resume Next
Application.DisplayAlerts = False
Sheets("Отчёт для акта").Delete
Application.DisplayAlerts = True
On Error Resume Next
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:="Картриджи!A1:L9999").CreatePivotTable TableDestination:="", TableName:="otchet"
With ActiveSheet
.Name = "Отчёт для акта"
.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
End With
With ActiveSheet.PivotTables("otchet")
.SmallGrid = True
.PivotFields("Местоположение").Orientation = xlPageField
.PivotFields("Статус").Orientation = xlPageField
.PivotFields("Модель").Orientation = xlRowField
.PivotFields("Дата").Orientation = xlRowField
.PivotFields("Кол-во").Orientation = xlDataField
ActiveSheet.PivotTables("otchet").PivotFields("Местоположение").CurrentPage = "Стационар"
ActiveSheet.PivotTables("otchet").PivotFields("Статус").CurrentPage = "Принято"
End With
End Sub