Zrušení opakování inputboxu Vyřešeno
Napsal: 02 pro 2013 14:36
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.
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