Selection.Sort....

hola Ager

Tengo el siguiente codigo:

Sheets("region").Select
Sheets("region").Range("D25:J34").Select
Selection.Sort Key1:=Range("E26"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Lo que deberia hacer, es ordenala. Pero cuando llega a
Selection.Sort.. Me da error, "Error definido por la aplicacion o el
objeto".

Que me falta? que me sobra???.
Les comento que este codigo esta dentro de "Microsoft Excel Objetos", lo
necesito ahi, porque anteriormente estoy copiando una solapa de un libro.

en cuanto a lo de ' que este codigo esta dentro de "Microsoft Excel
Objetos"', la verdad es que n queda nada claro ni donde ni porque,
pero bueno

salvo que en las versiones posteriores a la 2002/xp el metodo sort sea
diferente (en 2007 creo que si pero no lo se), creo que el error (como
poco) te debe venir de la asignacion que haces al argumento
'Orientation'. Yo al menos en la ayuda no veo entre las posibles
constantes asignables la que mencionas (xlTopToBottom), tan solo
xlByRows y xlByColumns

prueba a omitir dicho argumento )y ya de paso, salvo que lo estes
haciendo conscientemente por algun motivo concreto, omite tambien
OrderCustom, MatchCase:=False, y DataOption1 <en cuanto a estos
ultimos no me hagas demasiado caso, pero prueba lo de Orientation>)

a ver si hay suerte

un saludo
Ivan

Hola Ivan.
Fui eliminando paulatinamente lo que me sujeriste, pero sin exito.

Siempre me da el mismo error.

Gracias.

On 12 dic, 17:08, AgerGaston
wrote:

Hola Ivan.
Fui eliminando paulatinamente lo que me sujeriste, pero sin exito.

Siempre me da el mismo error.

Gracias.

hola de nuevo, Ager

solo por si acaso prueba esta modificacion

Sheets("region").Activate
Sheets("region").Range("D25:J34").Select
Selection.Sort Key1:=Range("E26"), Order1:=xlAscending,
Header:=xlGuess

a ver si hay suerte

un saludo
Ivan

o aun mejor, si el motivo de seleccionar el rango es solo ordenarlo
prueba esto otro

Sheets("region").Range("D25:J34").Sort Key1:=Range("E26"),
Order1:=xlAscending, Header:=xlGuess

esto deberia funcionarte, aunque ni te activa ni te selecciona nada

de todas formas, aunque no se hasta que punto estoy en lo cierto, si
por lo que sea necesitas activar y seleccionar el rango <desde luego
no para ordenarlo, ni para la mayoria de las acciones en si mismas que
quieras realizar sobre rangos> prueba como te decia en el anterior
mensaje a Activar previamente la hoja antes de seleccionar un rango

un saludo
Ivan

Probe ambas opciones sin exito.

Lo unico que pude hacer es un call.

Un "call ordenar", que llama a un modulo donde esta el codigo que te comente
en un principio.

Gracias.