Para habilitar o deshabilitar subtotales en una tabla dinámica usando VBA, puedes emplear la propiedad `Subtotals` de los campos de la tabla dinámica. Aquí te muestro cómo hacerlo:

Paso a paso

• Abrir el Editor de VBA:
• Presiona `ALT + F11` para abrir el Editor de Visual Basic en Excel.
• Insertar un Módulo:
• Haz clic en `Insertar` > `Módulo` para agregar un nuevo módulo donde escribirás el código.
• Escribir el Código VBA:
• A continuación, escribe el código que habilitará o deshabilitará los subtotales de los campos especificados en una tabla dinámica.

Ejemplo de Código VBA

Aquí tienes un ejemplo básico para deshabilitar los subtotales:

Sub DeshabilitarSubtotales()
    Dim pt As PivotTable
    Dim pf As PivotField
    
    ' Establece la referencia a la tabla dinámica
    Set pt = ActiveSheet.PivotTables("NombreDeTuTablaDinamica")
    
    ' Recorre cada campo en la tabla dinámica
    For Each pf In pt.PivotFields
        ' Deshabilita los subtotales para cada campo
        pf.Subtotals(1) = False
    Next pf
End Sub

Para habilitar todos los subtotales, puedes modificar el código de la siguiente manera:

Sub HabilitarSubtotales()
    Dim pt As PivotTable
    Dim pf As PivotField
    
    ' Establece la referencia a la tabla dinámica
    Set pt = ActiveSheet.PivotTables("NombreDeTuTablaDinamica")
    
    ' Recorre cada campo en la tabla dinámica
    For Each pf In pt.PivotFields
        ' Habilita los subtotales (mediana sería subtotales(1)
        pf.Subtotals(1) = True
    Next pf
End Sub

Consideraciones

• Nombre de la Tabla Dinámica: Asegúrate de reemplazar `»NombreDeTuTablaDinamica»` con el nombre real de tu tabla dinámica.
• Subtotals Index: `Subtotals(1)` habilita o deshabilita la suma predeterminada. Si estás interesado en otros tipos de subtotales (como el conteo, promedio, etc.), tendrás que ajustar el índice correspondiente.
• Manejo de Errores: Puede ser útil agregar manejo de errores para asegurarse de que el código funciona correctamente incluso si la estructura de la tabla dinámica cambia.

Recuerda probar el código en un entorno seguro antes de aplicarlo a documentos importantes.

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