karşılaştırma yapma

[KAYA212]

Merhaba,
Ekte gönderdiğim listede 1.sayfada isim numara ve tarih sutunu var.
Ben bu üç sutunu sürekli başka listeden kopyala yapıştır yaparak güncelleyeceğim.benim istediğim bu listeye yapıştırdıklarım 2.sayfadaki isimlerle karşılaştırıp 2.sayfada olmayan isimlerin satır halinde listeden bir buton yardımıyla veya başka şekilde silinmesi.

konu hakkında yardımlarınızı rica ediyorum.
saygılarımla

 

[KAYA212]

Merhaba,
iki gündür uğraşıyorum yapamadım yardımalrınızı rica ediyorum lütfen.

 

[Ömer]

Merhaba,
iki gündür uğraşıyorum yapamadım yardımalrınızı rica ediyorum lütfen.

Merhaba,

Bu şekilde deneyin.

Sub Olmayani_Sil()
 
    Dim i As Long
 
    Application.ScreenUpdating = False
    
    Sheets("Sayfa1").Select
    
    With Sheets("Sayfa2")
        For i = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1
            If WorksheetFunction.CountIf(.[A:A], Cells(i, "A")) = 0 Then
                Rows(i).Delete
            End If
        Next i
    End With
               
    Application.ScreenUpdating = True
            
End Sub

.

 

[KAYA212]

Ömer bey ,
teşekür ederim güzel oldu.

kolay gelsin