Farklı Olanları Bulmak

[meleklerim]

Arkadaşlar merhaba,

A ve B sütunlarında 30 bine yakın veri bulunmakta.
Bunlardan bazıları birbirinin aynısı.
Benim istediğim bu verileri birleştirirken aynılarını tek veriye dönüştürüp tek sütunda birleştirmek
Yalnız
A sütununda olup da B sütununda olmayan verilerin A
B sütununda olup da A sütununda olmayan verilerin B
Her iki sütunda da olanların AB
olarak yanlarındaki sütuna not düşülmesini istiyorum.

Örnek
A Sütunu
ELMA
ARMUT
MUZ
PORTAKAL

B Sütunu
KARPUZ
ELMA
KAVUN
PORTAKAL

VERİLERİ VAR

İSTEĞİM
A SÜTUNU B SÜTUNU
ELMA AB
ARMUT A
MUZ A
PORTAKAL AB
KARPUZ B
KAVUN B

şekline dönüşmesi..

örnek dosya ekte, yardımcı olacaklara şimdiden teşekkürler

http://dosya.co/yul28qraljx1/farklı_olanı_bul.xlsx.html

 

[savas_145]

merhabalar. eğer formülü ile çözebileceğiniz bir konu bu. yardım eden olmazsa akşam eve geçtiimde düzenlenmiş halini gönderirim.

 

[veyselemre]

Sub indexCikar()
    a = Range("a2", Cells(Rows.Count, 1).End(3)).Value2
    b = Range("b2", Cells(Rows.Count, 2).End(3)).Value2
    With CreateObject("Scripting.Dictionary")
        For Each elem In a
            .Item(elem) = "A"
        Next elem
        For Each elem In b
            If .exists(elem) Then
                .Item(elem) = "AB"
            Else
                .Item(elem) = " B"
            End If
        Next elem
        ver = Application.Transpose(Array(.keys, .items))
    End With
    [c2].Resize(UBound(ver), 2).Value2 = ver
End Sub

 

[meleklerim]

çok teşekkürler Veysel kardeşim, eline sağlık

Hafta sonu bir gece yarısı sorunu yazıp, Pazar sabahı kalktığında çözümü bulmak, bulmaya çalışan arkadaşlarla aynı sitede olmak harika bir duygu. Bu sitedeki aile ortamı ve yardımlaşma duygusu hiçbir yerde yok.

 

[savas_145]

http://s6.dosya.tc/server6/6p5u5p/farkli_olani_bul.xlsx.html

istediğin şeyi yanlış anlamadıysam sadece formül ile hazırladım.

 

[meleklerim]

teşekkürler Savaş Kardeşim, Veysel arkadaşımın yaptığı makro tam olarak işimi görüyor. Senin de yazdığın formül çok kullanışlı. Aklımın bir köşesine yazdım.
Selamlar

 

[baydeniro]

Teşekkürler Veyselemre

 

[cripto06]

Selamlar Yeni konu açmak yerine burada paylaşmayı uygun gördüm yardım edecek arkadaşlara şimdiden teşekkürler Excel de kolonlarda plaka verisi var b kolonunda b3 den 06 T 0001 gibi b1489 ye kadar hep 06 T xxxx gibi plaklar mevcut Yine G kolonunda G3 den G1199 a kadar yine 06 T xxxx şeklinde plakalar mevcut isteğim farklı bir kolona B kolonunda olup G kolunda olmayanları yine farklı bir kolona G de olup B de olmayanları listelemek şimdiden yardımlarınız için teşekkür ederim sağlıcakla kalın

 

[veyselemre]

Selamlar Yeni konu açmak yerine burada paylaşmayı uygun gördüm yardım edecek arkadaşlara şimdiden teşekkürler Excel de kolonlarda plaka verisi var b kolonunda b3 den 06 T 0001 gibi b1489 ye kadar hep 06 T xxxx gibi plaklar mevcut Yine G kolonunda G3 den G1199 a kadar yine 06 T xxxx şeklinde plakalar mevcut isteğim farklı bir kolona B kolonunda olup G kolunda olmayanları yine farklı bir kolona G de olup B de olmayanları listelemek şimdiden yardımlarınız için teşekkür ederim sağlıcakla kalın

Sub listeKarsilastir()
    a = Range("B3", Cells(Rows.Count, "B").End(3)).Value2
    b = Range("G3", Cells(Rows.Count, "G").End(3)).Value2
    sat = 2
    With CreateObject("Scripting.Dictionary")
        For Each elem In a
            .Item(elem) = Null
        Next elem
        For Each elem In b
            If .exists(elem) Then
                .Remove (elem)
            Else
                sat = sat + 1
                Cells(sat, "C") = elem
            End If
        Next elem
        ver = Application.Transpose(.keys)
        [H3].Resize(UBound(ver)).Value2 = ver
    End With
    
End Sub

 

[savas_145]

http://s3.dosya.tc/server8/5sypwf/B_DE_OLUP_G_DE_OLMAYAN.xls.html

buda makrolu örneği
b ve g sütunlarına 1999 a kadar veri girilebilir