Ontbrekende gegevens in nieuw tabblad zetten

[Phill]

Ik heb een bestand dat gevuld is met cijfers. Om de zoveel tijd krijg ik een nieuw bestand en wil dit vergelijken met het oude bestand, waarbij ik de ontbrekende gegevens in een nieuw tabblad wil zetten.
Bijgaand een voorbeeld.
In Tabblad 1 staat in kolom A de gegevens die vergeleken dienen te worden met tabblad 2 (ook kolom A).
De gegevens die in tabblad 1 staan, maar niet meer in tabblad 2, zou ik graag willen kopiëren naar tabblad 3, waarbij er rekening gehouden met worden dat er in kolom b, c etc. ook gegevens staan, die mee gekopieerd moeten worden. Dus in principe moet de gehele rij gekopieerd worden.

Ik zou dit graag middels een Macro willen kopiëren. Wie kan mij hiermee helpen?

Bekijk bijlage Test.xls

 

[HSV]

Met een klein macrootje.

Sub hsv()
Dim cl As Range, c As Range
For Each cl In Blad1.Columns(1).SpecialCells(2)
 Set c = Blad2.Columns(1).Find(cl, , , xlWhole)
   If c Is Nothing Then
     Blad3.Cells(Rows.Count, 1).End(xlUp).Offset(1).EntireRow.Value = cl.EntireRow.Value
   End If
  Next cl
End Sub

 

[Phill]

Het werkt precies zoals ik het graag had.
Heel hartelijk bedankt!

Groetjes Phill