С Новым Годом ))
Подскажите найти ошибку в коде. Создаю макросом сводную таблицу. Но в источник данных попадает лишние данные (первая строка на листе) . Пробовал менять обращение - на обращение к динамической таблице, тогда выдает ошибку в другом месте. Что нужно указать вместо - "Range("a3").CurrentRegion", чтобы обращение было только к динамической таблице "БД". Помогите пожалуйста.
Подскажите найти ошибку в коде. Создаю макросом сводную таблицу. Но в источник данных попадает лишние данные (первая строка на листе) . Пробовал менять обращение - на обращение к динамической таблице, тогда выдает ошибку в другом месте. Что нужно указать вместо - "Range("a3").CurrentRegion", чтобы обращение было только к динамической таблице "БД". Помогите пожалуйста.
Код |
---|
Sub Создание_сводной_итоги_сделка() Dim rngData As Range, PTCache As PivotCache, PT As PivotTable Call Удалить_другие_листы Set rngData = ThisWorkbook.Worksheets("РМ администратора").Range("a3").CurrentRegion Set PTCache = ActiveWorkbook.PivotCaches.Create(xlDatabase, rngData.Address) Set PT = PTCache.CreatePivotTable(Worksheets.Add.[a4], "Итоги") ActiveSheet.Name = "Текущие итоги" With ActiveSheet.PivotTables("Итоги").PivotFields("Данные способа обращения") .Orientation = xlRowField..... End Sub |