İsimlerdeki sesli ve sessiz harfleri sayma

[zerali]

Sınıf listemdeki öğrenci isimlerine boncuk bileklik yapmak için harf sayılarını bulmam gerekiyor.Bunun bir formülü var mıdır?

harf_sayma.xlsx dosyasını indir - download

harf_sayma.xlsx dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s2.dosya.tc

 

[zerali]

Emeğinize sağlık Çok sağolun RBozkurt hocam

 

[RBozkurt]

Emeğinize sağlık Çok sağolun RBozkurt hocam

Hata var sildim hocam.

 

[veyselemre]

Sub test()
    Dim i, cmb, al, uz, say
    For i = 2 To Cells(Rows.Count, 2).End(3).Row
        cmb = cmb & Replace(Cells(i, 2).Value, " ", "")
    Next i
    Do
        uz = Len(cmb)
        al = Left(cmb, 1)
        cmb = Replace(cmb, al, "")
        If uz > Len(cmb) Then
            say = say + 1
            Cells(say, 4).Value = al
            Cells(say, 5).Value = uz - Len(cmb)
        End If
    Loop Until Len(cmb) = 0
    Range("D1:E" & say).Sort Range("D1")
End Sub

 

[Korhan Ayhan]

Alternatif..

 

[zerali]

Çok teşekkürler Korhan hocam Emeğinize sağlık

 

[zerali]

Çok teşekkürler Veysel Emre hocam