Döngüde takıldığım bir yer var.

[kenangulal]

Arkadaşlar merhaba,
döngü konusunda çalışıyorum takıldığım bir nokta var yardımcı olursanız sevinirim. aşağıdaki kod 5. satırdan başlayıp k2 değerine ulaşıncaya kadar aşağı yazıyor, ancak i değeri satır aralığını belirliyor bense başladığı satırı ve ulaşmasını istediğim adedi adamak istiyorum nasıl bir değişiklik yapmam gerekiyor.


Sub altayapıstır()
Dim i As Integer

For i = 5 To range("k2")
Cells(i, 2).Value = Range("b2")
Cells(i, 3).Value = Range("c2")
Cells(i, 4).Value = Range("d2")
Cells(i, 5).Value = Range("e2")
Cells(i, 6).Value = Range("f2")
Cells(i, 7).Value = Range("g2")
Cells(i, 8).Value = Range("h2")
Cells(i, 9).Value = Range("ı2")
Cells(i, 10).Value = Range("j2")
Next i
End Sub

 

[zafer]

Merhaba

Adedi adamak tan kastınızı anlayamadım fakat

yapmak istediğiniz şağıdaki gibimi

sub aa()
For i = 5 To range("k2")
For y = 2 To range("k2")
Cells(i, y).Value = Cells(2, y)
Next
Next

End sub

 

[kenangulal]

Sayın zafer merhaba,
Yapmak istediğim döngüyü 5 nolu satırdan başlatıp k2 değeri kadar aşağı yönde doldurmak ( k2 = 10 ise 5 nolu satırdan başlayıp aşağıya 10 tane Range("b2") yazsın yapmak istediğim budur.) teşekkürler.
Syg.

 

[zafer]

sub aa()

say= range("k2")
For i = 5 To say +5
For y = 2 To say
Cells(i, y).Value = Cells(2, y)
Next
Next

End sub

 

[kenangulal]

Aşağıdaki kod istediğim gibi çalışıyor yardımlarınız ve emeğiniz için teşekkür ederim.
syg.

Sub altayapıstır()
Dim i As Integer
say = Range("j2")
For i = 5 To say + 4
Cells(i, 2).Value = Range("b2")
Cells(i, 3).Value = Range("c2")
Cells(i, 4).Value = Range("d2")
Cells(i, 5).Value = Range("e2")
Cells(i, 6).Value = Range("f2")
Cells(i, 7).Value = Range("g2")
Cells(i, 8).Value = Range("h2")
Cells(i, 9).Value = Range("ı2")
Cells(i, 10).Value = Range("j2")
Next i
End Sub