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 Respuesta
Respuesta de Adriel Ortiz Mangia
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 SubValora la respuesta para finalizar
