MACRO para copiar en hoja2 en filas consecutivas
Tengo en la hoja1 una caratula que lleno con datos, en las diferentes celdas y debo hacer que una MACRO me las copie a la hoja2 todas en una misma fila.
Luego de que me copie esta primera carga, debo volver a llenar con datos diferentes la hoja1 y que la misma MACRO me las copie en la hoja2, en la fila siguiente consecutiva que la anterior.
CONCRETAMENTE: HOJA1 lleno 20 datos en celdas diferentes, hago que la MACRO me las copie en la HOJA2 en la fila2. Luego vuelvo a llenar la HOJA1 con otros datos diferentes en las mismas celdas, y necesito que la misma MACRO me las copie en la HOJA2 en la fila siguiente y consecutiva a la anterior (es decir, fila3). Así, debo llenar la HOJA1 160 veces con datos diferentes, siempre en las mismas celdas, pero deben ir copiandose en la hoja 2 en filas consecutivas (total 160 filas).
1 Respuesta
Prueba esta macro, solo crea en la página un botón comando para enviar lo que captures a la hoja2
Sub copiar()
Set h1 = Worksheets("hoja1")
Set h2 = Worksheets("hoja2")
Set datos = h1.Range("a1").Resize(1, 20)
Set destino = h2.Range("a1").CurrentRegion
filas = destino.Rows.Count + 1
datos.Copy: Range("a1").Rows(filas).PasteSpecial
Set datos = Nothing: Set destino = Nothing
End Sub
