Hola,
Necesito ayuda, estpy un poco oxidado pero necesito una macro simple para poder copiar datos que estan en forma vertical en forma horizontal y en forma correlativa.
adjunto archivo, desde ya muchas gracias.
| Adjunto | Tamaño |
|---|---|
 libro3.xlsx | 10.76 KB |
Jue, 10/07/2014 - 01:28
#1
boton guardar
No es difícil...
Lo primero sería localizar la fila en la que tienes que copiar los datos. Se puede hacer algo así como:
Worksheets("REGISTROS").Activate
Cells(1, 1).Select
Selection.End(xlDown).Select
Localizamos la fila donde estamos
fila = activecell.row
Y realizamos la copia
For a = 1 To 8
Worksheets("FORMATO").Activate
valor = Cells(a + 4, 4)
Worksheets("REGISTROS").Activate
Cells(fila + 1, a) = valor
Next
Un saludo