Satırdaki verileri belli bir kurala göre sütun yapıştrma

[korpixy]

Selamun Aleyküm hocalarım benim içinden bir türlü çıkamadığım bir sorun var. Bende excel çalışma sayfamın a sütununda belli bir sıra ile yazılı 2 200 satır veri var. (satırlar arasında boşluk yok ) Ben bu verilerin sırayla 11, 11 kopyalanarak yeni açtığım çalışma sayfasında sütun olarak yapıştırılmasını istiyorum. Bu şekilde 2200 satırlık verimi açtığım çalışma sayfasında 200 satırlık bir tabloya dönüştüreceğim. Umarım imkansız bir şey değildir. Yardım eden etmeyen herkese şimdiden teşekkür ederim

 

[PLİNT]

Merhaba
Ek dosyayı denermisiniz?
http://s8.dosya.tc/server2/9xnr8o/ornek.zip.html
1.sayfa "A" sütununu; 2. sayfada sütunlara 11 satırlı kopyalacaktır.

Private Sub CommandButton1_Click()
For a = 1 To 2200 Step 11
b = b + 1
Range("A" & a & ":A" & a + 10).Copy Sayfa2.Cells(1, b)
Next
Sayfa2.Activate
End Sub