Aynı değerleri eşleştirme

[dbicer83]

elimde yaklaşık 1000 cariye ait veri mevcut 2 ayrı tablom var bu carilerin cari numaralarını karşılaştırarak olmayanların listesini çıkarmak istiyorum.
yani a sütününa 1.listemdeki carileri(980) yazacağım b sütünanu 2.listemdeki cari nolarını (730) aradaki 30 adet carinin numaralarını ayrıştırmak isityorum .
Desteğinizi bekliyorum arkadaşlar.
Teşekkürler.

 

[ToZ_KaLDiRaN]

Benim anladığım kadarıyla A'dan Z' ye sıralama yaparak farkı bulabilirsiniz. Eğer anlatmak istediğiniz bu değilse çalışmanıza bakmam gerekecek..

 

[zafer]

Merhaba

Düşeyara işlevini inceleyiniz.

Arama motoruna Düşeyara yazarsanız bir çok örnek bulabilirsizniz

Mükerrer Kayıt Uygulamaları

 

[dbicer83]

dosya ektedir.

 

[Orion1]

A sütununda olupta B sütununda olmayanları C sütununa listeler.

Sub listele()
Dim i As Long, sat As Long
For i = 1 To Cells(65536, "A").End(xlUp).Row
    If WorksheetFunction.CountIf(Range("B1:B" & Cells(65536, "B").End(xlUp).Row), _
    Range("A" & i).Value) = 0 Then
        sat = sat + 1
        Cells(sat, "C").Value = Cells(i, "A").Value
    End If
Next i
End Sub

 

[dbicer83]

butana uygulamak mı gerekir. çalıştıramadım ama

 

[usta07]

Aşağıdaki kodu inceleyiniz bu siteden alıntıdır.

Private Sub Karşılaştır()
Set S1 = Sheets("Cari1")
Set S2 = Sheets("Cari2")
Set S3 = Sheets("Cari2_Fark")
Set S4 = Sheets("Cari1_Fark")
S3.[A2:j65536].ClearContents
S4.[A2:j65536].ClearContents

S = 1
S1.Select
For X1 = 4 To [A65536].End(3).Row
Cells(X1, 12) = Cells(X1, 1) & Cells(X1, 2) & Cells(X1, 3) & Cells(X1, 4) & Cells(X1, 5) & Cells(X1, 6)
Next
S2.Select
For X2 = 4 To [A65536].End(3).Row
Cells(X2, 12) = Cells(X2, 1) & Cells(X2, 2) & Cells(X2, 3) & Cells(X2, 4) & Cells(X2, 5) & Cells(X2, 6)
Next '/....Cari 2 de olmayanları ve değişiklikleri bul yaz
S = 1
S3.Select
For X3 = 4 To S1.[A65536].End(3).Row
Say = WorksheetFunction.CountIf(S2.[L4:L65536], S1.Cells(X3, 12))
If Say = 0 Then
S = S + 1
S3.Cells(S, 1) = S1.Cells(X3, 1)
S3.Cells(S, 2) = S1.Cells(X3, 2)
S3.Cells(S, 3) = S1.Cells(X3, 3)
S3.Cells(S, 4) = S1.Cells(X3, 4)
S3.Cells(S, 5) = S1.Cells(X3, 5)
S3.Cells(S, 6) = S1.Cells(X3, 6)
S3.Cells(S, 7) = S1.Cells(X3, 7)
End If
Next '/....Cari 1 de olmayanları ve değişiklikleri bul yaz
S = 1
S4.Select
For X4 = 4 To S2.[A65536].End(3).Row
Say = WorksheetFunction.CountIf(S1.[L4:L65536], S2.Cells(X4, 12))
If Say = 0 Then
S = S + 1
S4.Cells(S, 1) = S2.Cells(X4, 1)
S4.Cells(S, 2) = S2.Cells(X4, 2)
S4.Cells(S, 3) = S2.Cells(X4, 3)
S4.Cells(S, 4) = S2.Cells(X4, 4)
S4.Cells(S, 5) = S2.Cells(X4, 5)
S4.Cells(S, 6) = S2.Cells(X4, 6)
S4.Cells(S, 7) = S2.Cells(X4, 7)
End If
Next
S1.Select
S1.[L4:L65536] = ""
S2.[L4:L65536] = ""
MsgBox "Cariler arasındaki fark işlemi Tamam." & vbCrLf & "" & vbCrLf & "www.excel.web.tr", vbInformation

End Sub

 

[dbicer83]

teşekkürler arkadaşlar.emeğinize sağlık

 

[simpson]

arkadaşlar forumda ve internette epey araştırdım.sorunuma en yakın başlık burası ama benimki biraz daha karışık.iki ayrı sütundaki tarih ve değerleri aynı olanları silmek ve kendi tarih ve değerleriyle ayrı ayrı göstermek istiyorum.ekli dosyadaki tarih1 ve fatura 1 , tarih2 ve fatura2 aynı olanlar çıkacak,farklı olanlar kalacak.
yukarıdaki Evren Gizlen arkadaşın yazdığı kod ile aynı ve farklı olanları sıraladım ama yanına fatura değeride gelmesi lazım.
benim excel bilgime göre biraz karışık.inşalah açıklayabilmişimdir.
yardımcı olursanız sevininirm.