Tengo ésta Macro que copié de un aporte del Maestro Ioyama,la estoy adaptado un poco a mis necesidades, pero ahora veo que necesito algo más,como podría ingresar desde un libro a otro dos filas, una fila a una tablahoja1 y otra a otra tabla hoja2, las filas del libro de partida serían siemprelas mismas, osea que serían siempre los mismos rangos que se transferirían, nocomo en la macro adjunta que se selecciona la fila a transferir.
Tengo ésta Macro que copié de un aporte del Maestro Ioyama,la estoy adaptado un poco a mis necesidades, pero ahora veo que necesito algo más,como podría ingresar desde un libro a otro dos filas, una fila a una tablahoja1 y otra a otra tabla hoja2, las filas del libro de partida serían siemprelas mismas, osea que serían siempre los mismos rangos que se transferirían, nocomo en la macro adjunta que se selecciona la fila a transferir.
Salud_2
Sub INGRESAR_DATOS()
Application.ScreenUpdating = False
ruta = ActiveWorkbook.Path
fila = ActiveCell.Row
cod = Range("C" & fila)
Range("A" & fila & ":X" & fila).Copy
Workbooks.Open Filename:=ruta & "\ReceptorDeDatos.xls"
Sheets("HOJA3").Select
On Error Resume Next
fila2 = Application.WorksheetFunction.Match(cod, Columns("C:C"), 0)
If fila2 = "" Then
uf = Range("A" & Cells.Rows.Count).End(xlUp).Row + 1
Range("A" & uf).PasteSpecial Paste:=xlValues
Else
Range("A" & fila2).PasteSpecial Paste:=xlValues
End If
ActiveWindow.Close (1)
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub