Copiar hoja Activa a Hoja nueva de otro libro

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.

On 4 abr, 20:56, "Héctor Miguel"
wrote:

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.

me he explicado mal, tengo que copiarlo en un libro existente. No se
como usar los parametros del copy (me parece que es ese el problema).
Pero no tengo acceso a la ayuda del excel.
Gracias por tu ayuda hector.

hola, ???

me he explicado mal, tengo que copiarlo en un libro existente.
No se como usar los parametros del copy (me parece que es ese el problema).
Pero no tengo acceso a la ayuda del excel...

[en ese caso]... copia/pega la siguiente macro en un modulo 'general' de tu libro 'origen' [Libro1 ?]
y [de ser necesario] modifica el nombre de tu libro 'existente' [en el ejemplo: -> "libro2"]

Sub Copiar_hoja1_n_veces_en_Libro2()
Dim n As Byte
With Workbooks("Libro2")
For n = 1 To 5
ThisWorkbook.Worksheets("hoja1").Copy _
After:=.Worksheets(.Worksheets.Count)
' ActiveSheet.Name = "Copia" & n
Next
End With
End Sub

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