sütunu satıra çevirme

[steppe]

A sütununda tarihler var.B,C,D,E,F,G... sütunlarında isimler var.Aynı sayfada A1 hücresinden başlayarak A sütununda aynı tarihin önündeki B sütununa B,C,D,E,F,G hücresindeki isimleri alt alta nasıl sıralayabilirim.
Ekteki örnekte detaylı açıkla mevcut.
Yardımlarınız için şimdiden teşekkürler.

 

[halit3]

A sütununda tarihler var.B,C,D,E,F,G... sütunlarında isimler var.Aynı sayfada A1 hücresinden başlayarak A sütununda aynı tarihin önündeki B sütununa B,C,D,E,F,G hücresindeki isimleri alt alta nasıl sıralayabilirim.
Ekteki örnekte detaylı açıkla mevcut.
Yardımlarınız için şimdiden teşekkürler.

Dosyanızdaki ilgili sayfadaki verileri iki sütun kaydırdım yani A ve B sütunu boş olarak aşağıdaki kodu çalıştırdım.

kod:

Private Sub CommandButton1_Click()
sat = 1
For i = 1 To Cells(Rows.Count, "c").End(3).Row
For j = 4 To Cells(i, Columns.Count).End(xlToLeft).Column
Cells(sat, 1).Value = Cells(i, 3).Value
Cells(sat, 2).Value = Cells(i, j).Value
sat = sat + 1
Next
Next
MsgBox "işlem tamam"
End Sub

 

[steppe]

Halit Hocam,

Yardımların için çok teşekkür ederim.

 

[halit3]

Halit Hocam,

Yardımların için çok teşekkür ederim.

Teşekkürler iyi çalışmalar