Si encuentras alguna incompatibilidad con tu código o trabajo, recuerda probar siempre en un ambiente de testing antes subir el código al proyecto final.
Solución:
- Cambiar el nombre del encabezado/nombre de la columna en la fuente
- Actualizar el pivote. Esto eliminará todas las etiquetas forzadas y eliminará el campo del pivote.
- Cambie el nombre de la columna a lo que era
- Actualizar pivote de nuevo
- Agregue el campo nuevamente a su pivote.
Este macro eliminará todos los títulos de las etiquetas de fila y de columna en todas las tablas dinámicas de un libro de trabajo. Esto NO funcionará con tablas PowerPivot.
Sub FixPivotItemCaptions()
Dim pi As PivotItem
Dim pt As PivotTable
Dim wb As Workbook
Dim ws As Worksheet
Dim pf As PivotField
Set wb = ActiveWorkbook
Application.ScreenUpdating = False
For Each ws In wb.Worksheets
For Each pt In ws.PivotTables
For Each pf In pt.PivotFields
For Each pi In pf.PivotItems
pi.Caption = pi.SourceName
Next
Next
Next
Next
Application.ScreenUpdating = True
End Sub
Si eres capaz, tienes la libertad de dejar una sección acerca de qué te ha gustado de este ensayo.
¡Haz clic para puntuar esta entrada!
(Votos: 0 Promedio: 0)