¿Cómo agregar un campo al área de columnas de una tabla dinámica con VBA?

Contenido

1 Conoce nuestra tienda
- - 1.0.1 Ver más productos
2 Mejora tu nivel y logra tus objetivo
3 Ayúdanos a hacer crecer el proyecto
- 3.1 Relacionado

Para agregar un campo al área de columnas de una tabla dinámica utilizando VBA, primero debes asegurarte de tener acceso al objeto `PivotTable` correspondiente y luego modificar la colección `ColumnFields`. Aquí tienes un ejemplo paso a paso de cómo hacerlo:

   Sub AgregarCampoAColumnas()
       Dim ws As Worksheet
       Dim pt As PivotTable
       Dim pc As PivotCache
       Dim campo As String

       ' Cambia "NombreHoja" por el nombre de la hoja donde está tu tabla dinámica
       Set ws = ThisWorkbook.Sheets("NombreHoja")

       ' Cambia "TablaDinamica1" por el nombre de tu tabla dinámica
       Set pt = ws.PivotTables("TablaDinamica1")

       ' Define el campo que quieres agregar a las columnas
       campo = "NombreDelCampo"  ' Cambia este texto por el nombre del campo

       ' Limpia campos previos en el área de columnas si es necesario
       pt.ColumnFields.ClearAll

       ' Agrega el campo al área de columnas
       With pt
           .ColumnFields.Add campo
       End With

       MsgBox "Campo agregado a columnas."
   End Sub

Abrir el Editor de VBA: Presiona `ALT` + `F11` para abrir el Editor de VBA en Excel.
Insertar un Módulo: Ve a `Insertar > Módulo` para crear un nuevo módulo.
Escribir el Código VBA: Copia y pega el siguiente código en el módulo:
Modificar el Código: Asegúrate de reemplazar `»NombreHoja»` con el nombre de la hoja que contiene la tabla dinámica y `»TablaDinamica1″` con el nombre de la tabla dinámica correspondiente. También cambia `»NombreDelCampo»` por el nombre del campo que deseas agregar al área de columnas.
Ejecutar el Código: Cierra el Editor de VBA y regresa a Excel. Presiona `ALT` + `F8`, selecciona el macro `AgregarCampoAColumnas` y haz clic en `Ejecutar`.

Este macro limpiará cualquier campo existente en el área de columnas (si `ClearAll` es llamado) y luego agregará el campo especificado a las columnas de tu tabla dinámica. Asegúrate de que el campo que deseas agregar ya exista en tu fuente de datos de la tabla dinámica. Si deseas mantener los campos existentes al agregar uno nuevo, omite la línea `pt.ColumnFields.ClearAll`.

facebooklinkedin