- Katılım
- 11 Ekim 2005
- Mesajlar
- 140
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
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