[Çözüldü] Aynı isimden olanları tek saymak

[yesilyurtlu]

Üstadım;
C6 : C100 sütununda
A İlköğretim okulu
A İlköğretim okulu
A İlköğretim okulu
A İlköğretim okulu
B İlköğretim okulu
B İlköğretim okulu
B İlköğretim okulu
C İlköğretim okulu
C İlköğretim okulu
C İlköğretim okulu


Gibi okul adları yazılı C101 hücresine "10 okul yazılmasına rağmen (3 okul yazılı)" 3 yazmasını sağlayabilir miyiz?

Eğer Veri Doğrulama ile gerçekleşebilirse daha mükemmel olur benim için

[Orion1]

Bir ktf yaptım.
Aşağıdaki kodu standart modüle yapıştırınız.
formülün kullanılışı;
=benzersiz(C6:C100)

Kod: [Seç]

Function benzersiz(alan As Range) As Long
Dim say As Long, hcr As Range, z As Object
Set z = CreateObject("Scripting.Dictionary")
For Each hcr In alan
    If Not z.exists(hcr.Value) Then
        If hcr.Value <> "" Then
            say = say + 1
            z.Add hcr.Value, Nothing
        End If
    End If
Next
benzersiz = say
End Function


[yesilyurtlu]

Evren Abi ;
#AD? hatası verdi yanlış yaptım herhalde

[yesilyurtlu]

Evren Modüle Yapıştırmamışım hata bende

Üstadım Allah ne muradın varsa versin Teşekkür Ederim

"ÇÖZÜLDÜ"

[Orion1]

Evren Modüle Yapıştırmamışım hata bende

Üstadım Allah ne muradın varsa versin Teşekkür Ederim

"ÇÖZÜLDÜ"

Rica ederim.
İyi çalışmalar.

[yesilyurtlu]

Üstadım;

Evren Modüle Yapıştırmamışım hata bende

Üstadım Allah ne muradın varsa versin Teşekkür Ederim

"ÇÖZÜLDÜ"

Evren Abi yazacağım yerde sadece "EVREN" yazmışım Adaba uymamış özür dilerim abi. Vallaha bilerek yapmadım.

[Orion1]

Üstadım;
Evren Abi yazacağım yerde sadece "EVREN" yazmışım Adaba uymamış özür dilerim abi. Vallaha bilerek yapmadım.

Estafurullah.

[staluer]

çok teşekkürler.
tam aradığım işlem.
bravo....

[mutlubasaran]

çok teşekkürler.
1 aydır uğraşıyordum...
benzersizsiniz....

[mekist]

Merhaba,

Makroda benzersiz olanları sayabiliyoruz
Benzersiz olanları listeleyebiliyor muyuz