2 Sütün İçerisinde Eşleşmeyenleri Ayır. ?

[tolga1612]

Merhabalar,
Yaşadığım Bir Problem Var Forumdaki Çoğu Bu Konu Hakkındaki Konulara Baktım Ancak Başarılı Olamadım.

Örneğin A Sütünunda 6000 Kayıt Var,
B Sütünunda İse 500 Kayıt.
Yapmak İstediğim Şey İse A Sütünunda Olup B Sütünunda Olmayanları Ayrı Bir Sütüna Aktarmak Acaba Mümkündür Bu Şekilde Bir Şey Yapılabilirmi Siz Değerli Forum Üyelerinden Fikirlerinizi Rica Ediyorum.

 

[1Al2Ver]

Merhaba,

A2:A arası, B2:B arası kayıtlarınız var ise,

Sütun A da olup da Sütun B de olmayanları ; Sütun D ye,
Sütun B de olup da Sütun A da olmayanları ; Sütun E ye aktarır

Ortak olanlar, C'de sıralanır, Bu sütunu ve/veya E sütununu gizleyebilir siniz.

NOT ; Kod, 2009 yılında Sayın tahsinarat tarafından yazılmıştır. Kod'u sayfanın kod sayfasına yazınız.

Sub AveBSutunlariniKarsilastir()
Application.ScreenUpdating = False
Range("C2:E65536").ClearContents
sonA = [A65536].End(3).Row
sonB = [B65536].End(3).Row
Range("AA2:AA" & sonA).Formula = "=countif(B$2:B$" & sonB & ",A2)"
Range("AB2:AB" & sonB).Formula = "=countif(A$2:A$" & sonA & ",B2)"
sat = 2
sat2 = 2
For x = 2 To sonA
If Cells(x, "AA") = 1 Then Cells(sat, "C") = Cells(x, "A"): sat = sat + 1 'ortak olanlar
If Cells(x, "AA") = 0 And Cells(x, "A") <> "" Then Cells(sat2, "D") = Cells(x, "A"): sat2 = sat2 + 1 'Sadece A'da Olanlar
Next x

sat = 2
For x = 2 To sonB
If Cells(x, "AB") = 0 And Cells(x, "B") <> "" Then Cells(sat, "E") = Cells(x, "B"): sat = sat + 1 ''Sadece B'de Olanlar
Next x
Range("AA2:AB65536").ClearContents
Application.ScreenUpdating = True
End Sub

 

[tolga1612]

Teşekkür Ederim Zaman Ayırıp, Bu Değerli Bilgiyi Benimle Paylaştığınız İçin.
Sorun Çözülmüştür.

 

[çıtır]

Veriler A1 ve B1 den başladığı varsayıldı.
C1 Kopyala C6000 kadar çek

=EĞERHATA(DOLAYLI("A"&EĞER(EHATALIYSA(KAÇINCI(A1;$B$1:$B$6000;0));SATIR(A1);""));"")