Sub karsilastir()
Dim i, k, sat As Long
Sheets("Sayfa2").Select
Application.ScreenUpdating = False
Range("G2:I65536").ClearContents
sat = 2
For i = 2 To Cells(65536, "A").End(xlUp).Row
Cells(sat, "G").Value = Cells(i, "A").Value
Cells(sat, "H").Value = Cells(i, "B").Value
sat = sat + 1
Next i
For k = 2 To Cells(65536, "D").End(xlUp).Row
Set j = Range("G2:G65536").Find(Cells(k, "D").Value, , xlValues, xlWhole)
If j Is Nothing Then
Cells(sat, "H").Value = Cells(k, "D").Value
Cells(sat, "I").Value = Cells(k, "E").Value
Else
Cells(j.Row, "I").Value = Cells(k, "E").Value
End If
Next k
Application.ScreenUpdating = True
Set j = Nothing
MsgBox "İşlem Tamam", vbOKOnly + vbInformation
End Sub