alt alta sıralama

[NADİR YILDIZ]

Virgülle ayrılmış olanları tek bir hücrenin içinde tek tek alt alta dizebilir miyiz..

 

[Murat OSMA]

Bu kodları kullanabilirsiniz;

[FONT="Trebuchet MS"][SIZE="2"]Sub Emre()
    Dim i%, ayır
    Columns([COLOR="Red"]2[/COLOR]).[COLOR="red"]Clear[/COLOR]
    [COLOR="red"]For [/COLOR]i = 1 To Range("A65536").End(3).Row
        ayır = [COLOR="red"]Split[/COLOR](Cells(i, 1), "[COLOR="Red"],[/COLOR]")
        [COLOR="red"]For [/COLOR]a = [COLOR="red"]LBound[/COLOR](ayır) To [COLOR="red"]UBound[/COLOR](ayır)
            yaz = yaz & [COLOR="red"]ayır[/COLOR](a) & " " & [COLOR="Red"]Chr[/COLOR](10)
        [COLOR="Red"]Next [/COLOR]a
        Cells(i, 2) = [COLOR="red"]Left[/COLOR](yaz, [COLOR="red"]Len[/COLOR](yaz) - 1)
        yaz = Empty: Cells(i, 2).[COLOR="red"]WrapText [/COLOR]= True
    [COLOR="red"]Next [/COLOR]i
    Erase ayır: i = Empty
End Sub[/SIZE][/FONT]

 

[NADİR YILDIZ]

Murat bey teşekkür ederim. sorunum çözülmüştür

 

[Murat OSMA]

Rica ederim Nadir Bey, iyi günler.​

 

[NADİR YILDIZ]

Murat bey b hücresinde dizilenlerin kaç satır olduğunu bulabilir miyiz acaba ?

 

[Murat OSMA]

ayır = ile başlayan satırın altına bu satır ilave edin;

[FONT="Trebuchet MS"][SIZE="2"]Cells(i, 3) = UBound(ayır) + 1 & " kelime"[/SIZE][/FONT]

 

[NADİR YILDIZ]

Teşekkür ederim..

 

[veyselemre]

Alternatif olsun,

Sub altAltaYaz()
    [B:C].Clear
    For i = 1 To Range("A65536").End(3).Row
        al = Cells(1, 1)
        say = Len(al) - Len(Replace(al, ",", ""))
        Cells(i, 2) = Replace(al, ",", ", " & Chr(10))
        Cells(i, 3) = Replace(al, ",", "," & Chr(10))
        Cells(i, 4) = Replace(al, ",", Chr(10))
        Cells(i, 5) = say
    Next i
End Sub

 

[Murat OSMA]

Teşekkür ederim..

Rica ederim Nadir Bey, tekrar iyi günler.​

 

[NADİR YILDIZ]

Veysel emre bey size de teşekkür ederim