ontbrekende data toevoegen

[jan excel]

hallo VBA experts,

In het voorbeeld bestand die als bijlage is toegevoegd wordt met de VBA code, de data in blad1 vergelijkt met blad 2. De ontbrekende data wordt in blad2 in de kolommen H en G gezet.
Hierbij worden er regels toegevoegd. Wat ik wil is dat de ontbrekende data in blad2 vanuit blad1 wordt gekopieerd naar de kolommen G en H in blad2 zonder dat er regels worden toegevoegd.

Ongetwijfeld zal dit moeten kunnen maar ik krijg het niet voor elkaar.
Wil of kan iemand de VBA code aan passen om dit te realiseren.


Alvast bedankt.

 

[HSV]

Hallo Jan,

Sub hsv()
Dim c As Range, n As Long
For Each c In Sheets(1).Columns(1).SpecialCells(2)
    If Columns(1).Find(c, , xlValues) Is Nothing Then
        n = n + 1
        Cells(n, 7).Resize(, 2) = c.Resize(, 2).Value
    End If
  Next c
End Sub