iç içe döngüde bir çözüm istiyorum

[snskutlu]

Merhaba arkadaşlar!..

Sayfa1 deki A1 den A20 ye kadar olan hücrelerdeki değerleri
Sayfa2 ye A1 den başalayıp hücre atlayarak (step 2) adımla 1 NOLU SATIR boyunca aktarmak istiyorum. Gerekli döngüyü kuramadım.

Teşekkür ederim.

 

[Orion1]

Aşağıdaki kodları deneyiniz.

Sub aktar()
dim i as byte
Sheets("Sayfa2").Select
Sheets("Sayfa2").Range(Cells(1, 1), Cells(1, 40)).ClearContents
Sheets("Sayfa1").Select
For i = 1 To 20
    Sheets("Sayfa2").Cells(1, (i * 2) - 1).Value = Cells(i, "A").Value
Next i
MsgBox "Aktarma Tamamlandı..!!", vbOKOnly + vbInformation
End Sub