Sustituir fila de un rango a otro rango según valor de celda
Hola a todos,
Quisiera copiar una rango fijo (H4:N4) ubicado en el libro2 y que lo copiase en la fila coincidente del valor de la celda A1 del libro1 que comparte con el rango (H4:M26) del libro1.
Gracias
1 Respuesta
Respuesta de Dante Amor
1
Te anexo la macro, no mencionas en cuál hoja del libro2 está tu rango fijo, le puse en la macro "hoja1", cambia ese nombre por el de tu hoja.
El libro2 deberá estar abierto.
Sub CopiarDatos()
'Por.Dante Amor
Set l1 = ThisWorkbook
Set h1 = l1.ActiveSheet
Set l2 = Workbooks("Libro2")
Set h2 = l2.Sheets("Hoja1")
'
Set b = h1.Range("H4:H26").Find(h1.[A1], lookat:=xlWhole)
If Not b Is Nothing Then
f = b.Row
h2.Range("H4:N4").Copy Range("H" & b.Row)
Else
MsgBox "El dato de la celda A1 no existe en el primer rango"
End If
End SubSaludos.Dante Amor
