Bir isimden kaç tane var

[siranel]

listedeki isimler gibi 6.000 sütun var hangi isimden kaç tane var görmek istiyorum. örneğin açelya ismi kaç adet var. eğersay formülünü denedim ama içine isim girmeye çalışmaktansa tek tek isimleri saymak daha kolay. bunu grafik olarak v.s en kolay nasıl listeleyebiliriz. (istatistik amaçlı hazırlıyorum) değer verip cevap verenlere teşekkür ederim.

 

[Murat OSMA]

Özet Tablo ile istediğiniz işlemi yapabilirsiniz.​

 

[siranel]

Özet tablo yapıyorum ama olmuyor.
sadece abantı alıyor diğerlerini görmüyor

 

[siranel]

https://ozelkoltuk.com/yeni-isimler.xlsx
2 gündür uğraşıyorum ama olmadı..
yan sütuna otomatik saydırma şansımız varmı örneğin
excel 1
excel 2
excel 3
formul 1
aydan 1
aydan 2
teşekkürler 1 gibi

 

[siranel]

=EÃĞERSAY(A2:A29;"Can") da can yazmak zorunda olmadan a1 sütunu a2 a3 gibi saydırma şansımız gibi bir şey lazım

 

[excel41]

Inceleyiniz lütfen

 

[siranel]

altın üye olmadığım için indiremiyorum.

 

[excel41]

http://s7.dosya.tc/server3/z5k3a3/ISIM__AYIKLAMA.xls.html SOYA EKTE OLUP

ALTIN ÜYE OLMANIZDA FAYDA OLACAKTIR

 

[Ömer BARAN]

Merhaba.

Keşke ekran görüntüsü yerine örnek belge yükleseydiniz.

Aşağıdaki formülü B1 hücresine uygulayıp liste boyunca kopyalarsanız;
her ismin ilkinin karşısında o isimden kaç tane olduğu bilgisini elde edebilirsiniz.

Formüldeki 6000 sayısını gerçek belgedeki son dolu satır numarasıyla değiştirirsiniz artık.

Sonra da B sütununda BOŞ OLMAYANLAR şeklinde SÜZ işlemi uygularsınız.
.

=[COLOR="red"]EĞER[/COLOR]([COLOR="red"]EĞERSAY[/COLOR]($A$1:A1;A1)=1;[COLOR="Red"]EĞERSAY[/COLOR]($A$1:$A$[B][SIZE="4"]6000[/SIZE][/B];A1);"")

 

[Ali]

Aşağıdaki makroyu çalıştırınız.

Sub Benzersizlistele_say()
Dim c As Range, rng As Range, n As Long, lr As Long
Application.ScreenUpdating = False
Set rng = Range("A1", Range("A" & Rows.Count).End(xlUp))
Columns("C:D").ClearContents
Range("C1").Resize(, 2).Value = Array("İsim", "Adet")
With CreateObject("Scripting.Dictionary")
  .CompareMode = vbTextCompare
  For Each c In rng
    If c <> "" Then
      If Not .Exists(c.Value) Then
        .Add c.Value, 1
      Else
        .Item(c.Value) = .Item(c.Value) + 1
      End If
    End If
  Next
  Range("C2").Resize(.Count, 2) = Application.Transpose(Array(.Keys, .Items))
  n = .Count
End With
Columns("C:D").AutoFit
Application.ScreenUpdating = True
End Sub

 

[siranel]

Hepinizden Allah razı olsun.. Hz. Alinin Bahsettiği öğretmenler sizlersiniz..
Örnek dosyayı 3. postta görebilirsiniz

 

[siranel]

excel41 Harika bir dosya Eli öpülesi iş gerçekten budur. Hepinizden ayrı ayrı Allah razı olsun.. Dertle derlenmek budur.

 

[excel41]

Rica ederiz geri dönüş için tşk ederim iyi çalışmalar

excel41 Harika bir dosya Eli öpülesi iş gerçekten budur. Hepinizden ayrı ayrı Allah razı olsun.. Dertle derlenmek budur.

 

[siranel]

Rica ederiz geri dönüş için tşk ederim iyi çalışmalar

Excel41 hocam benim elimde 5520 adet isim var ne yaptıysam 861 den sonrasını saydıramadım.
https://ozelkoltuk.com/isim-ayikla-2.xls

 

[siranel]

sonuç %100 Başarı

Merhaba.

Keşke ekran görüntüsü yerine örnek belge yükleseydiniz.

Aşağıdaki formülü B1 hücresine uygulayıp liste boyunca kopyalarsanız;
her ismin ilkinin karşısında o isimden kaç tane olduğu bilgisini elde edebilirsiniz.

Formüldeki 6000 sayısını gerçek belgedeki son dolu satır numarasıyla değiştirirsiniz artık.

Sonra da B sütununda BOŞ OLMAYANLAR şeklinde SÜZ işlemi uygularsınız.
.

=[COLOR="red"]EĞER[/COLOR]([COLOR="red"]EĞERSAY[/COLOR]($A$1:A1;A1)=1;[COLOR="Red"]EĞERSAY[/COLOR]($A$1:$A$[B][SIZE="4"]6000[/SIZE][/B];A1);"")

Hocam teşekkürler Hepinizden Allah Ayrı ayrı razı olsun..

 

[excel41]

F SUTUNUNDA 2000 KRİTERİ VERMİŞTİM

=TOPLA.ÇARPIM(($B$2:$B$7000=$E3)*($C$2:$C$7000)) F2 hücresine kopyalayıp aşağı dogru uygulayın

excel41 hocam benim elimde 5520 adet isim var ne yaptıysam 861 den sonrasını saydıramadım.
https://ozelkoltuk.com/isim-ayikla-2.xls

 

[excel41]

düzeltilmiş dosya ektedir

http://s7.dosya.tc/server3/wrq2ld/isim-ayikla-2__1_.xls.html