Araç Servis Takip Programı (AST-v.2) foruma eklenmiştir. 
http://www.excelce.net/forum/index.php?topic=1656.0

Gönderen Konu: [Çözüldü] Aynı isimden olanları tek saymak  (Okunma sayısı 22410 defa)

0 Üye ve 2 Ziyaretçi konuyu incelemekte.

Çevrimdışı yesilyurtlu

  • Excelce Çavuş
  • ***
  • İleti: 168
  • Puan +1/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: İlhan YÜKSEL
  • İşletim Sisteminiz: Windows 7 32 Bit
  • Mesleğiniz: Muhasebe Şefi
  • Office Versiyonunuz: Office 2013 TR
[Çözüldü] Aynı isimden olanları tek saymak
« : 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
« Son Düzenleme: 24 Nisan 2010, 08:32:21 Gönderen: Bülent Öztürk »

Çevrimdışı Orion1

  • Excelce Teğmen
  • ****
  • İleti: 351
  • Puan +10/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Evren Gizlen
Ynt: Aynı isimden olanları tek saymak
« Yanıtla #1 : 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

Çevrimdışı yesilyurtlu

  • Excelce Çavuş
  • ***
  • İleti: 168
  • Puan +1/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: İlhan YÜKSEL
  • İşletim Sisteminiz: Windows 7 32 Bit
  • Mesleğiniz: Muhasebe Şefi
  • Office Versiyonunuz: Office 2013 TR
Ynt: Aynı isimden olanları tek saymak
« Yanıtla #2 : 23 Nisan 2010, 19:28:26 »
Evren Abi ;
#AD? hatası verdi yanlış yaptım herhalde

Çevrimdışı yesilyurtlu

  • Excelce Çavuş
  • ***
  • İleti: 168
  • Puan +1/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: İlhan YÜKSEL
  • İşletim Sisteminiz: Windows 7 32 Bit
  • Mesleğiniz: Muhasebe Şefi
  • Office Versiyonunuz: Office 2013 TR
Ynt: Aynı isimden olanları tek saymak
« Yanıtla #3 : 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Ü"

Çevrimdışı Orion1

  • Excelce Teğmen
  • ****
  • İleti: 351
  • Puan +10/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Evren Gizlen
Ynt: Aynı isimden olanları tek saymak
« Yanıtla #4 : 23 Nisan 2010, 19:34:03 »
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)

Çevrimdışı yesilyurtlu

  • Excelce Çavuş
  • ***
  • İleti: 168
  • Puan +1/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: İlhan YÜKSEL
  • İşletim Sisteminiz: Windows 7 32 Bit
  • Mesleğiniz: Muhasebe Şefi
  • Office Versiyonunuz: Office 2013 TR
Ynt: Çözüldü Aynı isimden olanları tek saymak
« Yanıtla #5 : 23 Nisan 2010, 19:41:09 »
Ü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.

Çevrimdışı Orion1

  • Excelce Teğmen
  • ****
  • İleti: 351
  • Puan +10/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Evren Gizlen
Ynt: Çözüldü Aynı isimden olanları tek saymak
« Yanıtla #6 : 23 Nisan 2010, 19:42:26 »
Üstadım;
Evren Abi yazacağım yerde sadece "EVREN" yazmışım Adaba uymamış özür dilerim abi. Vallaha bilerek yapmadım.
Estafurullah. 8)

Çevrimdışı staluer

  • Excelce Onbaşı
  • **
  • İleti: 3
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Serkan TALUER
  • Doğum Yılınız: 1974
  • İl / İlçe: İstanbul
Ynt: [Çözüldü] Aynı isimden olanları tek saymak
« Yanıtla #7 : 22 Haziran 2016, 09:09:13 »
çok teşekkürler.
tam aradığım işlem.
bravo....

Çevrimdışı mutlubasaran

  • Excelce Onbaşı
  • **
  • İleti: 2
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Mutlu BAŞARAN
  • Doğum Yılınız: 1980
  • İl / İlçe: TEKİRDAĞ-SARAY
  • İşletim Sisteminiz: EXCEL 2010
  • Mesleğiniz: PAZARLAMA VERİ KAYIT
  • Office Versiyonunuz: EXCEL 2010
Ynt: [Çözüldü] Aynı isimden olanları tek saymak
« Yanıtla #8 : 17 Ekim 2016, 10:09:05 »
çok teşekkürler.
1 aydır uğraşıyordum...
benzersizsiniz....

Çevrimdışı mekist

  • Excelce Onbaşı
  • **
  • İleti: 4
  • Puan +0/-0
  • Excel'den Daha Fazlası!..
  • Ad Soyad: muhammet
  • İl / İlçe: ist-sult
Ynt: [Çözüldü] Aynı isimden olanları tek saymak
« Yanıtla #9 : 29 Ağustos 2021, 23:50:12 »
Merhaba,

Makroda benzersiz olanları sayabiliyoruz
Benzersiz olanları listeleyebiliyor muyuz