Comparar 2 columnas y copiar las celdas de más de una de ellas.

[lphant]

Buenas tardes!!!

 

A ver si me podéis echar una manita.

 

Estoy intentado comparar 2 columnas (columna C de la Hoja “Datos” y la columna A de la Hoja “Historico”) para una vez comparadas, me copie lo que tenga de más en la columna C de la Hoja “Datos” en la columna A de la Hoja “Historico”.

 

Muchísimas gracias.

 

Un saludo,

Libro1.xlsm

[Antoni]

Sub GuardarHistórico()
For x = 2 To Hoja2.Range("A" & Rows.Count).End(xlUp).Row
   Set celda = Hoja1.Columns("A").Find(Hoja2.Range("C" & x), , , xlWhole)
   If celda Is Nothing Then
      Hoja1.Range("A" & Rows.Count).End(xlUp).Offset(1) = Hoja2.Range("C" & x)
   End If
Next
End Sub

 

[lphant]

Hace 1 hora, Antoni dijo:

Sub GuardarHistórico()
For x = 2 To Hoja2.Range("A" & Rows.Count).End(xlUp).Row
   Set celda = Hoja1.Columns("A").Find(Hoja2.Range("C" & x), , , xlWhole)
   If celda Is Nothing Then
      Hoja1.Range("A" & Rows.Count).End(xlUp).Offset(1) = Hoja2.Range("C" & x)
   End If
Next
End Sub

 

funciona perfectamente.

muchisimas gracias @Antoni