Döngü Oluşturma

[excelman]

Merhabalar,

Test sayfasındaki D513 satırlarını şablon sayfasına C4:J4 aralığına
D1624 satırlarını şablon sayfasına K4:R4 aralığına ..... kopyalamak istiyorum.
Burdaki döngü şu test sayfasında d5 sütunundan başlayarak 9 satır kopyalıyor şablon sayfasında ise C4 satırından başlayarak yapıştırıyor.

Her kopyalamadan sonra 2 satır atlıyor ve yeniden 9 satır kopyalıyor şablon sayfasına yapıştırırken de 9 sütun atlayıp yapıştırmaya devam edecek.

Bunun için nasıl bir dögü oluşturabilirim?

 

[veyselemre]

[vb:1:333f267f1f]Sub aKTAR()
Set sT = Sheets("Test")
Set sS = Sheets("Şablon")
sS.Select
son = [a65536].End(3).Row + 1

If [a4] = "" Then
[a4] = 1
Else
Cells(son, 1) = Cells(son - 1, 1) + 1
End If
sut = 3
For x = 5 To 60 Step 11
For y = 0 To 7
Cells(son, sut) = sT.Cells(x + y, "d")
sut = sut + 1
Next y
Next x
sT.Select
End Sub[/vb:1:333f267f1f]

 

[excelman]

Sayın veyselemre cevabınız için teşekkür ederim.

Fakat takıldığım bir nokta var.Satırları çoğaltmak istesem ne yapmam gerek?

For x = 5 To 60 Step 11

Bir de bu formüldeki mantık nedir açıklayabilirmisiniz?

 

[veyselemre]

'Soru sayısını 1 arttırdığınızı düşündüğümüzde,
For x = 5 To 60 Step 11 '=> for x=5 to 65 step 12
For y = 0 To 7 '=> for y=0 to 8
yapın.


Döngüdeki mantık ise 5 den başlayarak 11 şer arttırarak her sorunun bulunduğu ilk satırı elde ediyoruz.

 

[excelman]

Sayın veyselemre çok teşekkürler.