Colocar campos calculado en TD Excel usando Macros

[Lba]

Hola estoy tratando ahora de colocar un campo calculado en un tabla dinámica usando una macro, pero no me aparece en la TD.

Este es el código:

ActiveSheet.PivotTables("PivotTable3").CalculatedF ields.Add "Porcentaje", "=Cantidad/CANTIDAD_TOTAL", True

El campo calculado me aparece en la Lista de Campos, pero no en la TD, lo puedo arrastrar y colocar, pero la idea es que lo haga automático.


Atte.
Lba

[Perr0]

tienes que estar en la tabla dinámica y elegir la opción "Campo Calculado" o en inglés "Calculated Field".

googlea para saber como usarlo.

salu2

[Lba]

Ya realice los cálculos, pero tengo dos problemas:

Estoy realizando cálculos por columna necesito sacar para cada columna un porcentaje, te pongo un ejemplo:

Informe de fallas

Mes Producto1 Producto2 Producto3

Enero 10 5 0
Febrero 2 0 1
.....

Total producido 1500 500 80

Porcentaje 0.008 0 0
Porcentaje 0 0.01 0
Porcentaje 0 0 0.0125

Bueno, los porcentajes me aparecen en filas diferentes como se ve y los números están en formato decimal, no he podido colocarlos en formato porcentaje.

Todo lo hago utilizando una macro y para el formato uso la propiedad NumberFormat

Atte.
Lba

[Lba]

Estimado

Tengo calculado los porcentajes en la ultima fila de la TD, use un IF para insertar el campo calculado en distintas columnas.

Lo que me falte es que el número aparezca en formato porcentaje, solo me aparece como decimal (por ejemplo: 10%, aparece como 0,10)

Atte.
Lba

[Lba]

Estimado

Si estas por ahí, ya solucione el formato para el porcentaje, con este código:

i = 7
Do While i < ultFila
Range(Cells(i + 3, 3), Cells(i + 3, ultColumna)).NumberFormatLocal = "0,00%"
i = i + 3
Loop


donde

• i: es primera fila de la TD donde aparece un porcentaje
• ultfila: es la ultima fila de la TD
• ultcolumna: es la última columna de la TD
• uso la propiedad NumberFormatLocal, con esta me funciono, con NumberFormat no me funciono.

Avanzo 3 filas porque cada 3 filas aparece un porcentaje.


El problema lo tengo con el valor que calcula que no esta bien. Lo que necesito es que uno de los valores que aparece en las filas se divida por el total que aparece al final de la TD,

Como puedo hacer, para dividir uno de los Datos dentro de la tabla por un Total General?

Si necesitas más información, me la pides.

Gracias

Atte.
Lba

[Lba]

Tema Solucionado