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.
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