Verileri Tabloya Aktarma

[Recep İpek]

Ekteki örnekte A kolonundaki verileri sırasıyla tabloya aktarmaya çalışıyorum.

Yapmak istediğim 1.turdan sonra tabloda kaldığı yerden verilerin tekrar 1'den başlayarak devam etmesi ve tablo doluncaya kadar bu işlemin devam etmesi.

 

[danersin]

Sub Button1_Click()

Range("E2:L11").ClearContents

Range("A2").Select
x = WorksheetFunction.CountA(Range("A2:A500"))
ReDim MyArray(x)
For i = 0 To x
MyArray(i) = ActiveCell.Value
ActiveCell.Offset(1, 0).Select
Next i

z = 0
For j = 1 To 10
For i = 1 To 8
Cells(1 + j, i + 4).Value = MyArray(z)
z = z + 1
If z > x Then GoTo 10
Next i
Next j
10
End Sub

 

[Recep İpek]

Sn.danersin,

Bu kodlarda benim bulduğum sonucun aynısını veriyor.
Benim yapmak istediğim .abc1...abc19...abc20'den sonra tekrar abc1'den devam etmesi.

 

[danersin]

If z > x Then GoTo 10 yerine
If z = x Then z = 0
yazsanız istediğiniz oluyormu.

 

[Recep İpek]

Şimdi tam istediğim gibi oldu.

Teşekkürler.