Aynı verileri bulmak

[denksal]

Merhaba kolay gelsin

Sayfa 1 deki A-B-C-D sutunlardaki verileri
Sayfa 2 deki aynı sutunlardaki veriler ile karşılaştıracak ve sonucu sayfa 1 deki E Sutununa VAR- YOK yazacak … (VERİLERİN SIRASI KARIŞIK – YANİ Sayfa 1 deki 1. Sıradaki olan veri , diğer sayfa 2 de ki 186 cı olabilir. )

Tek şart her iki sayfadaki A-B-C-D deki sutunların hepsi aynı ise var yazacak ..teşekkür ederim

 

[leguminosea]

Sayfa1 E1' yapıştırıp, aşağı doğru çoğaltın.

=EĞER(TOPLA.ÇARPIM((Sayfa2!A:A=A1)*(Sayfa2!B:B=B1)*(Sayfa2!C:C=C1)*(Sayfa2!D:D=D1))=1;"VAR";"YOK")

 

[yanginci34]

Örnek dosyayı incelermisiniz.

Bilgi

Bilgi

dosyam.org

 

[leguminosea]

bakıyorum

 

[veyselemre]

Sub test()
    Application.ScreenUpdating = False
    Dim son1&, son2&, i&, al1$
    Dim s1 As Worksheet, s2 As Worksheet
    Set s1 = Sheets("Sayfa1")
    Set s2 = Sheets("Sayfa2")
    son1 = s1.Cells(Rows.Count, 1).End(3).Row
    son2 = s2.Cells(Rows.Count, 1).End(3).Row

    s1.Range("E2:E" & son1).ClearContents
    Set dic1 = CreateObject("Scripting.Dictionary")

    For i = 2 To son2
        al1 = Join(Application.Index(s2.Cells(i, 1).Resize(, 4).Value, Array(1, 2, 3, 4)), "|")
        dic1.Item(al1) = i
    Next i
    For i = 2 To son1
        al1 = Join(Application.Index(s1.Cells(i, 1).Resize(, 4).Value, Array(1, 2, 3, 4)), "|")
        If dic1.exists(al1) Then
            s1.Cells(i, 5).Value = "Var"
        Else
            s1.Cells(i, 5).Value = "Yok"
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

 

[leguminosea]

Dosya ekte

Hata indir

Hata

www.dosyaupload.com

 

[denksal]

hepinize ayrı ayrı teşekkürler hemen kontrol ediyorum ellerinize sağlık