H o la: Puedes ejecutar la siguiente macro.
Primero selecciona el área a ordenar, por ejemplo de A2:E6, en esa área deberá quedar fuera las líneas que no quieres ordenar, también debe quedar fuera el encabezado de la tabla.
Sub Ordenar_Sector()
'---
' Por.Dante Amor
'---
cini = Selection.Cells(1, 1).Column
cfin = Selection.Columns.Count + cini - 1
fini = Selection.Cells(1, 1).Row
ffin = Selection.Rows.Count + fini - 1
With ActiveSheet.Sort
.SortFields.Clear
.SortFields.Add Key:=Range(Cells(fini, cini), Cells(ffin, cini)), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SetRange Range(Cells(fini, cini), Cells(ffin, cfin))
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Sigue las Instrucciones para ejecutar la macro
- Abre tu archivo de excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- En el menú elige Insertar / Módulo
- En el panel del lado derecho copia la macro
- Para ejecutarla presiona F5
O si prefieres, puedes crear una combinación de teclas para ejecutar la macro. Primera copia la macro en VBA, siguiendo los pasos anteriores del 1 al 4. Entra al menú Vista / Macros / Ver macros / en la ventana de "Macro", selecciona Ordenar_sector, presiona el botón Opciones
En la siguiente ventana escribe una letra m y presiona Aceptar
En la ventana "Macro" presiona el botón "Cancelar".
Listo, para ejecutar la macro, selecciona el sector a ordenar y después presiona las teclas Control + m
(La m debe ser minúscula)
El sector se ordenará por la columna A.
Avísame si tienes dudas.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias