Örnek excel dosyası inceleyebilirmisiniz.

[mevcosru]

Örnek excel dosyası inceleyebilirmisiniz.
Çok uğraştım yapamadım

http://www.dosya.tc/server9/kx4x48/ornek.xlsx.html

 

[dellerlim]

Örnek dosyayı yüklememişsiniz. Altın üye olmadığınız için Ücretsiz Dosya Yükleme sitelerinden birine yükleyebilirsiniz.

 

[tahsinanarat]

Sn. Evren beyin kodları

Sub dagit59()
Dim i As Long, sonsat As Long, sut As Long, sat As Long, j As Long
sonsat = Cells(Rows.Count, "A").End(xlUp).Row
sut = 1
sat = 51
For i = 11 To sonsat Step 50
    For j = 1 To 50
        Sheets("sayfa2").Cells(j, sut).Value = Cells(sat, "A").Value
        sat = sat + 1
    Next j
    sut = sut + 1
Next i
MsgBox "Bitti" & "evrengizlen@hotmail.com"
End Sub

 

[mevcosru]

Teşekkürler

 

[mevcosru]

Güzel olmuş.
Ama a1 den a50 kadar olanları sayfa 2 ye almıyor.
A51 den itibaren alıyor.

Ayrıca bu olayı tersten nasıl yaparız. Yani sayfa 2 deki düzeni sayfa 1 dekine nasıl çeviririz