RE:ORDENAR
Publicado por
Carlos (1 intervención) el 21/02/2006 18:20:23
Prueba con este codigo, si por ejemplo tus datos los tienes en una columna desde la celda a1 a a20, espero te sirva suerte.
sub ordenarlista()
Range("a1:a20").Sort Key1:=Range("a1"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
end sub