İki sütunu tarayıp olmayanları (farklı olanları) ayırma

[mertgney]

Elimde 2 sütun veri var. A sütununda 2013 e ait üye tc numaraları var. B sütununda da 2011 e ait olanlar var. Şimdi benim yapmak istediğim 2 sütunu karşılaştırıp bana her iki sütunda da olmayan, yani eşleşmeyenleri verecek bir formül. C sütununda bu isimler olacak ki ben kimler yeni, kimler ölmüş bileyim. Şimdiye kadar hep eşleşenleri veren düşeyara formülleri ile birşeyler yapmaya çalıştım ama o bana eşleşenleri veriyor. Bana A da olup B de olmayan, aynı zaman da B de olup A da olmayanları C sütununa atacak bir formül istiyorum. Yardımcı olursanız sevinirim.

 

[systran]

Sayı sınırları tahmini nedir?
A ve B sütun toplamı = 1000 satır yada 30000 satır ??

 

[ZorBey_]

Merhaba İyi Çalışmalar
Ekli Dosyayı Denermisiniz.
http://s3.dosya.tc/server15/4PJuFc/M_kererBul.rar.html

 

[systran]

linkteki örneği inceler misin?
https://drive.google.com/folderview?id=0By_vlGkmFxCCMWE4c0Jnc0pGVE0&usp=sharing

 

[mertgney]

a ve b sütunları 30,000 e kadar olacak

 

[mertgney]

Arkadaşlar kusura bakmayın. Kafa gitti. Sizi de yanlış bilgilendirdim. A sütünunda olup B sütununda olmayanları C sütununda listeleyecek bir excel lazım. 30,000 kişilik. çok çok özür dileyerekten yardımlarınızı bekliyorum.

 

[sehzade42]

http://yadi.sk/d/CVvXxAdxFPwMa

Şunu bir denermisin. Forumdan evrengizlen'in daha önce yaptığı bir macroydu. Yalnız bu makro B sütunundakileri A sütunundakilerle karşılaştırıp olmayanları C sütununa yazıyor. Verilerinin yerini değiştirirsen belki kullanabilirsin.

 

[systran]

#4 nolu mesajdaki linki güncelledim bakar mısın?
"sehzade42" nin dosyasınıda istediğin gibi düzelttim. ikisini de attım oraya

 

[Emir Hüseyin Çoban]

Arkadaşlar kusura bakmayın. Kafa gitti. Sizi de yanlış bilgilendirdim. A sütünunda olup B sütununda olmayanları C sütununda listeleyecek bir excel lazım. 30,000 kişilik. çok çok özür dileyerekten yardımlarınızı bekliyorum.

. . .

Dosyanız ektedir.

İşlem Sonucu:

...::: Ekli Dosyayı İndirmek İçin Linki Tıklayınız :::...
http://yadi.sk/d/7-rGXrutFQGQB

Sub Kod()
Application.ScreenUpdating = False
sat = 1
Range("C:C").ClearContents
For i = 1 To [A65536].End(3).Row

If WorksheetFunction.CountIf(Range("B:B"), Cells(i, "A")) = 0 Then
Cells(sat, "C") = Cells(i, "A")
sat = sat + 1
End If

Next i

Application.ScreenUpdating = True
MsgBox " B i t t i "
End Sub

. . .

 

[Sarigol_937]

mertgney arkdaş isimden kıyaslamak yapmak pek sağlıklı değildir Tc kimlikden kıyaslama yapma şansın olsa daha iyi olurdu. çünkü tıpa tıp aynı isimin birinde bir karakter bilee boşluk olsa bulamadığı çıkabiliyor kırp gibi bişiy duymuştum onla bir nebze çözersin

 

[Sarigol_937]

. . .

Dosyanız ektedir.

İşlem Sonucu:

Sub Kod()
Application.ScreenUpdating = False
sat = 1
Range("C:C").ClearContents
For i = 1 To [A65536].End(3).Row

If WorksheetFunction.CountIf(Range("B:B"), Cells(i, "A")) = 0 Then
Cells(sat, "C") = Cells(i, "A")
sat = sat + 1
End If

Next i

Application.ScreenUpdating = True
MsgBox " B i t t i "
End Sub

. . .

Hüseyin bey bu kodu Sayfa1'in A sününda olup ve Sayfa2 nin b sütününda olmayanları Sayfa3 de C hücresine yazdırma olabilirmi olursa benim işimede yarar kardeş

 

[Emir Hüseyin Çoban]

Hüseyin bey bu kodu Sayfa1'in A sününda olup ve Sayfa2 nin b sütününda olmayanları Sayfa3 de C hücresine yazdırma olabilirmi olursa benim işimede yarar kardeş

. . .

Syn Sarigol_937, bu şekilde deneyiniz.

Sub Kod()
Application.ScreenUpdating = False
sat = 1
Sheets("Sayfa3").Range("C:C").ClearContents
For i = 1 To Sheets("Sayfa1").[A65536].End(3).Row

If WorksheetFunction.CountIf(Sheets("Sayfa2").Range("B:B"), Sheets("Sayfa1").Cells(i, "A")) = 0 Then
Sheets("Sayfa3").Cells(sat, "C") = Sheets("Sayfa1").Cells(i, "A")
sat = sat + 1
End If

Next i

Application.ScreenUpdating = True
MsgBox " B i t t i "
End Sub

. . .

 

[Sarigol_937]

Çok teşekkürler kardeş, bu aralar forumda biraz yoğun sorum oldu !çünkü çalıştığım yerdeki yaptığım iş çok uzun zaman alıyordu yetiştiremiyordum. çalıştığım excel formu geliştirip birazdaha zamandan tasarruf için çabalıyorum.burdaki değerli uzman arkdaşlara çok tşekkür ederim her soruma itina ile cevap verdileri için tşkler.

 

[mertgney]

. . .

Dosyanız ektedir.

İşlem Sonucu:

Sub Kod()
Application.ScreenUpdating = False
sat = 1
Range("C:C").ClearContents
For i = 1 To [A65536].End(3).Row

If WorksheetFunction.CountIf(Range("B:B"), Cells(i, "A")) = 0 Then
Cells(sat, "C") = Cells(i, "A")
sat = sat + 1
End If

Next i

Application.ScreenUpdating = True
MsgBox " B i t t i "
End Sub

. . .

Başta Hüseyin Çoban bey ve konuya yardımcı olan diğer tüm arkadaşlara yardımlarınız için çok çok teşekkür ederim. Verilen her örneği denedim. Hepsi de çok işime yaradı. Emeğinize sağlık arkadaşlar.

 

[mertgney]

Tekrar merhaba arkadaşlar. Kusura bakmayın yine sizleri rahatsız ediyorum ama TC numaraları ile çakıştırdığım zaman iki listeyi 743 kişi çıkıyor, fakat isim soyisim ve doğum tarihi yahut baba adıyla tek bir sütunla çakıştırınca iki listeyi bu sefer 762 kişi çıkıyor. Neden olduğunu henüz çözemedim. Özellikle Hüseyin Çoban dostumuzun verdiği macro ile yapıyorum. Bu sonuç neden farklı çıkıyor anlamadım. Bu konuda yardımcı olabilir misiniz?