Wijzigingen kenmerken

[Johil]

Beste mensen
Ik krijg periodiek een Excel bestand aangeleverd.
M.b.v. Verticaal-zoeken wordt een ander bestand bijgewerkt.
Het betreft duizenden gegevens.
Op welke manier kan ik een melding krijgen welke gegevens zijn gewijzigd t.o.v. de vorige aanlevering?
Heeft iemand een tip, idee o.d. welke manier ik zou kunnen toepassen
Alvast bedankt.
Joop

 

[Niels28]

Zorg dat beide bestanden gesloten zijn.
Plaats dit in een leeg excelbestand en voer de macro uit.
Kies dan eerst het nieuwe bestand en dan het oude.

Let op alleen getest op kleine bestanden, weet niet hoelang het duurt bij duizende gegevens.

Sub controle()
WBnieuw = Application.GetOpenFilename
Workbooks.Open (WBnieuw)
Snaam = ActiveWorkbook.Name
WBoud = Application.GetOpenFilename
Application.ScreenUpdating = False

With Workbooks.Open(WBoud)
    For Each cl In Workbooks(Snaam).Sheets(1).UsedRange
    If cl.Value <> .Sheets(1).Range(cl.Address).Value Then cl.Interior.Color = vbRed
    Next
End With
ActiveWorkbook.Close savechanges:=False
Application.ScreenUpdating = True
End Sub

Niels

 

[daan108]

Weet niet of het gratis is: http://sourceforge.net/projects/spreadshcompare/

 

[Johil]

Beste Niels28 en Daan108
Beide oplossingen kan ik heel goed gebruiken/aanpassen.
Veel dank.
Groet
Joop