Saltar al contenido

Encontrar diferencias en 2 hojas de excel

publicado

Queria ver si me puede ayudar para ver como puedo encontrar las diferencias entre la hoja1 y la hoja2 de Excel del archivo que adjunto, muchas gracias por su ayuda de antemano. Las hojas tienen aproximadamente 4 mil filas, le tuve que quitar ya que por espacio no me dejaba subirlo.

comparar.zip

Featured Replies

publicado
  • Autor

Disculpa, si celda por celda, la hoja 2014 es al corte del 31 de diciembre y la hoja 2013 es al corte del 31 de septiembre, seria marcar en rojo las diferencias por favor. Gracias

publicado

.

Te dejo esta macro que compara la Hoja1 con la Hoja2 y marca las diferencias en rojo sobre la Hoja1.

Se utiliza la Hoja3 como hoja de trabajo, por lo que siempre debe existir.

Sub Comparar()
Application.ScreenUpdating = False
Hoja1.Select
ActiveSheet.UsedRange.Copy Hoja3.Range("A1")
ActiveSheet.UsedRange.Interior.ColorIndex = xlNone
For Each celda In ActiveSheet.UsedRange
If celda.Value = Hoja2.Range(celda.Address).Value Then
celda.Interior.Color = Hoja3.Range(celda.Address).Interior.Color
Else
celda.Interior.Color = vbRed
End If
Next
Hoja3.Cells.Clear
End Sub
[/CODE]

.

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.