SORU ve CEVAPLAR (Yazılabilir) > Çözülen Excel, Vba, Makro, Formül vb. Soruları

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

(1/2) > >>

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: ---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

--- Kod sonu ---

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:

--- Alıntı yapılan: yesilyurtlu - 23 Nisan 2010, 19:33:25 ---Evren Modüle Yapıştırmamışım hata bende

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

"ÇÖZÜLDÜ"

--- Alıntı sonu ---
Rica ederim.
İyi çalışmalar.8)

Navigasyon

[0] Mesajlar

[#] Sonraki Sayfa