Help me Guys. VBA code to Compare a column of two worksheets and updating the unmatched records

[Jabes7]

Hi all,

Help me a VBA CODE. I have two sheets and the sample design is

Sheet1 Sheet2
ID Name sal ID Sal
100 aaa 1000 100 1000
101 bbb 2000 101 2000
102 ccc 3000 102 3000
103 ddd 4000
104 eee 5000
105 fff 6000



Now i need to compare ID COLUMN(unique column) of two Sheets and find the unmatched records.

And then Update the unmatched records into Sheet2

Similarly it should look like

Sheet1 Sheet2
ID Name sal ID Sal
100 aaa 1000 100 1000
101 bbb 2000 101 2000
102 ccc 3000 102 3000
103 ddd 4000 103 4000
104 eee 5000 104 5000
105 fff 6000 105 6000


Thanks in ADVANCE

 

[John Davis]

Maybe:

Sub Jabes7()

Dim lr As Long
Dim x As Range

lr = Cells(Rows.Count, 1).End(xlUp).Row

Columns("D:D").Insert shift:=xlToRight

With Range("D2:D" & lr)

    .Formula = "=VLOOKUP(A2,Sheet2!$A$2:$B$4,1,FALSE)"
    .Value = .Value
    
End With

For Each x In Range("D2:D" & lr)

    If x.Text = "#N/A" Then
    
        x.Offset(, -3).Copy Sheets("Sheet2").Range("A" & Rows.Count).End(3)(2)
        x.Offset(, -1).Copy Sheets("Sheet2").Range("B" & Rows.Count).End(3)(2)
    End If
    
Next x

Columns("D:D").Delete shift:=xlToLeft

    

End Sub