Mover worksheet hasta la última posición

milolo · #1 (**permalink**) 12/12/2007, 03:32

Hola a todos de nuevo.

Otra vez ando liado con otra dudilla, vereis:

He creado un macro que me crea un worksheet nuevo, y mi pregunta sería como puedo mover este worksheet para que se situe en el último lugar de los worksheets existentes.

El código que estoy usando es:

Código:

Sub Macro1()

    Sheets("Nombres").Select
    Sheets("Nombres").Move After:=Sheets(3)

End Sub

Así se puede mover el worksheet a una posición determinada (en este caso a la posición 3).

¿Alguna sugerencia??

Gracias

uzziber · #2 (**permalink**) 12/12/2007, 12:58

Sé poco de Macros y VB, pero se me ocurre...
¿Cuántas hojas acepta un libro?
Escribe el número de la última posición y ve que resulta....

Saludos...

abrahamvj · #3 (**permalink**) 12/12/2007, 13:56

Primero que nada, desde la version 2000, la cantidad de hojas en un libro depende de la memoria de la PC.

Segundo, la solucion:

Sub Macro1()

Sheets("Nombres").Select
Sheets("Nombres").Move After:=Sheets(Worksheets.Count)

End Sub

Abraham

milolo · #4 (**permalink**) 13/12/2007, 02:09

Pues muchísimas gracias a los dos por contestar

Un saludo