Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Создание сводной таблицы из исходного листа, в котором меняются данные, ошибка в макросе
 
Создание сводной таблицы из исходного листа, в котором постоянно меняются данные, но сейчас выдаёт ошибку,
раньше макрос на сводную таблицу работал нормально, пока что-то не поменяли в исходном файле, после этого начала выходить ошибка - Run-time error '1004' на строке 21, помогите пожалуйста понять, что мешает работе макроса
Код
Sub PIVOTOrder()Dim rngData As Range 
Dim rngDataP As Range 
Dim shtSvodka As Worksheet 
Dim Nrow As Long, Ncol As Long   ' число строк и столбцов 
Dim rngFirst As Range, rngLast As Range   'первая и последняя ячейка 
Dim rngS As Rangе[/P] 
Call ClearPIVOTOrder

'1 - Диапазон с данныим 
Set rngData = ThisWorkbook.Worksheets("Order").UsedRange

Set shtSvodka = ThisWorkbook.Worksheets("OrderPivot")

' 2 - кэш сводной таблицы 
Dim PTCache As PivotCache 
Set PTCache = ThisWorkbook.PivotCaches.Create(xlDatabase, rngData) 
' 3 - добавить сводную таблицу

Dim PT As PivotTable

Set PT = PTCache.CreatePivotTable(shtSvodka.Range("A1")) ' здесь возникает ошибка 
' 4 - поля сводной таблицы 
PT.AddFields RowFields:="Customer", ColumnFields:="DueDatePeriod", PageFields:="Level" 
With PT.PivotFields("Unic #") 
.Orientation = xlRowField 
.Position = 2 
End With

[P]' 5 - поля значений 
With PT.PivotFields("QtyOpen") 
.Orientation = xlDataField 
.Function = xlSum 
End With
Изменено: seregamer - 19.09.2017 19:58:21
Страницы: 1
Наверх