подходит к завершению моя "грандиозная" работа) остался самый главный этап:
на основании данных из листа "чорновий" формируется сводная.
но количество строк на листе каждый раз разное.
записал макрос для изменения источника данных в сводной, но не работает.
Sub Макрос1()
Dim irow As Long
irow = Worksheets("чорновий").Cells(Rows.Count, 3).End(xlUp).Row
Worksheets("чорновий").PivotTables("СводнаяТаблица1").ChangePivotCache ActiveWorkbook. _
PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"D:\[пример.xls]чорновий!R2C1:R" & irow & "C21", Version:= _
xlPivotTableVersion12)
End Sub
помогите кто может.
2. на основании сводной нужно строить отчет такой как на листе "готовий" (начальство сводных не любит, так как не умеет ими пользоваться)
проблема 1: я вообще не знаю как макросом вынуть из сводной данные в таком порядке как на листе.
проблема 2: в сводной есть текстовые поля, которые надо обрабатывать как числа, только не суммировать, а сцеплять.
буду благодарен за любую помощь)
на основании данных из листа "чорновий" формируется сводная.
но количество строк на листе каждый раз разное.
записал макрос для изменения источника данных в сводной, но не работает.
Sub Макрос1()
Dim irow As Long
irow = Worksheets("чорновий").Cells(Rows.Count, 3).End(xlUp).Row
Worksheets("чорновий").PivotTables("СводнаяТаблица1").ChangePivotCache ActiveWorkbook. _
PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"D:\[пример.xls]чорновий!R2C1:R" & irow & "C21", Version:= _
xlPivotTableVersion12)
End Sub
помогите кто может.
2. на основании сводной нужно строить отчет такой как на листе "готовий" (начальство сводных не любит, так как не умеет ими пользоваться)
проблема 1: я вообще не знаю как макросом вынуть из сводной данные в таком порядке как на листе.
проблема 2: в сводной есть текстовые поля, которые надо обрабатывать как числа, только не суммировать, а сцеплять.
буду благодарен за любую помощь)