A ve B sutunlarinda eslesmeyen verileri bulmak

[ahmetka85]

Merhaba arkadaslar,

Oncelikle boyle bir forumda kullanicilara yardimci oldugunuz icin tesekkurler. Mevcut formulleri ne kadar kullansam da problemimi cozecek hazir formulu bulamadim. Umarim bu sikintidan beri kurtarirsiniz.

Elimde 2 adet liste ve bu listelerin her birinde 2 sutun bulunmaktadir.

Ornegin A ve B listelerinde 6 haneden olusan rakam (154564) ve bu rakamlarin karsisinda tutar (1.15) bulunmaktadir.

Otomatik olarak her iki listeyi de kontrol ederek A ve B listelerinde uyusmayan verileri cikarmak istiyorum. Bu verileri cikartirken veriyi hangi listeden aldigini de bilmem gerekiyor.

Karsilastirmayi listedeki her iki sutunu dikkate alarak yapmalidir cunku ayni tutarlarda bircok veri bulunmakta bu yuzden listelerin altinda bulunan her iki sutundaki veriyle diger listedeki iki sutunla karsilastirmalidir.

Ornek dosyayi ekte gondermekteyim.

Tekrar tesekkurler.

 

[uzmanamele]

merhaba

daha iyisi yapılabilir, ek dosya işinizi görür mü?

 

[İhsan Tank]

merhaba
ben de kodla bir çözüm buldum
boş bir module kopyalarak dener misiniz

Option Explicit
Sub olmayanları_bul()
Dim ts, kaplan, trabzonspor, bordo_mavi, hamsi
bordo_mavi = MsgBox("Aynı Olmayanları Çıkartayım Mı_?", vbYesNo, "Onay")
If bordo_mavi = vbNo Then Exit Sub
Range("G2:H65536,L2:M65536").ClearContents
trabzonspor = 2
hamsi = 2
For ts = 2 To Cells(65536, "A").End(xlUp).Row
Cells(ts, "C") = Cells(ts, "A") & Cells(ts, "B")
Cells(ts, "F") = Cells(ts, "D") & Cells(ts, "E")
Next
For kaplan = 2 To Cells(65536, "C").End(xlUp).Row
If WorksheetFunction.CountIf(Range("F2:F4"), Range("C" & kaplan)) = 0 Then
Cells(trabzonspor, "G") = Range("A" & kaplan)
Cells(trabzonspor, "H") = Range("B" & kaplan)
trabzonspor = trabzonspor + 1
End If
If WorksheetFunction.CountIf(Range("C2:C" & kaplan), Range("F" & kaplan)) = 0 Then
Cells(hamsi, "L") = Range("D" & kaplan)
Cells(hamsi, "M") = Range("E" & kaplan)
hamsi = hamsi + 1
End If
Next
Range("C:C,F:F").ClearContents
MsgBox "Aynı Olmayanları Çıkarttım", vbInformation, "Bitiş"
End Sub

 

[ahmetka85]

merhaba

daha iyisi yapılabilir, ek dosya işinizi görür mü?

Oncelikle vermis oldugunuz duzenleme icin tesekkurler.

Galiba biraz bilgisizligimden dolayi vermis oldugunuz dosyanin altina eklemeler yaptigimda ve formulleri asagiya dogru cektimde ayni verileri sari bolumde yine gosteriyor. Nerede hata yapiyorum acaba?

 

[uzmanamele]

Oncelikle vermis oldugunuz duzenleme icin tesekkurler.

Galiba biraz bilgisizligimden dolayi vermis oldugunuz dosyanin altina eklemeler yaptigimda ve formulleri asagiya dogru cektimde ayni verileri sari bolumde yine gosteriyor. Nerede hata yapiyorum acaba?

merhaba
önerilen formül 2-4 satırları kapsıyor.
siz bu aralığı listeniz kadar genişletin.