Macro que reemplaze datos iguales.

[Gerardo Arevalo]

Buen dia a todos! Quisiera saber si me pudiera apoyar con esta macro ya que no logro adaptarla a lo que deceo y hacerla funcional. Tengo un libro en el cual tengo dos hojas en ambas tengo el mismo numero de columnas con el mismo tipo de informacion, yo lo que quiero lograr es que de la hoja2 compare la columna A hasta encontrar celda vacia contra la hoja1 columna A hasta encontrar celda vacia, si encuentra el dato entonces reemplazar toda esa fila de la hoja2 en la hoja1 en la posicion donde encontro el dato que coincide.

HAsta ahora solo tengo esta parte.

Sub repetidos()

sheets("Hoja1").Select

Range("a1").Select

posicion = 1

While ActiveCell.Value <> ""

valorcomparacion = ActiveCell.Value

sheets("Hoja2").Select

Range("a2").Select

While ActiveCell.Value <> ""

If ActiveCell.Value = valorcomparacion Then

Selection.Delete Shift:=xlUp

Else

ActiveCell.Offset(1, 0).Select

End If

Wend

posicion = posicion + 1

sheets("Hoja1").Select

Range("a2").Select

ActiveCell.Offset(posicion - 1, 0).Select

Wend

End Sub

Saludos.

GErardo

DATOS.xls