İki excell dosyası içeriğini karşılaştırma

Pencere menüsünden Yan yana karşılaştır seçeneği işiniz görür mü?

cok tesekkur ederim ilgilendiginiz icin...

Yok ben altda yani gorunmeyen tarafda bu isi yapmasini istiyorum...Mesela programi actigimda ve ya buttona her hangi bir button koysam (tekrarlanan bi kod varmi yokla dedigimde, gounmeyen tarafda islemi yapsin ve bana sadece sonucu gondersin var ve ya yok gibi) Sadece tekrarla karsilasirsa mesajla bildirsin...

Gerçekten de 2 excel dosyası sütünları otomatik nasıl karşılaştırılır? Şöyle ki; diyelim A sütününda her satırda barkod gibi karışık ve uzunca bir ibare olsun örneğin:SA1234567890B gibi ve her satırın böyle olduğu varsayılsın. Diğer dosyada da böyle olsun. karşılaştırma yapalım ve varmı yokmu öğrenelim.

Gerçekten de bu işlem nasıl yapılabilir, bilen varsa yol gösterebilir mi?

Olayı tam olarak anlamaya çalışmak için tekrar soruyorum. Sizin elinizde 1 adet exell 2003 dosyası ve bunun içerisindede 2 adet çalışma sayfası var diyelim. Sis bu çalışma sayfalarında tekrar edilen kodlarımı bulmak istiyorsunuz?

Sinan Bey Merhaba,

İki çalışma sayfası veya iki excell dosyası var dosya adları da ALİ ve CAN. Bu dosyalarda da 2000 satırlık bir sütünları var karşılaştırılmak istenen ve bu sütünları karşılaştırırken Alide olan Canda da var mı diye eşleştirme sonucunu göstermeli, varsa hangi satırda olduğunu yazmalı.

Sanırım böyle daha iyi oldu.

Aşağıdaki kodu dener misiniz?

Sub Karsilastir1()
    Dim Sh1 As Worksheet, Sh2 As Worksheet
    Dim Bul As Range, Soyad, i
    Dim ilkAdres
  
    Set Sh1 = Worksheets("Sayfa1")
    Set Sh2 = Worksheets("Sayfa2")
  
    For i = 2 To Sh2.Cells(65536, "C").End(xlUp).Row
        Soyad = Sh2.Cells(i, 3)
      
        Set Bul = Sh1.Range("C:C").Find(Soyad, LookAt:=xlWhole)
      
        If Not Bul Is Nothing Then
            ilkAdres = Bul.Address
            Do
                If Sh2.Cells(i, 2) = Bul.Offset(, -1) Then
                    Bul.Offset(, 1) = "Bulundu"
                End If
                Set Bul = Sh1.Range("C:C").FindNext(Bul)
            Loop Until ilkAdres = Bul.Address
        End If
    Next
End Sub

Bu kodu derlemek ve uyarlamak 1epey zor olur gibime geliyor.

İlgin için teşekkür ederim.

http://www.yakupgovler.com/microsoft-excelde-duseyara-fonksiyonu.html

düşey ara formülünü deneyin bence