SORU ve CEVAPLAR (Yazılabilir) > Çözülen Excel, Vba, Makro, Formül vb. Soruları
[Çö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: ---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
Tam sürüme git