Jump to content
lphant

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

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

Share this post


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

 

Share this post


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

Share this post


Link to post
Share on other sites

×
×
  • Create New...

Important Information

Privacy Policy

Ayuda Excel - Madrid, Madrid, ES - Valorada por 5112 personas - Aprender Excel - Total: 4.7 / 5