Не знаю VBA - не могу исправить ошибку - помогите пожалуйста.
Жирным шрифтом выделена красная область на макросе.
Сочетание клавиш Sub Macro3()'' Macro3 Macro '': клавиши Ctrl+q.Добавить ActiveWorkbook.PivotCaches.Create(SourceType: = xlDatabase, SourceData: = "!Table1 ", Version: = xlPivotTableVersion14).CreatePivotTable TableDestination: = "Sheet4!R3C1 ", TableName: =" PivotTable3 "_, DefaultVersion: = xlPivotTableVersion14
Листы ( "Лист4").Выберите ячейки (3, 1).Выберите с ActiveSheet.PivotTables ( "PivotTable3").PivotFields ("Материал").Ориентация = xlRowField.Позиция = 1 Заканчивается на ActiveSheet.PivotTables ( "PivotTable3").PivotFields ("PO создан").Orientation = xlColumnField.Позиция = 1 Конец ActiveSheet.PivotTables ( "PivotTable3").AddDataField ActiveSheet.Сводные таблицы (_ "PivotTable3").PivotFields ("Open Qty."), "Sum of Open Qty.", XlSum End Sub
Спасибо,
стог