Jump to content

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


lphant

Recommended Posts

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

Link to post
Share on other sites
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

 

Link to post
Share on other sites
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

Link to post
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...

Important Information

Privacy Policy