Copiar 2 filas y pegar en una sola fila

Me ayudas con una macro que copie las filas desde b3 a f3 y de b4 a f4 y que las pegue en la siguiente fila vacía pero de otra hoja, pero en la misma fila, la primera fila se pega en b y la siguiente fila se pega en la misma fila pero en g.

1 respuesta

Respuesta
1

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")
    '
    u = h2.Range("B" & Rows.Count).End(xlUp).Row + 1
    h1.Range("B3:F3").Copy
    h2.Range("B" & u).PasteSpecial Paste:=xlValues
    h1.Range("B4:F4").Copy
    h2.Range("G" & u).PasteSpecial Paste:=xlValues
End Sub

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

Si es lo que necesitas.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas