Iki sayfayi karsilastirp ayni olmayanlari silmek

[lapot]

Merhaba arkadaslar

elimdeki ornek dosyada sayfa1 ve sayfa2'yi karsilastirip ayni olmayanlari sayfa1'den silmek istiyorum.Bir turlu basaramadim. Yardim edebilirmisiniz?

saygilar

 

[Haluk]

Sayın Topal, aşağıdaki kodu deneyebilirsiniz...

Sub Test()
    Dim Sh1 As Worksheet, Sh2 As Worksheet
    Set Sh1 = Sheets("Sheet1")
    Set Sh2 = Sheets("Sheet2")
    
    noB_Sh1 = Sh1.Range("B" & Rows.Count).End(xlUp).Row
    noB_Sh2 = Sh2.Range("B" & Rows.Count).End(xlUp).Row
    
    For i = 2 To noB_Sh1
        If IsError(Application.Match(Sh1.Range("B" & i), Sh2.Range("B2:B" & noB_Sh2), 0)) Then
            Sh1.Range("B" & i) = ""
        End If
    Next
End Sub

.

 

[lapot]

Cok tesekkurler ama calismadi

 

[Haluk]

Ornek dosyanizda 1. Sayfadaki verilerin tumu 2. Sayfadaki listede zaten mevcut oldugu icin kod calistigi halde bir degisiklik olmuyormus gibi geliyor size.

1. Sayfaya , 2 . Sayfadaki listede olmayan bir veri girin, kodu ondan sonra calistirin.

.

 

[lapot]

Haklisiniz kusura bakmayin goz yanilgisi oldu , harikasiniz

cok tesekkur ediyor saygilarimi sunuyorum.

 

[Haluk]

Kolay gelsin, saygı bizden ...

.