Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Çözülen Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: yesilyurtlu - 23 Nisan 2010, 19:01:38

Başlık: [Çözüldü] Aynı isimden olanları tek saymak
Gönderen: yesilyurtlu - 23 Nisan 2010, 19:01:38

Ü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

Başlık: Ynt: Aynı isimden olanları tek saymak
Gönderen: Orion1 - 23 Nisan 2010, 19:22:45

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


Başlık: Ynt: Aynı isimden olanları tek saymak
Gönderen: yesilyurtlu - 23 Nisan 2010, 19:28:26

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

Başlık: Ynt: Aynı isimden olanları tek saymak
Gönderen: 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Ü"

Başlık: Ynt: Aynı isimden olanları tek saymak
Gönderen: Orion1 - 23 Nisan 2010, 19:34:03

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Ü"

Rica ederim.
İyi çalışmalar.8)

Başlık: Ynt: Çözüldü Aynı isimden olanları tek saymak
Gönderen: yesilyurtlu - 23 Nisan 2010, 19:41:09

Üstadım;

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Ü"

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

Başlık: Ynt: Çözüldü Aynı isimden olanları tek saymak
Gönderen: Orion1 - 23 Nisan 2010, 19:42:26

Alıntı yapılan: yesilyurtlu - 23 Nisan 2010, 19:41:09

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

Estafurullah. 8)

Başlık: Ynt: [Çözüldü] Aynı isimden olanları tek saymak
Gönderen: staluer - 22 Haziran 2016, 09:09:13

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

Başlık: Ynt: [Çözüldü] Aynı isimden olanları tek saymak
Gönderen: mutlubasaran - 17 Ekim 2016, 10:09:05

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

Başlık: Ynt: [Çözüldü] Aynı isimden olanları tek saymak
Gönderen: mekist - 29 Ağustos 2021, 23:50:12

Merhaba,

Makroda benzersiz olanları sayabiliyoruz
Benzersiz olanları listeleyebiliyor muyuz