Yeni eklenen verileri sayma

[excelgls]

Merhabalar ,
Benim bir sorum olacaktı.
diyelim bir kolonumuz var içerisinde 10 tane ahmet 2 ayşe 2 mehmet yazıyor diyelim. Ben bunları diğer kolonda hangi isimden kaç tane olduğunu saydırmanın yanında mesela o kolona daha önce hiç olmayan semih ismini yazarsam da yan tarafa da semih yazıp yanına 1 yazsın istiyorum. Bunu nasıl yapabilirim yardımcı olabilirseniz çok sevinirim şimdiden teşekkür ederim elinize sağlık.

 

[YUSUF44]

Aşağıdaki kodları kopyalayın
Bir sayfada sayfa ismine sağ tıklayıp Kod Görüntüle deyin
Açılan sayfaya bu kodları yapıştırın

Bu kodlar A sütununa veri girdikçe A sütunundaki toplam sayısını B ve C sütunlarına yazar:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
sonA = Cells(Rows.Count, "A").End(3).Row
sonB = Cells(Rows.Count, "B").End(3).Row
If WorksheetFunction.CountIf(Range("B1:B" & sonB), Target) = 0 Then
    If [B1] = "" Then
        [B1] = Target
        [C1] = 1
    Else
    Cells(sonB + 1, "B") = Target
    Cells(sonB + 1, "C") = 1
    End If
Else
    For i = 1 To sonB
        If Cells(i, "B") = Target Then
            Cells(i, "C") = WorksheetFunction.CountIf(Range("A1:A" & sonA + 1), Cells(i, "B"))
            i = sonB
        End If
    Next
End If
End Sub