Aynı olan isimleri listelemek

[cavanoos]

Merhaba arkadaşlar;

Ekli örnek dosyamda,A sütununda isimler var.Bunların içinde aynı olan isimlerde var.Aynı olanları listelemek istiyorum.

Şöyle bir şey mümkün mü ?

Bir butona basıcaz.Arkadaki çalışan kodda,A sütununda aynı isimleri tarayacak. Eğer bulursa bir mesaj kutusu içinde,aynı olan isimleri yazacak.Bulamazsa aynı isimden yok diyip,mesaj kutusu içinde yazacak.

Excelde başka türlü yollar ile bunu elde etmek mümkün.Ama bu şekilde yapılabilir mi?

 

[Necdet]

Merhaba,

Kodları ve dosyayı inceleyiniz.

Sub Bul()
 
    Dim d
    Dim i As Long
    Dim j As Integer
    Dim Adet As Integer
    Dim deg As Variant
    Dim a1
    Dim a2
    Dim Mesaj As String
    
    Set d = CreateObject("Scripting.Dictionary")
    Mesaj = "ÇİFT OLAN İSİMLER" & Chr(10) & "---------------------------" & Chr(10)
    
    For i = 8 To Cells(Rows.Count, "A").End(3).Row
        deg = Cells(i, "A")
        If Not d.exists(deg) Then
            d.Add deg, 1
        Else
            j = d.Item(deg)
            j = j + 1
            d.Item(deg) = j
        End If
    Next i
    
    a1 = d.keys
    a2 = d.items
    
    For i = 0 To d.Count - 1
        If a2(i) > 1 Then
            Mesaj = Mesaj & Chr(10) & a1(i)
            Adet = Adet + 1
        End If
    Next i
    
    If Adet > 0 Then
        MsgBox Mesaj, vbInformation, "Necdet YEŞERTENER --> [URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]"
    Else
        MsgBox "ÇİFT İSİM BULUNMAMIŞTIR...", vbInformation, "Necdet YEŞERTENER --> [URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]"
    End If
    
End Sub

 

[cavanoos]

Nejdet Bey;

Çok teşekkür ederim.Süper olmuş....

 

[girilmez]

güzel olmuş fakat bunu aynı olan isimler değilde numaralar şeklinde yapılabilirmi (nasıl)

 

[Necdet]

güzel olmuş fakat bunu aynı olan isimler değilde numaralar şeklinde yapılabilirmi (nasıl)

"İsim yerine rakam olursa" mı diyorsunuz?

 

[abbasonline]

YUKARIDAKİ MAKRO SADECE A SÜTUNUNDA AYNI OLANLARI BULUYOR, SÜTUNLAR FARKLI AYNI SATIRDAKİ 2 AYNI OLANLARI BULMASI İÇİN NASIL BİR DÜZENLEME YAPMAMIZ GEREKLİ(Örneğin: A9 da Murat yazıyor D9 da da 777 yazıyor bunun aynısı A20 ve D20 de yazıyor. bunun gibi verileri.)