Bir hücre içindeki metini şartlı satırbaşı yapmak

[unur]

Formumuzda beraberce nice sağlıklı mutlu yıllar temennisiyle,

Arkadaşlar ekte gönderdiğim dosyada; bir hücrede aşağıdaki gibi bir metin mevcut(örnek olması açısında bir hücre yazdım) E sütununda buna benzer metinler var.

Yapmak istediğim ise büyük harfle YDE yazılan yerden itibaren satırbaşı yapabilirmiyiz.Ekteki dosyada ikinci satırda olduğu gibi.

Teşekkürler.

YDE-1 Edebiyat düşünce ve duyguları güzel ve etkili bir biçimde anlatma sanatı olarak tanımlanabilirse de her anlatı her metin edebiyat tanımı içerisine sokulmaz.YDE-2 Amacı okuyucuya estetik bir lezzet sunmak değil de onu bir konuda aydınlatacak teknik bilgileri içeren yapıtlar .YDE-25 Selamlamak.YDE-12 Ayrıca edebiyat sadece yazılı metinleri kapsamaz,YDE-13 Öyleyse edebi metnin üretimini sorgulayan iki ana görüş vardır

 

[unur]

Bu konuda fikir verecek arkadaş yokmu?

 

[Necdet]

Merhaba,

Aşağıdaki kodları deneyiniz.

Sub SatirBasiYap()
    
    Dim i   As Long, _
        j   As Integer, _
        d, _
        Met As String, _
        m   As String
    Application.ScreenUpdating = False
    With Columns("E:E")
        .Replace What:=". ", Replacement:=".", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False
        .Replace What:=", ", Replacement:=",", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False
        .Replace What:=",", Replacement:=", ", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False
        .Replace What:=".", Replacement:=". ", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False
    End With
        
    For i = 1 To Cells(Rows.Count, "E").End(3).Row
        Met = ""
        d = Split(Cells(i, "E"), " ")
        For j = 0 To UBound(d)
            m = d(j)
            If d(j) = HarfB(m) Then
                Met = Met & Chr(10) & d(j)
            Else
                Met = Met & " " & d(j)
            End If
        Next j
        Cells(i, "E") = Met
    Next i
    
    Application.ScreenUpdating = True
    
    MsgBox "Elimden Geleni Yaptım, Güle Güle Kullanınız..", vbInformation, "N. YEŞERTENER"
    
End Sub

Function HarfB(Deger As String)
    HarfB = UCase(Replace(Replace(Deger, "ı", "I"), "i", "İ"))
End Function

 

[unur]

Necdet Bey çok teşekkürler elinize sağlık.