How to switch off calculation on pivot tables.

  • Thread starter Thread starter witek
  • Start date Start date
W

witek

As above.


There is a code:

For i = 1 To iDataCols / 2
With
ActiveSheet.PivotTables(sDatabase1Name).PivotFields(FieldNames(i))
.Orientation = xlDataField
.Caption = "Sum of " & FieldNames(i)
.Position = i
.Function = xlSum
End With
Next i

Every iteration needs more and more time, because pivot table is
recalculated in each iteration.

Is there any way to switch it off similar to Application.Calculation =
xlCalculationmanual.

Application.Calculation does not work on pivot tables.
Thanks
 
You could turn on manual update:

ActiveSheet.PivotTables(1).ManualUpdate = True
 
Back
Top