Estimados
He agregado un campo calculado a TD usando macros y necesito ubicarlo en una posición dentro de los campos que van en el área de Datos, este es el código de la macro:
With ActiveSheet.PivotTables("PivotTable3")
.PivotFields("% Primera").Position = 2
.CalculatedFields.Add "% porcPrimera", "=IF(PRO_CANTIDAD<>0,PRO_CANTIDAD/SUM('1' +'2' +'4' +PRO_CANTIDAD ),0)", True
.PivotFields("% Primera").Orientation = xlDataField
.PivotFields("% Primera").Caption = " % Primera"
End With
Al colocar la línea con Negrita no me funciona, me indica:
"No se puede obtener la propiedad PivotFields de la clase PivotTable"
Atte.
Lba