B10 Hücresi boşalana kadar işleme devam eden bir döngü

[harziyan]

S.A. Arkadaşlar;
Aşağıda çalışan kodun tek seferde "B10" hücresi boşalana kadar çalışmasını istiyorum, yardımcı olabilir misiniz?

Private Sub CommandButton11_Click()
    
    If Sheets("Veri").Range("b10") = "" Then
        MsgBox "Yazdırılacak Sera Yok!"
    Exit Sub
    Else
        Sheets("form").Range("h7").Value = Sheets("veri").Range("d1").Value
        Sheets("form").Range("c11").Value = Sheets("veri").Range("d3").Value
        Sheets("form").Range("p11").Value = Sheets("veri").Range("d6").Value
        Sheets("form").Range("E15").Value = Sheets("veri").Range("d8").Value
        Sheets("form").Range("X15").Value = Sheets("veri").Range("I6").Value
        Sheets("form").Range("c25").Value = Sheets("veri").Range("i11").Value
        Sheets("form").Range("n25").Value = Sheets("veri").Range("i12").Value
        Sheets("form").Range("w25").Value = Sheets("veri").Range("i13").Value
        Sheets("form").Range("i25").Value = Sheets("veri").Range("J11").Value
        Sheets("form").Range("R25").Value = Sheets("veri").Range("J12").Value
        Sheets("form").Range("AA25").Value = Sheets("veri").Range("J13").Value
        Sheets("form").Range("u29").Value = Sheets("veri").Range("h11").Value
        Sheets("form").Range("s36").Value = Sheets("veri").Range("g11").Value
        Sheets("form").Range("q42").Value = Sheets("veri").Range("c10").Value
        Sheets("form").Range("w3").Value = Sheets("veri").Range("b10").Value
        Sheets("form").Range("m76").Value = Sheets("veri").Range("d10").Value
    
        Sheets("Form").Select
        ActiveWindow.SelectedSheets.PrintOut Copies:=1
        Sheets("Veri").Select
        Satir = Range("B10").End(4).Row
        Rows("10:" & Satir - 1).EntireRow.Delete
    End If
End Sub

 

[harziyan]

Teşekkür ederim, sorunumu deneme yanılma yoluyla hallettim...

Private Sub CommandButton11_Click()
    Sheets("Veri").Range("b10").Select
    If IsEmpty(ActiveCell) Then Exit Sub
    Do Until IsEmpty(ActiveCell)
        Sheets("form").Range("h7").Value = Sheets("veri").Range("d1").Value
        Sheets("form").Range("c11").Value = Sheets("veri").Range("d3").Value
        Sheets("form").Range("p11").Value = Sheets("veri").Range("d6").Value
        Sheets("form").Range("E15").Value = Sheets("veri").Range("d8").Value
        Sheets("form").Range("X15").Value = Sheets("veri").Range("I6").Value
        Sheets("form").Range("c25").Value = Sheets("veri").Range("i11").Value
        Sheets("form").Range("n25").Value = Sheets("veri").Range("i12").Value
        Sheets("form").Range("w25").Value = Sheets("veri").Range("i13").Value
        Sheets("form").Range("i25").Value = Sheets("veri").Range("J11").Value
        Sheets("form").Range("R25").Value = Sheets("veri").Range("J12").Value
        Sheets("form").Range("AA25").Value = Sheets("veri").Range("J13").Value
        Sheets("form").Range("u29").Value = Sheets("veri").Range("h11").Value
        Sheets("form").Range("s36").Value = Sheets("veri").Range("g11").Value
        Sheets("form").Range("q42").Value = Sheets("veri").Range("c10").Value
        Sheets("form").Range("w3").Value = Sheets("veri").Range("b10").Value
        Sheets("form").Range("m76").Value = Sheets("veri").Range("d10").Value
    
        Sheets("Form").Select
        ActiveWindow.SelectedSheets.PrintOut Copies:=1
        Sheets("Veri").Select
        Satir = Range("B10").End(4).Row
        Rows("10:" & Satir - 1).EntireRow.Delete
    Loop
End Sub