Hücre İçinde Kaç Tane "n" Var ?

[Emir Hüseyin Çoban]

. . .

Soru: A1 hücresinde yazılı olan metini aralarındaki noktalara göre alt alta ayırma.

Çözüm: Önce hücrede kaç tane nokta olduğunu tespit etmemiz gerekiyor. Bunun için 2 yol var.
1. yol için kulağı tersten tutma denilebilir. Gereksiz uzunmuş...
2. yol; bunu bende yeni öğrendim. Paylaşıyorum.

Kırmızı kodlar sayıyı tespit etme kısmı.
Mavi kodlar ayırma kısmı.


Sub KOD()

metin = Range("A1")
aranan = "."

' 1.Yol
a = Len(metin) - Len(WorksheetFunction.Substitute(metin, aranan, ""))
MsgBox "1. Yol ile sonuç : " & a

' 2.Yol
b = Split(metin, aranan)
MsgBox "2. Yol ile sonuç : " & UBound(b)

If UBound(b) = 0 Then Exit Sub
For i = 0 To UBound(b)
Cells(i + 1, "B") = Split(metin, aranan)(i)
Next i

End Sub

. . .

 

[Erdem Akdemir]

Merhaba,

Formül ile alternatif olarak,

=KIRP(PARÇAAL(YERİNEKOY("."&$A$1;".";YİNELE(" ";255));SATIRSAY($D$1:D1)*255;255))

Makro ile

Sub ayir()

Range("c1").Resize(UBound(Split([a1], ".")) + 1, 1) = Application.Transpose(Split([a1], "."))

End Sub