Gelişmiş Transpose Uygulaması

[baydeniro]

Merhaba arkadaşlar. Excel'deki Transpose uygulamasının biraz daha gelişmişi marko ile yapıulabilir mi ? Bir sayfada A kolunundaki veriyi B, C, D, E .... Kolonlarındaki dolu veri sayısı kadar bir başka sayfanın A kolonuna aşağıya doğru kopyalayıp, B den başlayıp sırayla verilerin hepsini B kolonunda toplayamak mümkün mü ? Ekli dosyada örnek mevcut.

 

[veyselemre]

Sub dene()
    Sheets("data").Select
    Set sa = Sheets("aktar")
    sa.Cells.ClearContents
    For x = 1 To [a65536].End(3).Row
        For y = 2 To Cells(x, 2).End(xlToRight).Column
            sat = sat + 1
            sa.Cells(sat, 1) = Cells(x, 1)
            sa.Cells(sat, 2) = Cells(x, y)
        Next y
    Next x
    sa.Select
End Sub

 

[baydeniro]

Çok Teşekkürler

Sayın veyselemre, valla Allah başarılarınızı daim etsin, bravo yani. Çok çok teşekkürler. Ben bu kadarını beklemiyordum, çok şaşırdım. İyiki varsınız, çok sağolun. Sağlıcakla kalın.