Belirli bir karakteri geçen hücreleri bir alt satıra parçalama

[alemdar1905]

İyi günler elimde ortalama 700 satırlık bir veri bulunmakta. Bu hücrelerde 80 karakteri geçen satırları satır açıp bir alt satıra parçalamak istiyorum.
Böyle bir formul mevcutmudur.
Not: Parçalama işleminde kelimenin yarısından başlamamsı gerek.
örnek verilecek olursa "Parçala kelimesini par çala diye değilde kelimenin tamamını almam gerekiyor."



Yardımlarınız için şimdiden teşekkür ederim.

 

[dEdE]

Merhaba

,"Parçala kelimesini par çala diye değilde kelimenin tamamını almam gerekiyor."

Kelimenin tamamını alınca 80 karakter yerine örn. 88 karakter olabilir mi? Yoksa kelimenin tamamını almak için 80. karakterden önceki boşluğa gidip oradan bölünerek, örn. 72 karakter mi olacak?

 

[alemdar1905]

Öncelikle ilginiz için teşekkür ederim..
Örnek verecek olursak
"ALİ BUGÜN OKULA GİDERKEN YOLDA ARKADAŞIYLA KARŞILAŞTI VE OKULA GİTMEKTEN VAZGEÇTİ" kelimesi 81 karakter benim isteğim ise şöyle.

ALİ BUGÜN OKULA GİDERKEN YOLDA ARKADAŞIYLA KARŞILAŞTI VE OKULA GİTMEKTEN

VAZGEÇTİ
VAZGEÇTİ Kelimesini alıp bir alt satıra geçirmek. Yani 80 den önce ilk boşluktan itibaren kesme işlemini yapıcak. Geri kalan kısmı alt satıra yazıcak.

 

[dEdE]

Merhaba,
Aşağıdaki kodu Modüle yapıştırarak dener misiniz? Örnek dosya eklemediğiniz için verilerinizin A sütununda olduğu varsayılmıştır.

Sub AltaYaz()
For i = 1 To [A65536].End(3).Row
If Len(Cells(i, 1).Value) > 80 Then
For j = 80 To 1 Step -1
    If Mid(Cells(i, 1).Value, j, 1) = " " Then
        Range("A" & i + 1).Insert xlDown
        Cells(i + 1, 1).Value = Right(Cells(i, 1).Value, Len(Cells(i, 1).Value) - j)
        Cells(i, 1).Value = Left(Cells(i, 1).Value, j)
        Exit For
    End If
Next j
End If
Next
End Sub

 

[alemdar1905]

Çok teşekkür ederim aradığım tam olarak buydu.