Büyük harfle başlayan kelimeleri ayırma

[hkoca]

merhaba arkadaşlar,
birleşik olarak yazılmış bir metin içerinde büyük harf ile başlayan kelimeleri ayırabilir miyiz? örneğin;
MerhabaBenimAdımMustafa cümlesinde büyük harf gördüğünde her kelimeyi ayıran (Merhaba Benim Adım Mustafa) bir formül yazılabilir mi?

 

[HATİPOĞLUM]

Merhaba,
Ek dosya bu siteden alınmıştır.
Benzer bir soru kod ile çözülmüştür. umarım sizin de işinizi görür.
İyi çalışmalar.

 

[hkoca]

çok teşekkür ederim aramıştım ama sitede bulamamıştım çok işime yarayacak.

 

[confidant5]

Arkadaşlar günaydın,
ilgili kodları, Türkçe karakterleri de tanıyacak hale nasıl çevirebiliriz, yardımcı olur musunuz?
Saygılarımla,

 

[Necdet]

Arkadaşlar günaydın,
ilgili kodları, Türkçe karakterleri de tanıyacak hale nasıl çevirebiliriz, yardımcı olur musunuz?
Saygılarımla,

Merhaba,

Kodlara ek yapmaya çalıştım, deneyiniz.

Sub büyük_harflerle_verileri_kırmak()
 
    Dim i As Long, j As Long, x As Long, d As Long
    Dim k As Boolean
    Dim st  As Long
    Dim abc As String, _
        xyz As String, _
        Rakam As Integer
 
    For x = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        d = 1
        st = 2
        Range("a" & x).Select
        abc = ActiveCell.Value
        For i = st To Len(abc)
            If i > Len(abc) Then
                Range("a" & x).Offset(0, d).Value = abc
                Exit For
            End If
            Rakam = Asc(Mid(abc, i, 1))
            If (Rakam > 64 And Rakam < 91) Or (Rakam > 219 And Rakam < 223) Or _
                Rakam = 199 Or Rakam = 208 Or Rakam = 214 Then
                Range("a" & x).Offset(0, d).Value = Left(abc, i - 1)
                xyz = Right(abc, Len(abc) - i + 1)
                abc = xyz
                i = 1
                d = d + 1
            End If
        Next i
 
        If Len(Range("a" & x).Value) = Len(abc) Then
            Range("a" & x).Offset(0, 1).Value = Range("a" & x).Value
        End If
    Next x
 
End Sub

 

[confidant5]

Sn. Necdet Bey,
Tek kelimeyle harika, elinize sağlık.
Saygılarımla,