Copiar 2 filas de una hoja a una fila en otra hoja

Me puedes ayudar con una macro para copiar el rango de A2 a E2 de la hoja1 a la hoja2 en la celda A2 y el rango de A3 a E3 de la hoja1 a la hoja2 pero en la celda F2.

2 Respuestas

Respuesta
2

Te anexo la macro, cambia Hoja1 y Hoja2 por los nombres de tus hojas

Sub CopiarFilas()
'Por.Dante Amor
    Set h1 = Sheets("Hoja1")
    Set h2 = Sheets("Hoja2")
    '
    h1.Range("A2:E2").Copy h2.[A2]
    h1.Range("A3:E3").Copy h2.[F2]
End Sub

S a l u d o s . D a n t e   A m o r

Recuerda valorar la respuesta.

Respuesta
-1

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas