Tabla dinámica campo agregado a valores como suma

Hola,

Siempre que agrego un campo a la tabla dinámica me lo agrega como cuenta de en lugar de como suma de. Claramente el campo que siempre uso es el de suma de y me vuelvo loco cambiando uno por uno todos los campos. Di vuelta el excel para todos lados sin llegar a una solución.

Parece una boludes pero es muy tedioso hacerlo manual.

Gracias

slds

1 Respuesta

Respuesta
1

Con este código en VBA se soluciona el tema:

Sub campotablasuma()
Dim pt As PivotTable
Dim iDataFieldsCount As Integer
Dim iX As Integer
On Error Resume Next
Set pt = ActiveCell.PivotTable
On Error GoTo 0
If pt Is Nothing Then
MsgBox "La celda seleccionada no pertenece a una tabla dinamica", _
vbCritical, _
"Cambiar funcion en TD"
Exit Sub
End If
iDataFieldsCount = pt.DataFields.Count
For iX = 1 To iDataFieldsCount
With pt.DataFields(iX)
If .Function = xlCount Then
.Function = xlSum
.Name = Replace(.Name, "Cuenta de", "Suma de")
End If
End With
Next iX
End Sub

Al ejecutar la macro, debe estar ubicado en la Tabla Dinámica.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas