Sütunu Satıra Çevirme

[steppe]

Örnek dosyadaki gibi makro ile Sayfa1'deki verileri Sayfa2'deki formatta aktarmak istiyorum.
Yardımlarınız için şimdiden teşekkürler.

 

[Muzaffer Ali]

Sayfa1 deki verileri kopyala
Sayfa2 ye sağ tıklat/özelyapıştır/İşlemi tersine çevir işaretle Tamam ı tıklat

 

[steppe]

dalgalikur kardeş,
Örneği incelerseniz sayfa1'i sayfa2'ye, sayfa2'deki gibi aktarılacak.100'lerce veriyi "sağ tıklat/özelyapıştır/İşlemi tersine çevir işaretle Tamam" la çok uzun zaman aldığı için makro ile demiştim

 

[apocalyt]

şunu deneyiniz..

Sub daylight()
Application.ScreenUpdating = False
Sheets(2).Range("a2:e10000").ClearContents
For y = 5 To Sheets(1).[a10000].End(3).Row Step 5
For x = 1 To Sheets(1).Cells(1, 200).End(xlToLeft).Column
Sheets(1).Range(Sheets(1).Cells(y - 4, x), Sheets(1).Cells(y, x)).Copy
Sheets(2).Cells(Sheets(2).[a10000].End(3).Row + 1, 1).PasteSpecial Transpose:=True
Next x
Next y
Application.CutCopyMode = False
Application.ScreenUpdating = True
MsgBox "İşleminiz bitmiştir.", vbInformation
End Sub

 

[Muzaffer Ali]

Verinin adedi farketmez tüm veriyi 1 milyon satır da olsa bir defada yapabilirsiniz.