VBA Excel - macro para ajustar columnas

VBA Excel - macro para ajustar columnas

   20 julio       Luis Reyes

---

Al trabajar con macros puede ser necesario ajustar automáticamente sus columnas para tener una mejor presentación de nuestro trabajo, a continuación te explicaré como hacerlo:

Para ajustar un ciertas columnas:

En este caso serán de la columna A a la columna F

Columns("A:B").EntireColumn.Autofit

Si lo queremos es ajustar el rango que hemos trabajado automáticamente deber usar:

•  Un for para recorrer todas las columnas.
• Con la propiedad UsedRange vamos a determinar el rango que se ha utilizado.
• Con un Count vamos a conocer el número de columnas que se han utilizado

Sub AjustarColumnas()
 Dim Col As Integer 'Declaramos nuestra variable (númerico)
 
    For Col = 1 To UsedRange.Columns.Count ' contamos el numero de columnas utilizadas
          Columns(Col).EntireColumn.AutoFit ' ajusta la columna
    Next x
End Sub