Para restablecer el diseño de una tabla dinámica a su configuración predeterminada utilizando VBA, debes asegurarte de limpiar los campos y configuraciones personalizados que hayas ajustado. Aquí tienes un ejemplo de cómo podrías hacerlo:

Sub RestablecerTablaDinamica()
    Dim ws As Worksheet
    Dim pt As PivotTable
    Dim pc As PivotCache
    Dim pf As PivotField

    ' Establece la hoja de trabajo y la tabla dinámica
    Set ws = ThisWorkbook.Sheets("NombreDeLaHoja")
    Set pt = ws.PivotTables("NombreDeLaTablaDinamica")
    
    ' Limpiar todos los elementos previamente configurados
    With pt
        ' Limpiando los campos de filas, columnas, filtros y datos
        For Each pf In .RowFields
            .PivotFields(pf.Name).Orientation = xlHidden
        Next pf
        For Each pf In .ColumnFields
            .PivotFields(pf.Name).Orientation = xlHidden
        Next pf
        For Each pf In .PageFields
            .PivotFields(pf.Name).Orientation = xlHidden
        Next pf
        For Each pf In .DataFields
            .PivotFields(pf.Name).Orientation = xlHidden
        Next pf
    End With

    ' Puedes añadir aquí más configuraciones predeterminadas si las tienes especificadas

    MsgBox "La tabla dinámica ha sido restablecida a su configuración predeterminada."
End Sub

Instrucciones para usar el script:

• Asegúrate de sustituir `»NombreDeLaHoja»` por el nombre de la hoja de Excel que contiene la tabla dinámica.
• Sustituye `»NombreDeLaTablaDinamica»` por el nombre de la tabla dinámica que deseas restablecer.
• Ejecuta el script dentro del editor de VBA (Alt + F11 para abrir el editor).

Este código oculta todos los campos actualmente visibles en filas, columnas, filtros y valores. Si tienes una configuración predeterminada específica, puedes añadir esos detalles después de ocultar los campos actuales.

Conoce nuestra tienda

Ver más productos

Mejora tu nivel y logra tus objetivo

Excel

Access

Power BI

Ayúdanos a hacer crecer el proyecto