bir hücrede alt+enterla yazılmış metni tek tek satırlara yazmak

[placebom]

merhaba.

tek hücrede alt enterla yazılmış metni tek tek satırlara yazamıyorum..
ilgilenler için şimdiden teşekkür ederim.

 

[Korhan Ayhan]

A1 hücresindeki veriyi aşağıdaki kodu kullanarak sütunlara ayırabilirsiniz.

Sub Makro()
    Veri = Split(Range("A1"), Chr(10))
    
    Sutun = 2
    
    For X = 0 To UBound(Veri)
        Cells(1, Sutun) = Veri(X)
        Sutun = Sutun + 1
    Next

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[placebom]

ilginiz için teşekkür ederim.
bunu alta alta satırlara ve makro kullanmadan yapabilir miyiz?

 

[Korhan Ayhan]

İdris beyin dershane bölümündeki çalışmasındaki formüller kullanılmıştır.

Örnek dosyayı inceleyiniz.

ÖRNEK.xlsx - 9 KB

 

[ÖmerBey]

Alternatif olsun A1'deki veriyi ayırmak için:

=EĞERHATA(PARÇAAL(A$1;BUL("#";YERİNEKOY(DAMGA(10)&YERİNEKOY(A$1;"#";"A")&DAMGA(10);DAMGA(10);"#";SATIR(A1)));BUL("#";YERİNEKOY(DAMGA(10)&YERİNEKOY(A$1;"#";"A")&DAMGA(10);DAMGA(10);"#";SATIR(A1)+1))-BUL("#";YERİNEKOY(DAMGA(10)&YERİNEKOY(A$1;"#";"A")&DAMGA(10);DAMGA(10);"#";SATIR(A1)))-1);"")

 

[Murat OSMA]

Çözümler çok iyi, zihninize sağlık. k::

KTF'de benden olsun.

[FONT="Trebuchet MS"][SIZE="2"]Function [COLOR="Red"]Emre[/COLOR](ByVal [COLOR="Blue"]evn [/COLOR]As Range, ByVal [COLOR="DarkOrange"]kacıncı [/COLOR]As Integer) As String
    a = Split([COLOR="Blue"]evn.Value[/COLOR], Chr(10))
    [COLOR="Red"]Emre [/COLOR]= a([COLOR="DarkOrange"]kacıncı [/COLOR]- 1)
End Function[/SIZE][/FONT]

Verinin A1 hücresinde olduğunu düşünürsek, hücrede kullanımı:

[FONT="Trebuchet MS"][SIZE="2"]=[COLOR="Blue"]EĞERHATA[/COLOR]([COLOR="Red"]Emre[/COLOR]($A$1;[COLOR="DarkOrange"]SATIR[/COLOR]());"")[/SIZE][/FONT]

 

[Erdem Akdemir]

Altenatif,

Dikey almak için, dizi formülüdür.

=EĞERHATA(PARÇAAL($A$1;KÜÇÜK(EĞER(PARÇAAL(DAMGA(10)&$A$1&DAMGA(10);SATIR(DOLAYLI("1:"&UZUNLUK(DAMGA(10)&$A$1&DAMGA(10))));1)=DAMGA(10);SATIR(DOLAYLI("1:"&UZUNLUK(DAMGA(10)&$A$1&DAMGA(10)))));SATIR(A1));KÜÇÜK(EĞER(PARÇAAL(DAMGA(10)&$A$1&DAMGA(10);SATIR(DOLAYLI("1:"&UZUNLUK(DAMGA(10)&$A$1&DAMGA(10))));1)=DAMGA(10);SATIR(DOLAYLI("1:"&UZUNLUK(DAMGA(10)&$A$1&DAMGA(10)))));SATIR(A2))-KÜÇÜK(EĞER(PARÇAAL(DAMGA(10)&$A$1&DAMGA(10);SATIR(DOLAYLI("1:"&UZUNLUK(DAMGA(10)&$A$1&DAMGA(10))));1)=DAMGA(10);SATIR(DOLAYLI("1:"&UZUNLUK(DAMGA(10)&$A$1&DAMGA(10)))));SATIR(A1)));"")

Yatay,dizi formülüdür.

=EĞERHATA(PARÇAAL($A$1;KÜÇÜK(EĞER(PARÇAAL(DAMGA(10)&$A$1&DAMGA(10);SATIR(DOLAYLI("1:"&UZUNLUK(DAMGA(10)&$A$1&DAMGA(10))));1)=DAMGA(10);SATIR(DOLAYLI("1:"&UZUNLUK(DAMGA(10)&$A$1&DAMGA(10)))));SÜTUN(A1));KÜÇÜK(EĞER(PARÇAAL(DAMGA(10)&$A$1&DAMGA(10);SATIR(DOLAYLI("1:"&UZUNLUK(DAMGA(10)&$A$1&DAMGA(10))));1)=DAMGA(10);SATIR(DOLAYLI("1:"&UZUNLUK(DAMGA(10)&$A$1&DAMGA(10)))));SÜTUN(B1))-KÜÇÜK(EĞER(PARÇAAL(DAMGA(10)&$A$1&DAMGA(10);SATIR(DOLAYLI("1:"&UZUNLUK(DAMGA(10)&$A$1&DAMGA(10))));1)=DAMGA(10);SATIR(DOLAYLI("1:"&UZUNLUK(DAMGA(10)&$A$1&DAMGA(10)))));SÜTUN(A1)));"")