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 de andres morales
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.
