Macro para copiar fila cuando coincida un valor
He visto que has dato muchas respuestas y me haría falta tu experiencia para poder resolver esta macro:
Quiero que busque el valor de la Hoja 1 (A2) en la columna de la Hoja 2 (A:A) y que cuando coincida que copie la fila de la Hoja 1 (A2:J2) a la Hoja 2 (en esa posición donde ya hay el mismo valor de A y que sustituya los valores anteriores)
1 respuesta
Respuesta de Dante Amor
4
H o l a:
Te anexo la macro
Sub CopiarFila()
'Por.Dante Amor
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
If h1.[A2] = "" Then
MsgBox "Escribe en la celda A2 un dato a buscar", vbCritical
Exit Sub
End If
Set b = h2.Columns("A").Find(h1.[A2], lookat:=xlWhole)
If Not b Is Nothing Then
h1.Range("A2:J2").Copy h2.Range("A" & b.Row)
MsgBox "Datos copiados", vbInformation
Else
MsgBox "El dato a buscar no se encontró", vbExclamation
End If
End Sub' : ) 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias ' : )
¡Gracias!
Lo he probado y por el momento va perfecto. Muchas gracias!!
Se agradece saber que hay gente dispuesta a ayudar!
