Copiar hoja Activa a Hoja nueva de otro libro

04/04/2007 - 14:53 por Thebigmik | Informe spam
Buenas quiero copiar la Hoja1 del libro1 a una nueva, que originaria
el codigo, en el libro2


Windows("Libro1").Activate
ActiveSheet.Copy

Windows("Libro2").Activate
Worksheets.Add.Name="Nueva"

Y aqui me quedo, no se como copiarla en esta nueva

Gracias de antemano a todos
 

Leer las respuestas

#1 Héctor Miguel
04/04/2007 - 20:56 | Informe spam
hola, 'anonimo/a' !

... quiero copiar la Hoja1 del libro1 a una nueva, que originaria el codigo, en el libro2
Windows("Libro1").Activate
ActiveSheet.Copy
Windows("Libro2").Activate
Worksheets.Add.Name="Nueva"
Y aqui me quedo, no se como copiarla en esta nueva



'asumiendo' que "Libro1" y "Libro2" NO son libros 'existentes'...
sino que deseas copiar la hoja 'activa' n_veces en un libro 'nuevo' -?-
prueba con una macro +/- como la siguiente:

Sub Copiar_hoja_n_veces()
Dim n As Byte
With ThisWorkbook.ActiveSheet
' primer copia en un libro nuevo '
.Copy
' volver a copier n_veces en el MISMO libro 'nuevo' '
For n = 1 To 5
.Copy After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = "Copia" & n
Next
End With
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Preguntas similares