Saltar al contenido

Excel: cómo borrar todas las etiquetas de tabla dinámica renombradas

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:

  1. Cambiar el nombre del encabezado/nombre de la columna en la fuente
  2. Actualizar el pivote. Esto eliminará todas las etiquetas forzadas y eliminará el campo del pivote.
  3. Cambie el nombre de la columna a lo que era
  4. Actualizar pivote de nuevo
  5. 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)



Utiliza Nuestro Buscador

Deja una respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *