Comparar dos hojas y completar hoja2 con datos de hoja1 que faltan
Hola, necesito ayuda.
Tengo dos hojas Hoja1 y Hoja2, en ambas hojas la columna A es el numero de cliente. Necesito un macro que compare las hojas y cuando encuentre el mismo numero de cliente en columna A, entonces copie los datos de la celda H y I de la Hoja1 a las celdas H y I de la Hoja2.
Son muy grandes los listados.
Por favor, ayuda
1 respuesta
Respuesta de Dante Amor
1
Esta es lamacro
Sub copiar()
'Por.DAM
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
For i = 2
To h2.Range("A" & Rows.Count).End(xlUp).Row
Set b = h1.Range("A:A").Find(h2.Cells(i, "A"))
If Not b Is Nothing Then
h1.Range("H" & b.Row & ":I" & b.Row).Copy
h2.Range("H" & i).PasteSpecial Paste:=xlPasteValues
End If
Next
End Subno olvides finalizar la pregunta.
