Macro para copiar un rango de datos en diferentes hojas

[zeromx]

Hola solicito su apoyo y amable cooperación para realizar un macro el cual su funcion sea la siguiente:
Tengo un libro de mas de 20 hojas con mismos formato las cuales ingreso datos diariamente...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

Hola:

Yo creo que con esto te apañas:

Sub Copiar()
   ActiveSheet.Range("A4:N24").Copy Sheets(ActiveSheet.Range("N25")).Range("A4")
End Sub

Saludos

 

[zeromx]

Hola gracias por responder, pero lo he intentado y me marca un error...subo el archivo para mejor explicacion de mi parte, saludos y gracias por su apoyo.

 

[Papixtli]

Hola amigo,

Reemplaza todo el codigo que tienes por este otro:

Spoiler

Dim MiHoja As Worksheet

Tot_Filas = Cells(1048576, 1).End(xlUp).Row

For Each MiHoja In ActiveWorkbook.Sheets
For F =...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[zeromx]

Gracias por la respuesta pero al sustituir el código y ejecutar el macro me da un error en esta parte

End(xlUp).Row


Saludos..