En Excel, es común encontrarse con hojas de cálculo extensas que contienen datos en varias columnas. A veces, el ancho predeterminado de las columnas no es suficiente para mostrar todos los datos de manera adecuada, lo que puede resultar en la incomodidad de tener que desplazarse horizontalmente. Afortunadamente, Excel nos brinda una solución para este problema al permitirnos ajustar automáticamente el ancho de columna al seleccionar una celda específica. En esta entrada de blog, te mostraré cómo lograrlo utilizando una macro en VBA.

Explicación de la macro:

La macro en cuestión se activa cada vez que se produce un cambio de selección en la hoja de cálculo. Esto significa que cuando seleccionas una celda distinta, Excel ejecutará automáticamente el código VBA contenido en esta macro.

Aquí está la macro:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells.EntireColumn.AutoFit
End Sub

La línea de código Private Sub Worksheet_SelectionChange(ByVal Target As Range) indica que esta macro se aplica a la hoja de cálculo actual y se activa cuando ocurre un cambio de selección.

La línea Cells.EntireColumn.AutoFit es la acción que se realiza cada vez que ocurre un cambio de selección. La propiedad EntireColumn se refiere a la columna completa que contiene la celda seleccionada. La función AutoFit ajusta automáticamente el ancho de la columna para que se ajuste al contenido de la celda más ancha en esa columna. Esto garantiza que todos los datos de la columna sean visibles sin tener que desplazarse horizontalmente.

Cómo insertar el código de la macro en Excel

Haz clic con el botón derecho sobre la hoja en la que deseas que se ajuste automáticamente las celdas, luego selecciona la opción «ver código».

Despliega las opciones del menú, y selecciona «Worksheet» ahí, deberás escribir:

Cells.EntireColumn.AutoFit

Escríbelo entre las líneas que se muestran por default, para que al final quede así:

---

Recuerda que esta macro se aplicará a la hoja de cálculo específica en la que la hayas insertado. Si deseas aplicarla a otras hojas, deberás copiarla y pegarla en cada una de ellas.

Espero que esta explicación te haya sido útil. Si tienes alguna otra pregunta, no dudes en hacerla. ¡Buena suerte con tus hojas de cálculo en Excel!

Aquí te dejo el video explicativo: