Para ajustar automáticamente los anchos de columna en una tabla dinámica usando VBA en Excel, puedes utilizar el método `AutoFit` de las columnas de la tabla dinámica. Aquí está un ejemplo de cómo puedes hacer esto:

Sub AutoFitPivotTableColumns()
    Dim ws As Worksheet
    Dim pt As PivotTable
    
    ' Cambia "Sheet1" por el nombre de tu hoja
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' Cambia "PivotTable1" por el nombre de tu tabla dinámica
    Set pt = ws.PivotTables("PivotTable1")
    
    ' Seleccionar la tabla dinámica
    pt.TableRange2.Select
    
    ' Ajustar automáticamente el ancho de las columnas
    ws.Columns.AutoFit
End Sub

Instrucciones:

• Abre el editor de VBA presionando `ALT + F11` en Excel.
• Inserta un nuevo módulo haciendo clic en `Insertar` > `Módulo`.
• Copia y pega el código proporcionado en la ventana del módulo.
• Asegúrate de cambiar `»Sheet1″` por el nombre de la hoja que contiene tu tabla dinámica y `»PivotTable1″` por el nombre de tu tabla dinámica.
• Ejecuta la macro presionando `F5` o yendo a `Ejecutar` > `Ejecutar Sub/UserForm`.

Este código selecciona el rango de la tabla dinámica completa y utiliza `AutoFit` para ajustar el ancho de todas las columnas que abarca. Asegúrate de adaptar los nombres de la hoja y la tabla a tus necesidades específicas.

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