VBA Excel - macro para ajustar columnas

20 jul. 2021

VBA Excel - macro para ajustar columnas




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


2 comentarios :

  1. Hola buenas tardes Ing. Luis Reyes como le puedo contactar referente a su archivo de como extraer los datos de xml desde excel.

    Este es mi correo: acc69@hotmail.com

    ResponderBorrar