Copiar hoja, renombrarla y moverla

3 envíos / 0 nuevos
Último envío
Jesús Martínez
Imagen de Jesús Martínez
Offline
última acción: Hace 5 meses 3 días
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 31/03/2013 - 17:15
Puntos: 5008
Copiar hoja, renombrarla y moverla

Hola amig@s:

Tengo los siguientes códigos:

Sub Nuevahoja()
Sheets("A").Select
Sheets("A").Copy before:=Sheets(4)
' renombramos la hoja

ActiveSheet.Name = Range("B1").Value

End Sub

Bueno con estos códigos lo que hago es copiar la hoja "A" y después renombrarla con el valor de la celda B1, lo que quiero es que la nueva hoja creada se mueva a mi otro libro de excel que esta con el nombre de Clientes, que código me faltaría?.

Gracias

Saludos

Jesús

Etiquetas: 

Cron
Imagen de Cron
Offline
última acción: Hace 1 mes 3 días
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 12715
Re: Copiar hoja, renombrarla y moverla

Esto te puede dar algunos errores:

 

-En el caso de que no haya ninguna hoja que se llame "A", dará un error

-En el caso de que tengas 3 o menos hojas, dará un error.

-En el caso de que no tengas ningún valor en la celda "B1" o que este sea el mismo que el de otra hoja ya existente, dará error.

 

 

Yo comprobaría estas tres cosas en el código antes de dar cada orden, y me aseguraría de que en B1 hay algo y que no se parece a los nombres de otras hojas.

 

 

Un saludo

Jesús Martínez
Imagen de Jesús Martínez
Offline
última acción: Hace 5 meses 3 días
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 31/03/2013 - 17:15
Puntos: 5008
Re: Copiar hoja, renombrarla y moverla

Estimado Cron:

Si ya vi esas posibilidades, es por eso que una vez que copie la hoja ejemplo quiero que lo renombre y lo mueva.

Saludos cordiales

Jesús

Jesus Martinez Plantarosa