Aynı hücreleri saymak

[macrozoom]

Arkadaşlar merhaba ,

Bu bayram günü çalışıyorum

Örneğin 5000 adet isim yazılı sütunda aynı olsun olmasın başka bir sayfada

Ali 10
Veli 20
Kemal 5
Ahmet 1
şeklinde sayabilirmiyiz ?

Veya nasıl sayarız

Teşekkürler

 

[macrozoom]

Lütfen acil

Örnek dosyayı ekledim.
Lütfen acil...

 

[macrozoom]

şimdi ekledim

aceleden unutmuşum

 

[Ömer]

Merhaba,

Module kopyalayarak çalıştırınız..

Sub SıralaSay()
Application.ScreenUpdating = False
Dim i As Long, son As Long
Range("D:E").ClearContents
son = [A65536].End(3).Row
    Range("A1:A" & son).AdvancedFilter xlFilterCopy, , [D1], True
[D1].Copy [E1]: [E1] = "Sayı"
For i = 2 To [D65536].End(3).Row
    Cells(i, "e") = Application.CountIf(Range("A1:A" & son), Cells(i, "d"))
Next i
Application.ScreenUpdating = True
End Sub

.

 

[İhsan Tank]

aceleden unutmuşum

merhaba
bir örnek'te benden olsun
ad tanımla , veri doğrulama'dan liste ve eğersay fonksiyonu ile yaptım
eki inceleyiniz
kolay gelsin

 

[macrozoom]

çok teşekkür ederim sağolun

 

[İhsan Tank]

çok teşekkür ederim sağolun

rica ederim ( ömer hocam size'de teşekkür ederim )