Macro para realizar ordenamiento personalizado
Buenas tardes, necesito su ayuda en realizar una macro que realice 2 ordenamientos personalizados en la misma hoja, así:
1. Tabla desde B2 hasta columna E y rango de filas variable, se necesita que: Ordenar por: Columna E y Criterio de ordenación: De mayor a menor y la segunda tabla así:
2. Tabla desde A2 hasta columna G y rango de filas variable, se necesita que: Ordenar por: Columna A y Criterio de ordenación: De mayor a menor
Mil gracias por su ayuda,
Te anexo la macro. Prueba y me comentas.
Sub ordenar()
'Por.Dante Amor
'
u = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row
With Sheets("Hoja1").Sort
.SortFields.Clear
.SortFields.Add Key:=Range("B2:B" & u), SortOn:=xlSortOnValues, _
Order:=xlDescending, DataOption:=xlSortNormal
.SetRange Range("B1:E" & u)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
'
With Sheets("Hoja1").Sort
.SortFields.Clear
.SortFields.Add Key:=Range("A2:A" & u), SortOn:=xlSortOnValues, _
Order:=xlDescending, DataOption:=xlSortNormal
.SetRange Range("A1:G" & u)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
'
End Sub
No funciona, no realiza el ordenamiento en el mismo rango de datos. Te envío el archivo? Cuéntame...
La macro hace lo que pides, ordena de "B" a "E" y luego de "A" a "G".
Envíame tu archivo, dime en qué hoja están tus datos, pon los datos desordenados y en otra hoja me pones los mismos datos pero ordenados.
Me explicas paso a paso cómo logras ese ordenamiento y lo hago en la macro.
Ya con el archivo reviso si tienen títulos tus datos.
Listo Dante, te envié el archivo.
Listo, te envié el archivo para ordenar 2 tablas.
