For...Next Döngüsü: Klasik Tekrar

Sayılı Tekrarlar

Sayaç mantığıyla çalışır. Başlangıç ve bitiş noktasını verdiğinizde arasındaki sayıları sırayla döner.

VBA Kodu:

Sub AltAltaYaz()
    Dim i As Integer
    For i = 1 To 5
        Cells(i, 1).Value = "Satır No: " & i
    Next i
End Sub

Ne Göreceksiniz? A sütununda 1. satırdan 5. satıra kadar aşağı inerek hücre içlerine numaralarını yazacaktır.