Macro para copiar los datos de ciertas celda de un libro1 a un libro 2 en la siguiente fila que encuentre vacía

Tengo en el libro 1 la orden de compra pero necesito que cada vez que se llene las celdas, se copien los datos a un libro2 en la siguiente fila que encuentre vacía.

1

1 respuesta

Respuesta
2

[Hola 

Te paso la macro 

Sub copiarhoja()
'Por Adriel
    Set l1 = ThisWorkbook             ' libro origen
    Set l2 = Workbooks("libro2.xlsx") ' libro destino
    '
    Set h1 = l1.Sheets("Hoja1")
    Set h2 = l2.Sheets(1)
    '
    u = h2.Range("A" & Rows.Count).End(xlUp).Row + 1
    h1.Range("A1:D1").Copy h2.Range("A" & u)
    '
    MsgBox "Proceso terminado"
End Sub

Valora la respuesta para finalizar

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas