Copia de datos

Hugo Mario

New Member
Joined
Feb 1, 2014
Messages
1
Buenas noches!
Soy un usuario de primera hora de Excel (incluso desde el viejo Lotus 1-2-3...
Los avances vertiginosos van más rápido que mi edad, y hay cosas que posiblemente sean sencillas, pero no encuentro la macro apropiada para resolver.
Mi problema es el siguiente:

Tengo un libro con dos hojas. En una de ellas, hay mil líneas ocupadas con seis columnas cada una, con datos de funcionarios.
En la otra, pretendo generar "fichas" con los datos ordenados de la primer hoja, pero en otra posición.
Por ejemplo : los datos de A1, B1, C1, D1, E1 y F1 debo copiarlos en la otra hoja en A1, A2,A3,A4,A5 Y A6... luego, los de A2, B2, C2, D2, E2 y F2 necesitos ubicarlos en A25, A26, A27, A28, A29 y A30, y así sucesivamente hasta llegar a la última línea de datos de la hoja uno, que es aproximadamente la 980.
No encuentro la forma de generar una macro que cumpla con esta necesidad.
Agradezco a quien pueda orientarme en este sentido.
Desde ya, muchas gracias!
 

Some videos you may like

Excel Facts

Ambidextrous Undo
Undo last command with Ctrl+Z or Alt+Backspace. If you use the Undo icon in the QAT, open the drop-down arrow to undo up to 100 steps.

johnmpl

Board Regular
Joined
Jun 14, 2013
Messages
235
Hola!

Prueba con esta macro:

Code:
Sub CopiaPuntual()    
    uf = Hoja1.Range("A" & Rows.Count).End(xlUp).Row
    uc = Hoja1.Cells(1, Columns.Count).End(xlToLeft).Column
    
    For i = 1 To uf
        For j = 1 To uc
            Hoja2.Cells(24 * (i - 1) + j, 1) = Hoja1.Cells(i, j)
        Next j
    Next i
End Sub

Con esto, obtendrás lo que pediste!

Espero haberte ayudado, Dios te bendiga!
 

Watch MrExcel Video

Forum statistics

Threads
1,122,461
Messages
5,596,274
Members
414,050
Latest member
Rick Royer

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top