Jump to content
Sign in to follow this  
javiercito666110784

SUBINDICE FUERA DEL INTERVALO

Recommended Posts

Hola @javiercito666110784

Debes revisar algunas líneas de tu código.  Por ejemplo, en tu archivo, es incorrecto:

Set Hoja = Worksheets("Hoja3").Range("TABLA2")

Y esto se debe a que debes diferenciar el nombre interno (codename) al nombre externo (name) de la hoja.

En la sintaxis arriba mencionada, estás usando el nombre externo de la hoja.  Es decir que debieses usar:

Set Hoja = Worksheets("REPORTE").Range("TABLA2")

O, si quieres usar el nombre interno de la hoja, puedes usar

Set Hoja = Hoja3.Range("TABLA2")

Allí se genera el error.

Ahora bien, en cuanto a la ordenación de las hojas, estás nombrando columnas que no existen en tu tabla, puesto que ella tiene solamente 5 columnas.  De igual manera, no necesitas en los Key nombrar la columna completa.  Basta con que nombres la celda donde se encuentra el título de lo que quieres ordenar. Puedes usar una sintaxis como la que te propongo como ejemplo:

Hoja.Sort KEY1:=Hoja.Range("A1"), ORDER1:=xlAscending, _
KEY2:=Hoja.Range("D1"), ORDER2:=xlAscending, _
KEY3:=Hoja.Range("E1"), ORDER3:=xlAscending, Header:=xlGuess

Esto también te estaba generando errores.

¡Comentas!

¡Espero haberte ayudado, Dios te bendiga!

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.
Sign in to follow this  



×
×
  • Create New...

Important Information

Privacy Policy