Ordenar numeros de acuerdo a su rango
Tengo varios numeros en un rango "A1:N430" necesito que en la columna P los deje ordenados
1 respuesta
Respuesta de Mario Rodríguez
1
:)
Entonces lo siguiente te puede ser de utilidad:
Sub Macro451()
Dim iCol As Range
Application.ScreenUpdating = False
For Each iCol In Range("A1:N430").Columns
iCol.Copy Cells(Rows.Count, "P").End(xlUp).Offset(1)
Next
Columns("P").Sort Range("P1"), 1, Header:=2
Application.ScreenUpdating = True
End SubSaludos, Mario R.
.
:)
