Yatay verileri düşeye çevirmek

[mongollica]

Merhaba..

Sorum şu..

Elimde 5 sütun var..1 sütun a grubu değerleri içeriyor..diğer 4 sütun ise b grubu değerlerini..a ve b değerlerini 2 sütunda bir araya getirmek istiyorum..ekte bir örnek var..yardımcı olabilir misiniz..

Mesela şunun gibi olmalı..

A B C D
numara fiyat fiyat fiyat
1 10 15 25

A B
Fiyat 10
Fiyat 15
Fiyat 25

teşekkürler..

 

[mongollica]

arkadaşlar merhaba..

bu konuda yardımcı olabilecek birisi yok mudur..yaptığım iş de 75 binlik datayı bu şekilde alt alta yazabilmem için maalesef elimden bir şey gelemiyor..

teşekkür ederim şimdiden..

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu deneyiniz.

Sub AKTAR()
    Dim X As Long, Y As Byte, Satir As Long
    
    Range("I2:J" & Rows.Count).ClearContents
    Satir = 2
    
    For X = 2 To Cells(Rows.Count, 1).End(3).Row
        For Y = 2 To 6
            If Cells(X, Y) <> "" Then
                Cells(Satir, "I") = Cells(X, 1)
                Cells(Satir, "J") = Cells(X, Y)
                Satir = Satir + 1
            End If
        Next
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[mongollica]

çok teşekkür ederim..hemen deniyorum..

 

[mongollica]

çok teşekkür ederim..gayet iyi çalışıyor..