Soru Sütun verilerini satıra çevirme

kimki

Altın Üye
Katılım
10 Nisan 2011
Mesajlar
81
Excel Vers. ve Dili
Excel 2016
Altın Üyelik Bitiş Tarihi
24-06-2026
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.
 

Ekli dosyalar

veyselemre

Özel Üye
Katılım
9 Mart 2005
Mesajlar
3,646
Excel Vers. ve Dili
Pro Plus 2021
Kod:
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

Altın Üye
Katılım
10 Nisan 2011
Mesajlar
81
Excel Vers. ve Dili
Excel 2016
Altın Üyelik Bitiş Tarihi
24-06-2026
Kod:
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

Altın Üye
Katılım
10 Nisan 2011
Mesajlar
81
Excel Vers. ve Dili
Excel 2016
Altın Üyelik Bitiş Tarihi
24-06-2026
Mrb tekrar ayni soruyu soracagim. Sol taraftaki sütun sayıları artınca dosya bozuluyor. Örnek dosya ekledim tekrardan, bakarsanız sevinirim.
 

Ekli dosyalar

veyselemre

Özel Üye
Katılım
9 Mart 2005
Mesajlar
3,646
Excel Vers. ve Dili
Pro Plus 2021
Kod:
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

Altın Üye
Katılım
10 Nisan 2011
Mesajlar
81
Excel Vers. ve Dili
Excel 2016
Altın Üyelik Bitiş Tarihi
24-06-2026
@veyselemre teşekkür ederim, çok işime yaradı.
 
Üst