Uno de los detalles más importantes a la hora de presentar la información, es sin duda, la estética y la funcionalidad.
En ese sentido, cuando generamos un informe tenemos la tendencia a no reparar en la necesidad de que los datos que estamos mostrando aparezcan ordenados de alguna forma.

Os voy a presentar una macro que realiza esa misma función, ordena nuestros datos de forma alfabética.

Supongamos un rango de celdas de A1 a F1 (aquí estaría el cabecero de la columna). En la columna B1 supongamos también que hay nombres  y en el resto de columnas diferentes indicadores. Pues bien, esta macro va a ordenar siempre la columna B1 (obviamente se puede cambiar de columna según nuestras necesidades) alfabéticamente hasta un rango de 65.000 filas.

Siempre podréis, en caso de necesidad, modificar los parámetros del código según vuestras necesidades.

Private Sub Ordenar_alfabéticamente()

Range("A1:F1").Select
Selection.AutoFilter
Range("A1:F65000").Sort Key1:=Range("B1"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A1:F1").Select
Selection.AutoFilter
Range("A1").Select

End Sub

Descarga el archivo pulsando enORDENAR ALFABÉTICAMENTE

PD: Si deseáis realizar esta tarea en columnas independientes, os recomiendo visitar la siguiente entrada: Ordenar columnas de forma independiente

¿Te ha resultado de interés?, puedes apoyar Excel Signum con una pequeña donación.


Donate Button with Credit Cards

¡¡Muchas gracias!!

Comparte este post