hücre içindeki metindeki belli bir harften kaç tane olduğunu bulmak.

[pitsss]

arkadaşlar
bir hücrede şu yazılı olsun "KOLON D1 D2 D3 D4"
diye aynı hücrede yazsın. ben burada makro ile hücre içersinde geçen harleri saydırabilir miyim? mesela D harfini saysın ve bana 4 adet olduğunu söylesin. K harfini saysın ve 1 adet olduğunu söylesin. bunu makro ile nasıl yapabilirim. herkes teşekkürler. kolay gelsin.

 

[Korhan Ayhan]

Selamlar,

Kelimeniz A1 hücresinde ise aşağıdaki kodu kullanabilirsiniz.

Option Explicit
 
Sub HARF_SAY()
    Dim SAY As Integer
    SAY = Len([A1]) - Len(Replace([A1], "D", ""))
    MsgBox SAY
End Sub