Karşılaştırarak Silmek

[furens]

Üstatlar benim sormak istediğim bir buton yardımı ile Gelen sayfasındaki ve Giden sayfasındaki listede bulunan ID ' lere göre karşılaştırma yapıp aynı ID numaralarından varsa sadece gelen sayfasındaki buldukları değerlerin olduğu satırların silinmesi.
şimdiden tşk

 

[Murat OSMA]

Gelen sayfasındaki ID No'lar, Giden sayfasında Parça Adı sütünunda, neden böyle ? :dusun:
İşlem yapılacak sütun doğru da başlık mı yanlış, yoksa başlık doğru da ID No'ların yazıldığı sütun mu yanlış ? :dusun:

 

[furens]

aceleden başlık isimlerini ve sırayı yanlış yazmışım.sonradan değişenle ilgilenenlere tşk.

 

[furens]

yok mu sorunuma çare olacak

 

[furens]

Evren usta nerdesin bu işe senden başkası bakmıyacak herhalde?

 

[furens]

Arkadaşlar bu sorunuma yardım edermisiniz?

 

[Murat OSMA]

Şu kodları bir deneyiniz;

Sub Emre()
    Dim evn As Range
    Dim i As Integer
    Application.ScreenUpdating = False
    For i = Sayfa1.Range("A65536").End(3).Row To 2 Step -1
    Set evn = Sayfa2.Columns(2).Find(Sayfa1.Cells(i, 2), , xlValues, xlWhole)
        If Not evn Is Nothing Then
            Sayfa1.Rows(i).Delete
        End If
    Next i
    Application.ScreenUpdating = True
    i = Empty
    Set evn = Nothing
End Sub

Not: Gelen sayfasının A sütununa veri giriniz...

 

[furens]

Kardeş çok teşekkürler aklına sağlık.Allah razı olsun

 

[Murat OSMA]

Âmîn, cümlemizden...

İyi günler...

 

[furens]

Hocam Burada eşleşenleri siliyor ya, eşleşmeyenleri silmek için ne yapabiliriz.