Vba Vlookup ile 2 sayfayı karşılaştırma ?

[f1077504@rmqkr.net]

İyi günler excel dosyamdaki 2 sayfadaki verileri karşılaştırıp diğer 3. sayfaya olmayanları yazdırmak istiyorum bunun için koordinat koordinat kontrol ediyorum ve gayet düzgün çalışıyor ancak kayıt sayısı büyük olduğunda donmalar yaşıyorum bu yüzden bu yöntemden vaz geçip Vlookup ile yapmaya karar verdim ama nasıl yapılıyor bilmiyorum.

Kod: [Seç]

Dim varmı As Boolean
varmı = False

For i = 1 To Worksheets("Sayfa1").Range("A" & Rows.Count).End(xlUp).Row
    For j = 1 To Worksheets("Sayfa1").Cells(1, Columns.Count).End(xlToLeft).Column
    varmı = False
   
        For k = 1 To Worksheets("Sayfa2").Range("A" & Rows.Count).End(xlUp).Row

            If Worksheets("Sayfa1").Cells(i, j).Value = Worksheets("Sayfa2").Cells(k, j).Value Then
                varmı = True
                Exit For
            End If
           
        Next k
       
        If varmı = False Then
           
            For k = 1 To Worksheets("Sayfa1").Cells(1, Columns.Count).End(xlToLeft).Column
                Worksheets("Sonuç").Cells(x, k).Value = Worksheets("Sayfa1").Cells(i, k).Value
            Next k
           
            x = x + 1
            Exit For
           
        End If
       
    Next j
Next i