Saltar al contenido

Encontrar diferencias en 2 hojas de excel


Recommended Posts

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

publicado

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.

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.