Kodları döngüye sokma

[serhank20]

Merhaba arkadaşlar. Bu kodları nasıl döngüye sokabilirim?

Sheets("KARNE").Cells(6, 5) = Sayfa29.Cells(6, 6)
Sheets("KARNE").Cells(6, 20) = Sayfa29.Cells(6, 10)
Sheets("KARNE").Cells(6, 35) = Sayfa29.Cells(6, 14)
Sheets("KARNE").Cells(6, 50) = Sayfa29.Cells(6, 18)
Sheets("KARNE").Cells(6, 65) = Sayfa29.Cells(6, 22)
Sheets("KARNE").Cells(6, 80) = Sayfa29.Cells(6, 26)
Sheets("KARNE").Cells(6, 95) = Sayfa29.Cells(6, 30)

Sheets("KARNE").Cells(7, 5) = Sayfa29.Cells(6, 7)
Sheets("KARNE").Cells(7, 20) = Sayfa29.Cells(6, 11)
Sheets("KARNE").Cells(7, 35) = Sayfa29.Cells(6, 15)
Sheets("KARNE").Cells(7, 50) = Sayfa29.Cells(6, 19)
Sheets("KARNE").Cells(7, 65) = Sayfa29.Cells(6, 23)
Sheets("KARNE").Cells(7, 80) = Sayfa29.Cells(6, 27)
Sheets("KARNE").Cells(7, 95) = Sayfa29.Cells(6, 31)

Sheets("KARNE").Cells(8, 5) = Sayfa29.Cells(6, 8)
Sheets("KARNE").Cells(8, 20) = Sayfa29.Cells(6, 12)
Sheets("KARNE").Cells(8, 35) = Sayfa29.Cells(6, 16)
Sheets("KARNE").Cells(8, 50) = Sayfa29.Cells(6, 20)
Sheets("KARNE").Cells(8, 65) = Sayfa29.Cells(6, 24)
Sheets("KARNE").Cells(8, 80) = Sayfa29.Cells(6, 28)
Sheets("KARNE").Cells(8, 95) = Sayfa29.Cells(6, 32)

Sheets("KARNE").Cells(9, 5) = Sayfa29.Cells(6, 9)
Sheets("KARNE").Cells(9, 20) = Sayfa29.Cells(6, 13)
Sheets("KARNE").Cells(9, 35) = Sayfa29.Cells(6, 17)
Sheets("KARNE").Cells(9, 50) = Sayfa29.Cells(6, 21)
Sheets("KARNE").Cells(9, 65) = Sayfa29.Cells(6, 25)
Sheets("KARNE").Cells(9, 80) = Sayfa29.Cells(6, 29)
Sheets("KARNE").Cells(9, 95) = Sayfa29.Cells(6, 33)

 

[EmrExcel16]

Deneyiniz..

For i = 6 To 9
    Sheets("KARNE").Cells(i, 5) = Sayfa29.Cells(6, i)
    Sheets("KARNE").Cells(i, 20) = Sayfa29.Cells(6, i + 4)
    Sheets("KARNE").Cells(i, 35) = Sayfa29.Cells(6, i + 8)
    Sheets("KARNE").Cells(i, 50) = Sayfa29.Cells(6, i + 12)
    Sheets("KARNE").Cells(i, 65) = Sayfa29.Cells(6, i + 16)
    Sheets("KARNE").Cells(i, 80) = Sayfa29.Cells(6, i + 20)
    Sheets("KARNE").Cells(i, 95) = Sayfa29.Cells(6, i + 24)
Next

 

[serhank20]

Çok teşekkür ederim. Elinize sağlık.

 

[EmrExcel16]

Çok teşekkür ederim. Elinize sağlık.

Rica ederim , iyi çalışmalar.