Merhabalar,

Aşağıdaki gibi bir kod parçaçığı oluşturduk. Birden fazla döngüyü iç içe kullanamadık. Bu kodu döngülerle daha da kısaltıp uzatabilir miyiz? Şimdiden teşekkür ediyorum.

Cells(100'e kadar gidiyor)
Cells(kisi,sayac+500'e kadar gidiyor)

Sub yaz()

Dim sayac As Integer
Dim kisi As Integer

kisi = 14

For sayac = 2 To 8

Cells(21, sayac) = Cells(kisi, sayac)
Cells(22, sayac) = Cells(kisi, sayac + 7)
Cells(23, sayac) = Cells(kisi, sayac + 14)
Cells(24, sayac) = Cells(kisi, sayac + 21)
Cells(25, sayac) = Cells(kisi, sayac + 28)
Cells(26, sayac) = Cells(kisi, sayac + 35)
Cells(27, sayac) = Cells(kisi, sayac + 42)
Cells(28, sayac) = Cells(kisi, sayac + 49)
Cells(29, sayac) = Cells(kisi, sayac + 56)
Cells(30, sayac) = Cells(kisi, sayac + 63)
Cells(31, sayac) = Cells(kisi, sayac + 70)
Cells(32, sayac) = Cells(kisi, sayac + 77)
Cells(33, sayac) = Cells(kisi, sayac + 84)
Cells(34, sayac) = Cells(kisi, sayac + 91)
Cells(35, sayac) = Cells(kisi, sayac + 98)
Cells(36, sayac) = Cells(kisi, sayac + 105)
Cells(37, sayac) = Cells(kisi, sayac + 112)
Cells(38, sayac) = Cells(kisi, sayac + 119)
Cells(39, sayac) = Cells(kisi, sayac + 126)
Cells(40, sayac) = Cells(kisi, sayac + 133)
Cells(41, sayac) = Cells(kisi, sayac + 140)
Cells(42, sayac) = Cells(kisi, sayac + 147)
Cells(43, sayac) = Cells(kisi, sayac + 154)
Cells(44, sayac) = Cells(kisi, sayac + 161)
Cells(45, sayac) = Cells(kisi, sayac + 168)

Next

End Sub