Karşılaştırmada bulunmayanı kaydetme

[suphi75]

Hayırlı Cuma'lar

Mevcut olan iki tablodan arama yaptırıp olmayanları başka bir sayfaya kaydettiriyorum.Bunu yaparken süz kullanıyorum.Daha doğrusu işlemin bir bölümünü makro kaydet ile yapıyorum. Makro kaydet kullanmadan If leri kullanarak bunu yapabilirmiyim.

Yardımcı olursanız sevinirim.

Teşekkürler.

 

[Recep İpek]

Aşağıdaki linki inceleyebilirsiniz.

Burada ayrı bir kolonda verilerinizi birleştirerek karşılaştırma yapabilirsiniz.

http://www.excel.web.tr/showthread.php?t=40905

 

[mesuttasar]

Girişleri hangi sayfaya yapacaksınız yada şöyle sorayım sadece N ve L sayfalarındaki verilerimi karşılaştıracaksınız?

 

[suphi75]

İlginizden dolayı teşekkür ederim.

Bulunan verileri farklı bir sayfaya yazdırmam gerekiyor. Ayrıca Sayın Ripek'in vermiş olduğu link'i inceleyerek kendi dosyama uyarladım. Fakat İkinci liste aynı şartları saglayan birden fazla veri olduğunda onları görmüyor.

 

[suphi75]

Sayın Ripek linkteki örneğin aynısı uyarladım fakat benim uyğulamada iki listedeki satır sayısı aynı olmadığı için en düşük sayıdaki satır sayısına göre işlem yapıyor. Bu nedenle eksik kalıyor. Bu sorunu nasıl çözebilirim.

 

[Recep İpek]

Satır sayısı farketmemesi gerekiyor.

Önemli olan kolon birleştirmeleri sonucunun aynı şekilde olması lazım.

 

[suphi75]

Sayın Ripek alan tanımlamalarının sırasını değiştirdim ve oldu sanırım. Emeklerinizden dolayı teşekkür ederim.

 

[suphi75]

Sayın Ripek uzatıyorum ama X işareti yerine sayfa 1 deki karşılaştırma yaptığı hücrenin bulunduğu satırdaki başka bir hücreyi yazdırmamız mümkün olurmu?

 

[Recep İpek]

Örnek bir dosya eklerseniz, onun üzerinden gidebiliriz.

 

[suphi75]

Sayın Ripek Uğraştım ama yapamadım.Bazı sorunlar çıktı.Dosya yı ekte gönderiyorum. İlgilenirseniz müteşekkir olurum.

 

[Recep İpek]

Aşağıdaki kodları deneyiniz.

Bazı verilerin 2.ni işaretlememe sebebi bu verilerin formatının farklı olmasından kaynaklanmaktadır.Sanırım bu veriler text formatında.
Dolayısıyla sayı olarak algılanmayıp dikkate alınmamaktadır.

Sub AraBul()
On Error Resume Next
Application.ScreenUpdating = False
Dim a, b As Variant
Set s1 = Sheets("N")
Set s2 = Sheets("L")
Dim alan1, alan2 As Range
Range("a1").Select
s1.Range("c2:c1501").ClearContents
s2.Range("e2:e1501").ClearContents
Set alan1 = s1.Range("b2:" & [b65536].End(xlUp).Address)
Set alan2 = s2.Range("d2:" & [d65536].End(xlUp).Address)
'****************************************
For Each a In alan1
    For Each b In alan2
        If a.Value = b.Value Then
           a.Offset(0, 1).Value = "X"
           b.Offset(0, 1).Value = "X"
           b.Offset(0, 2).Value = a.Offset(0, 4).Value
        End If
    Next
Next
'****************************************
Application.ScreenUpdating = True
MsgBox "Bitti", vbInformation + vbDefaultButton1 + vbOKOnly, "Bilgi"
Range("A1").Select
End Sub

 

[suphi75]

ESayın ripek elinize sağlık . Teşekkür ediyorum.