Zrušení opakování inputboxu Vyřešeno

[Jsimi]

Ahoj,
Potřeboval bych poradit co mám špatně. Pomocí inputboxu zadávám hodnoty do řádku. Problém je v tom že se stále cyklicky opakuje dokud nedám cancel, ale já bych chtěl, aby se po zadání poslední hodnoty ukončil, nebo se případně zeptal zda budu pokračovat.
Předem díky za radu.

Kód: Vybrat vše

Sub Zaoblenýobdélník4_Klepnutí()
'Doplnění výrobku do norem

   
    Dim DalsiRadek As Long
    Dim Zadani1 As String, Zadani2 As String, Zadani3 As String, Zadani4 As String, Zadani5 As String
    Do
        ' Stanovit následující prázdný řádek
        DalsiRadek = Cells(Rows.Count, 6).End(xlUp).Row + 1

        ' Vyzvat k zadání údajů
        'Zadani1 = InputBox("Zadej pořadové číslo")
        'If Zadani1 = "" Then Exit Sub
        Zadani2 = InputBox("Zadej pořadové číslo")
        If Zadani2 = "" Then Exit Sub
        Zadani3 = InputBox("Zadej pořadí")
        If Zadani3 = "" Then Exit Sub
        Zadani4 = InputBox("Zadej normu na hodinu")
        If Zadani4 = "" Then Exit Sub
        Zadani5 = InputBox("Zadej název normy")
        If Zadani5 = "" Then Exit Sub
        Zadani6 = InputBox("Zadej číslo normy")
        If Zadani6 = "" Then Exit Sub

        ' Zapsat data
        'Cells(DalsiRadek, 1) = Zadani1
        Cells(DalsiRadek, 2) = Zadani2
        Cells(DalsiRadek, 3) = Zadani3
        Cells(DalsiRadek, 4) = Zadani4
        Cells(DalsiRadek, 5) = Zadani5
        Cells(DalsiRadek, 6) = Zadani6
       
    Loop
   
 'End With
 End Sub

[Reklama]

[cmuch]

Před Loop vlož toto

Kód: Vybrat vše

If MsgBox("Zadavat znovu ? ", vbYesNo, "Hlaseni") = vbNo Then Exit Sub

Pokud bys to chtěl bez otázky tak zruš Do a Loop

[Jsimi]

Moc děkuji za radu.