x2.Value). Cells (k, 1). MergeCells = False And k <> Workbooks ("Firms"). Worksheets (ComboBox2.Value) . Range ("End" & num). Row
ComboBox1.AddItem Workbooks ("Firms"). Worksheets (ComboBox2.Value). Cells (k, 1). Value
k = k + 1
LoopSubSub CommandButton2_Click ()
If txt1.Value = "" Or txt2.Value = "" Or txt3.Value = "" Or txt5.Value = "" Or _
TextBox2.Value = "" Then
MsgBox "Ви ввели неповну інформацію у розділі Особисті дані!", vbCritical, "Помилка!"
Exit Sub
End If
If DTPicker1.Value> Date Then
MsgBox "Ви з майбутнього? Введіть правильну дату. ", VbCritical," Помилка! "p> Exit Sub
End If
If IsNumeric (txt5.Value) = False Then
MsgBox "Неправильний формат даних у поле Телефон!", vbCritical, "Помилка!"
Exit Sub
End If
If obm.Value = False And obj.Value = False Then
MsgBox "Виберіть один з варіантів в розділі Стать!", vbCritical, "Помилка!"
Exit Sub
End If
If chb3.Value = True Then
If txt6.Value = "" Or txt7.Value = "" Then
MsgBox "Введіть всі дані в розділі Паспортні дані!", vbCritical, "Помилка!"
Exit Sub
End If
End If
If txt6.Text <> "" And IsNumeric (txt6.Text) = False _
Or txt7.Text <> "" And IsNumeric (txt7.Text) = False Then
MsgBox "Неправильний тип даних у розділі Паспортні дані!", vbCritical, "Помилка!"
Exit Sub
End If
If ComboBox1.Value = "" Or ComboBox2.Value = "" Or ComboBox3.Value = "" Then
MsgBox "Виберіть всі необхідні дані в розділі Путівок", vbCritical, "Помилка!"
Exit Sub
End If
If TextBox3.Text = "0" Or TextBox4.Text = "0" Then
MsgBox "Всі місця на дані путівки розпродані.", vbCritical, "Помилка!"
Exit Sub
End If
If TextBox8.Value = "" And TextBox9.Value = "" Then
MsgBox "Не введене кількість місць.", vbCritical, "Помилка!"
Exit Sub
End If
If CInt (TextBox8.Value) <0 Or CInt (TextBox9.Value) <0 Then
MsgBox "Помилка при введенні кількості місць.", vbCritical, "Помилка!"
Exit Sub
End If
If CInt (TextBox8.Value)> CInt (TextBox3.Value) Or CInt (TextBox9.Value)> CInt (TextBox4.Value) Then
MsgBox "Введене кількість місць перевищує вихідні.", vbCritical, "Помилка!"
Exit Sub
End If
If TextBox8.Text = "" Then TextBox8.Text = 0
If TextBox9.Text = "" Then TextBox9.Text = 0
If TextBox8.Text = "" And TextBox9.Text = "" Then
MsgBox "Введіть кількості місць, відмінних від нуля", vbCritical, "Помилка!"
Exit Sub
End If
i = Selection.Row
Cells (i, 2). Value = CStr (txt1.Text)
Cells (i, 3). Value = CStr (txt2.Text)
Cells (i, 4). Value = CStr (txt3.Text)
Cells (i, 6). Value = DTPicker1.Value
Cells (i...
