Hücre içindeki makaleyi, cümle cümle satırlara bölme

[FDUYAR]

Merhaba kıymetli dostlar bir konuda desteğinizi rica ederim.

A1 hücresi içinde bir a4 sayfası boyutunda bir makale var. Bu makaleyi cümle cümle b sütununda alt alta(satır, satıır) olmasını istiyorum. Yani aslında noktadan sonra gelen yeni cümle yeni bir satırda olmuş olacak....

Bunun için bir formül ya da kod olabilir mi?

Teşekkürler

 

[Muzaffer Ali]

Merhaba.

Sub Test()
    Dim Cumle As Variant
    Dim Bak As Integer
    Cumle = Split(Range("A1"), ". ")
    For Bak = 0 To UBound(Cumle)
        Cells(Bak + 1, "B") = Cumle(Bak)
    Next
End Sub

 

[FDUYAR]

çok teşekkürler

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.

 

[FDUYAR]

@Muzaffer Ali hocam selamlar,

Bana yardımcı olduğunuz kodda ufak bir değişiklik ihtiyacım var yardımcı olabilirseniz çok mutlu olurum.

Biz daha önce A1 hücresi içindeki verileri b sutununa her cumle bir satıra gelecek şekilde bölmüştük.

Şimdi yine aynı işlemi yapacağız fakat b sutunu yerine A2 Hücresinden başlarak aşağıya doğru satır satır dökülmesini istiyorum.
Ayrıca A1, B1, C1, D1 hücrelerinde de benzer veriler var, B1 hücresindeki veride B2'den başlayarak satır satır aşağıya dökülmesini istiyorum.

Yardımcı olabilir misiniz.

 

[Muzaffer Ali]

Aleykümselam.

Sub Test()
    Dim Cumle As Variant
    Dim Bak As Integer
    Dim Kolon As Integer
    For Kolon = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
        Cumle = Split(Cells(1, Kolon), ". ")
        For Bak = 0 To UBound(Cumle)
            Cells(Bak + 2, Kolon) = Cumle(Bak)
        Next
    Next
End Sub

 

[FDUYAR]

Çok teşekkürler hocam, işe yaradı.

 

[FDUYAR]

@Muzaffer Ali hocam,
Her hücrenin içerisinde metinin sonuna otomatik olarak . nasıl koyabiliriz.,,

Edit;
Kutools'da add text ile hallettim.
tekrar teşekkürler.