Do While Döngüsü (Şart Sürdükçe Dön)

Bilinmeyen Sınırlar

Listede 50 kişi mi var 500 mü bilmiyorsanız Do While kullanırsınız. En kritik kural: Sayacı (i=i+1) artırmayı unutmamaktır!

VBA Kodu:

Sub SonaKadarGit()
    Dim i As Integer: i = 1
    Do While Cells(i, 1).Value <> ""
        Cells(i, 2).Value = "Tamam"
        i = i + 1
    Loop
End Sub

Ne Göreceksiniz? A sütunundaki dolu verilerin yanına (B sütununa) boş bir satıra denk gelene kadar "Tamam" yazılacaktır.