Benzersiz olarak saydırma

[xxozixx]

Merhabalar,
Yardım eden herkese şimdiden tşk ederim.
Ben Excelde bir sorunum var A sütundaki İlçeye göre B sütununda bulunan değerleri benzersiz olarak saydırıp Her İlçenin karşısında bulunan E sütunundaki yerine benzersiz sayılarını yazdırmak istiyorum. Araştırdım, çözemedim. Yardımlarınızı bekliyorum.
Manuel yinelenleri kaldır yaptığımda toplamda 1068 adet kalıyor.
Saygılar, sevgiler, kolay gelsin.

 

[YUSUF44]

C sütununu yardımcı sütun olarak kullanarak aşağıdaki şekilde çözebilirsiniz:

C2 hücresine aşağıdaki formülü yazın ve aşağıya doğru kopyalayın:

=EĞER(EĞERSAY($B$1:B2;B2)=1;1;"")

E2 hücresine aşağıdaki formülü yazıp diğer ilçelere kopyalayın:

=ETOPLA($A$2:$A$2500;D2;$C$2:$C$2500)

 

[sakman26]

selam,
alternatif olarak,
yardımcı sütun kullanılmadan DİZİ Formülleri ya da KTF ile çözüm..
Örneği inceleyiniz..

Dizi Formülleri ile
(Formüllerin hücreye girişleri CTRL+SHIFT+ENTER ile yapılmalıdır.)

E2 hücresinde yazıldı.... ( Yani D2 hücresinde yazan Merkez ilçe için)

=BAĞ_DEĞ_SAY(1/SIKLIK(EĞER($A$2:$A$2500=$D2;KAÇINCI($B$2:$B$2500;$B$2:$B$2500;0));SATIR(DOLAYLI("1:"&SATIRSAY($B$2:$B$2500)))))

Alternatif dizi formülü yine Merkez ilçe için F2 hücresine yazıldı..

=TOPLA(EĞER(SIKLIK(EĞER($A$2:$A$2500=$D2;KAÇINCI("~"&$B$2:$B$2500;$B$2:$B$2500&"";0));SATIR($B$2:$B$2500)-SATIR($B2)+1);1))

yada KTF (Kullanıcı tanımlı fonksiyon ile)
KTF ( module 1 de kayıtlı)

Function BenzersizSayKriterli(Alan, AlanKriter, Kriter)
  Set d = CreateObject("Scripting.Dictionary")
  For i = 1 To Alan.Count
    If AlanKriter(i, 1) = Kriter And Alan(i, 1) <> "" Then
       deg = Alan(i, 1)
       d(deg) = deg
    End If
  Next i
  BenzersizSayKriterli = d.Count
End Function

Yine merkez ilçe için G2 hücresine yazıldı... (KTF in kullanımı)

=BenzersizSayKriterli($B$2:$B$2500;$A$2:$A$2500;$D2)

Not : Satır sayısı çok olunca Dizi formüllerin hesaplanmasında yavaşlamalar olacaktır. Eğer KTF kullanılacaksa
Sayfanın kendi Makro sayfasına

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub

kodlarını kopyalayınız.

 

[xxozixx]

Yardımlarınızdan dolayı hepinizden Allah razı olsun. Tşk ederim. Sakman bey KTF (Kullanıcı tanımlı fonksiyon ile) çok işime yaradı. Harika olmuş, Excel sayfasını hiç kasmadı. İnanın bugün saat 11:00 den beri webten araştırdım. çözememiştim. Sağolunuz varolunuz. Çok makbule geçti inanın, biz zahmet verdik rabbimiz vermesin. Hepinize, sevgiler, saygılar ve hayat boyunca mutluluklar dilerim.

 

[sakman26]

ben kendi adıma söyleyecek olursam,

rica ediyorum.
iyi dileklerinizden dolayı ben size teşekkür ediyorum.
kolay gelsin..

 

[xxozixx]

ben kendi adıma söyleyecek olursam,

rica ediyorum.
iyi dileklerinizden dolayı ben size teşekkür ediyorum.
kolay gelsin..

Rica ederim