Como comprar dos archivos en excel
Como puedo comparar dos archivos en excel, cogiendo de base la columna A y B del archivo 1. Y segun esto decir que se modifico con respecto al archivo dos poniendole un color resaltado encima de lo que se modifico.
1 Respuesta
Respuesta de Dante Amor
1
Te anexo la macro
Sub Comparar()
'---
' Por.Dante Amor
'---
'
Application.ScreenUpdating = False
Set l1 = ThisWorkbook
Set h1 = l1.Sheets(1)
Set l2 = Workbooks("Archivo1.xlsm")
Set h2 = l2.Sheets(1)
'
h1.Columns("C:F").Interior.ColorIndex = xlNone
h1.Columns("Z").ClearContents
'
u1 = h1.Range("A" & Rows.Count).End(xlUp).Row
With h1.Range("Z2:Z" & u1)
.Formula = "=RC[-25]&RC[-24]"
.Value = .Value
End With
u2 = h2.Range("A" & Rows.Count).End(xlUp).Row
With h2.Range("Z2:Z" & u2)
.Formula = "=RC[-25]&RC[-24]"
.Value = .Value
End With
'
For i = 2 To u1
Set b = h2.Columns("Z").Find(h1.Cells(i, "Z"), lookat:=xlWhole)
If Not b Is Nothing Then
For j = Columns("C").Column To Columns("F").Column
If h1.Cells(i, j) <> h2.Cells(b.Row, j) Then
h1.Cells(i, j).Interior.ColorIndex = 6
End If
Next
End If
Next
h1.Columns("Z").ClearContents
h2.Columns("Z").ClearContents
Application.ScreenUpdating = True
MsgBox "Fin"
End Sub
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
¡Gracias!
Si los dastos empiezan desde la fila 4 solo seria cambiar
for i= 4 to u1?
Gracias la macro es exactamente lo que necesito!
u1 = h1.Range("A" & Rows.Count).End(xlUp).Row
With h1.Range("Z4:Z" & u1)
.Formula = "=RC[-25]&RC[-24]"
.Value = .Value
End With
u2 = h2.Range("A" & Rows.Count).End(xlUp).Row
With h2.Range("Z4:Z" & u2)
.Formula = "=RC[-25]&RC[-24]"
.Value = .Value
End With
'
For i = 4 To u1así
