Para automatizar la adición de campos calculados en una tabla dinámica con VBA, necesitas seguir estos pasos:

   Sub AgregarCampoCalculado()
       Dim ws As Worksheet
       Dim pt As PivotTable
       Dim pc As PivotCache
       
       ' El nombre de la hoja donde está la tabla dinámica
       Set ws = ThisWorkbook.Sheets("NombreDeLaHoja")
       
       ' Aqui debes ajustar el nombre de la tabla dinámica si es necesario
       Set pt = ws.PivotTables("NombreDeLaTablaDinamica")
       
       On Error Resume Next
       
       ' Añadir un campo calculado a la tabla dinámica
       pt.CalculatedFields.Add Name:="NombreDelCampoCalculado", _
                               Formula:="='Campo1' * 'Campo2'", _
                               UseStandardFormula:=True
       
       ' Refrescar la tabla para aplicar cambios
       pt.RefreshTable

       On Error GoTo 0
   End Sub

• Preparar el entorno: Asegúrate de tener una tabla dinámica ya creada en tu hoja de cálculo. Puedes crear una tabla dinámica manualmente primero o usar VBA para crearla.
• Acceder al Editor de VBA: Presiona `ALT + F11` para abrir el Editor de VBA en Excel.
• Insertar un Módulo: En el editor de VBA, dirígete a `Insertar > Módulo` para añadir un nuevo módulo a tu proyecto donde podrás escribir tu código VBA.
• Escribir el código: Usa el siguiente ejemplo de código VBA para agregar un campo calculado a tu tabla dinámica:

Asegúrate de ajustar los nombres de la hoja, la tabla dinámica y los campos dentro de la fórmula según tu configuración específica.

• Ejecutar el código: Una vez que hayas escrito y ajustado el código, puedes ejecutarlo presionando `F5` mientras estás en el Editor de VBA o asignándolo a un botón en Excel para su ejecución más fácil.

Este código busca la tabla dinámica en la hoja especificada y añade un nuevo campo calculado que puedes definir según tus necesidades. Recuerda ajustar los nombres y referencias en el código de acuerdo a tu documento específico.

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