Soru Sütun verilerini satıra çevirme

[kimki]

Merhaba, örnek dosyamı ekledim,

sütundaki verilerimi satırlara dönüştürmek istiyorum, veri aralığım geniş olduğu için küçük datalı bir örnek yükledim, yardımlarınız ricasıyla.

tşkler.

 

[veyselemre]

Sub test()
    sat = 2
    For ii = 2 To Cells(1, 1).End(2).Column
        For i = 2 To Cells(Rows.Count, 1).End(3).Row
            Cells(sat, 11) = Cells(i, 1)
            Cells(sat, 12) = Cells(i, ii)
            Cells(sat, 13) = Cells(1, ii)
            sat = sat + 1
        Next i
    Next ii
End Sub

 

[kimki]

Sub test()
    sat = 2
    For ii = 2 To Cells(1, 1).End(2).Column
        For i = 2 To Cells(Rows.Count, 1).End(3).Row
            Cells(sat, 11) = Cells(i, 1)
            Cells(sat, 12) = Cells(i, ii)
            Cells(sat, 13) = Cells(1, ii)
            sat = sat + 1
        Next i
    Next ii
End Sub

hocam tşkler cevabınız için, makro fazla bilmiyorum ama kendi verilerime uyarlayabildim, tek sorum örnek datada A sütunun soluna başka bir data gelirse sağ taraftaki istediğim dataya 4. sütun olarak nasıl eklerim.

 

[kimki]

Mrb tekrar ayni soruyu soracagim. Sol taraftaki sütun sayıları artınca dosya bozuluyor. Örnek dosya ekledim tekrardan, bakarsanız sevinirim.

 

[veyselemre]

Sub test()
    ySat = 1
    basSut = 25
    For sut = 3 To 17
    For sat = 2 To Cells(Rows.Count, 1).End(3).Row
            ySat = ySat + 1
            Cells(ySat, basSut) = Cells(sat, 1)
            Cells(ySat, basSut + 1) = Cells(sat, 2)
            Cells(ySat, basSut + 2) = Cells(1, sut)
            Cells(ySat, basSut + 3) = Cells(sat, sut)
        Next sat
    Next sut
    Range(Cells(2, basSut), Cells(ySat, basSut)).NumberFormat = "mmm.yyyy"
End Sub

 

[kimki]

@veyselemre teşekkür ederim, çok işime yaradı.