Satırı Sütuna Çevirme

[steppe]

A sütununda 100'lerce veri var.Bu verileri A,B,C,D,E sütunlarına 5'şer 5'şer alt alta nasıl sıralayabilirim.Yani satırları 5'şer 5'şer sütuna çevirme.Detaylı açıklama örnekte mevcut.
Yardımlarınız için şimdiden teşekkürler.

 

[Muhammet Okumuş]

Merhaba,

Sub Kopya()
Application.ScreenUpdating = False
If Range("A1") = "" Then Rows(1).Delete
Rows(1).Insert
sat = WorksheetFunction.RoundUp(Cells(Rows.Count, "A").End(3).Row / 5, 0) - 1
For i = 1 To sat
a = i * 5 - 3
Range(Cells(a, 1), Cells(a + 4, 1)).Copy
Range("B" & i + 1).PasteSpecial (xlPasteValues), Transpose:=True
Next
Application.CutCopyMode = False
Range("A1").Select
End Sub

Kodu deneyiniz.

 

[steppe]

Muhammet Kardeş,
Yardımın için çok teşekkür ederim.Ekteki dosya üzerinden anlatırsam,kodda da küçük bir değişiklikle a1 den başlayarak 5'şer 5'şer satırı sütuna çevirdi.En altta örnekteki gibi 5'li değilde 2'li olursa onuda örnek a7 ve b7 yazdırıp; A sütununda A8 den sonrasını sildirmek.

Pardon,özür dilerim yanlış dosya atmışım.Yeni dosyayı ekledim.

 

[Muhammet Okumuş]

Örnek dosyada bir şey yok.

 

[steppe]

Örnek dosyada bir şey yok.

Muhammet Kardeş,
Bir önceki mesajda yeni dosyayı ekledim.

 

[Muhammet Okumuş]

Merhaba,

Sub Kopya()
Application.ScreenUpdating = False
If Range("A1") = "" Then Rows(1).Delete
Rows(1).Insert
sat = WorksheetFunction.RoundUp(Cells(Rows.Count, "A").End(3).Row / 5, 0)
For i = 1 To sat
a = i * 5 - 3
Range(Cells(a, 1), Cells(a + 4, 1)).Copy
Range("B" & i + 1).PasteSpecial (xlPasteValues), Transpose:=True
Next
Columns(1).Delete
Application.CutCopyMode = False
Range("A1").Select
End Sub

kodu deneyiniz.