Bitişik yazılı ad ve soyadı ayırma

[tuncismet]

İyi günler,

Elimde adı ve soyadı bitişik uzun bir listem var. Adı ve soyadı ismin ilk harfleri büyük ve bitişik olarak yazılı olan örneğin ReşatKoç ismini Reşat Koç olarak yazmak istiyorum. Şimdiden teşekkürler.

 

[Seyit Tiken]

Örnek dosyaya bir bakın!

 

[Korhan Ayhan]

Merhaba,

KTF ile alternatif..

Option Explicit

Function SPLIT_TEXT(ByVal Rng As Range, No As Long) As String
    Dim Matches As Object
    
    With VBA.CreateObject("VBScript.RegExp")
        .Global = True
        .IgnoreCase = False
        .Pattern = "[A-ZÇĞİÖŞÜ][a-zçğıöşü]*"
        
        Set Matches = .Execute(Rng.Text)

        If Matches.Count = 0 Then
            SPLIT_TEXT = CVErr(xlErrNA)
            Exit Function
        End If
    
        If No >= 1 And No <= Matches.Count Then
            SPLIT_TEXT = Matches(No - 1).Value
        End If
    End With
End Function

Fonksiyon kodlarını boş bir modüle uyguladıktan sonra;

Örnek olarak A1 hücresinde ReşatKoç yazıyor olsun.

C1 hücresine aşağıdaki gibi uygulayıp alta doğru sürükleyiniz..

=SPLIT_TEXT(A$1;SATIR())