Copiar filas automáticamente a hoja 2
Ok, antes que nada agradezco la ayuda aquí otorgada.
Espero ser claro, sencillo y conciso en la pregunta que explicaré a continuación. La cuestión es que tengo "N" numero de filas y ocupo copiar los datos de una fila de manera cíclica cada 51 filas. El resultado de la copia seria ideal que se moviese a la hoja nueva siguiente del archivo.
Es decir de 60000 filas solo necesito copiar las filas 1, 51, 101, 151, 201, etc... Sucesivamente hasta el infinito y más allá. Y quedaría perfecto si las filas copiadas quedaran en una hoja nueva.
Espero ser entendible y nuevamente agradeceré cualquier ayuda comentario. Si es una macro, código, como sea lo intentaré.
Saludus!
1 respuesta
Ejecuta la siguiente macro.
Copia de “Hoja1” a “Hoja2”. Revisa que así estén los nombres en tu libro de excel.
Instrucciones
1. Abre tu hoja de excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona ALt + F11
3. En el menú elige Insertar / Módulo
4. En el panel del lado derecho copia la macro
5. Para ejecutarla presiona F5
'*****Macro*****
Sub copiacada50()
'Copia registros a otra hoja cada 50
'Por.daM
hojatrabajo = "Hoja1"
ufila = ActiveCell.SpecialCells(xlLastCell).Row
ucolu = ActiveCell.SpecialCells(xlLastCell).Column
'Worksheets.Add
hojanueva = "Hoja2"
Range("A1").Select
For i = 1 To ufila
Worksheets(hojatrabajo).Select
Range(Cells(i, 1), Cells(i, ucolu)).Copy
Worksheets(hojanueva).Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Select
i = i + 49
Next
End Sub
'*****Macro*****Saludos.daM
