tekrar sayısı

[othara]

arkadaslar ekli dosyada ay ay isimler var.
burdaki isimleri
af sutununa nasıl saydırabiliriz diyelim x kişi af sutununda adı cıkcak ag sutununda ise listede adı kac kez gecmıs onu ogrenebilirmiyiz

dosyam ektedir.

http://dosya.host/f/yiIl

 

[mersilen]

Merhaba
Deneyin
=TOPLA.ÇARPIM(--(A2:AE36=AF2))

 

[esahin1907]

Merhaba,
Doğru anladıysam alternatif olsun.

=eğersay(ag:ag;x)

 

[othara]

olmadi hiç biri

 

[Erdem Akdemir]

İstediğiniz sonucu gösteren örnek dosya ekleyebilir misiniz?

 

[othara]

http://www.dosyayukle.net/download/e804d9f24f1f57869dbc07a781eadf77.html

 

[othara]

tekrarlanan isimleri ve tekrar sayısını ögrnmek istiyorm

 

[bzace]

Merhabalar,
80 Adet farklı veriniz var.Bunları ayrı ayrı mı istiyor sunuz?
Eğer ki bunu istiyorsanız kalıbınızı değiştirmemizde bir sakınca var mı?

 

[othara]

bzace bunlar 31 günlük sayfalardan alınan veriler.dolayısıyla 80 kişi olabilir.Varmi baska oneriniz pratik olarak

 

[mersilen]

Aşağıdaki kodu deneyin

Sub listele()

Range("AF:AG").ClearContents
For Each h In Range("a2:ae36")

If h.Value <> "" Or h.Value <> 0 Then
son = Range("AF65536").End(xlUp).Row + 1
say = WorksheetFunction.CountIf(Range(Cells(1, "af"), Cells(son, "af")), h.Value)
If WorksheetFunction.CountIf(Range(Cells(1, "af"), Cells(son, "af")), h.Value) = 0 Then
Cells(son, "af") = h.Value
Cells(son, "AG") = WorksheetFunction.CountIf(Range("a2:ae36"), h)
End If


End If
Next
End Sub