Çözüldü Cümle İçindeki Büyükharfli Olan Kelimeleri Bulma

[Gata]

A1 Hücresindeki Cümlede büyük harf ile başlayan kelimeleri çıkarmak istiyorum A7 hücresindeki formülü kullanıyorum hata veriyor yardımcı olur musunuz iyi bayramlar

 

[dost]

Merhaba,

Makro ile çözüm aşağıdadır.

Sub Test()
    Dim regEx As Object
    Dim myText As String
    
    Set regEx = CreateObject("VBScript.RegExp")
    regEx.Pattern = "[A-ZÇŞÜÖİ][a-zçşğüöı]*\b"
    regEx.Global = True

    If regEx.Test(Range("A1")) Then
        Set matches = regEx.Execute(Range("A1"))
        For Each Match In matches
            myText = myText & Match.Value & " "
        Next Match
    End If
    
    Range("A7") = myText
  
    Set regEx = Nothing
End Sub

 

[Gata]

Merhaba,

Makro ile çözüm aşağıdadır.

Sub Test()
    Dim regEx As Object
    Dim myText As String
  
    Set regEx = CreateObject("VBScript.RegExp")
    regEx.Pattern = "[A-ZÇŞÜÖİ][a-zçşğüöı]*\b"
    regEx.Global = True

    If regEx.Test(Range("A1")) Then
        Set matches = regEx.Execute(Range("A1"))
        For Each Match In matches
            myText = myText & Match.Value & " "
        Next Match
    End If
  
    Range("A7") = myText

    Set regEx = Nothing
End Sub

Teşekkür ederim hocam iyi akşamlar selamlar iyi bayramlar