Büyük harfle yazılan kelimeleri ayırma

[EMRE YALÇIN]

Merhaba. Ek teki örnekte açıklama kısmında büyük harfle başlayan kelimeleri e sutununda ki satıra getirecek şekilde ayırmak istiyorum. Yardımlarınız için teşekkürler.

 

[kulomer46]

Merhaba

E2 Hücresine aşağıdaki formülü yazıp gerektiği kadar aşağıya doğru çekip çoğaltınız.

=EĞERHATA(EĞER(KOD(SOLDAN(KIRP(C2);1))=222;C2;EĞER(VE(KOD(SOLDAN(KIRP(C2);1))>=65;KOD(SOLDAN(KIRP(C2);1))<=90);C2;""));"")

Selamlar...

 

[YUSUF44]

Aşağıdaki makroyu dener misiniz?

Sub buyukharfler()
son = Cells(Rows.Count, "C").End(3).Row
Set regexp = CreateObject("VBscript.RegExp")
regexp.Global = True
regexp.Pattern = "[^ A-ZĞÜŞİÖÇ]"
For i = 2 To son
    kelime = ""
    veri = Split(regexp.Replace(Cells(i, "C"), ""), " ")
    sut = 6
    For j = 0 To UBound(veri)
        If Len(veri(j)) > 1 Then
            If kelime = "" Then
                kelime = veri(j)
            Else
                kelime = kelime & " " & veri(j)
            End If
        End If
    Next
    Cells(i, "E") = kelime
Next
End Sub

 

[EMRE YALÇIN]

TEŞEKKÜRLER