p>
For ib = Range ("Beg" & num). Row + 1 To ie
If Cells (ib, 1). Value = ComboBox1.Value And Cells (ib, 1). MergeCells = True Then flag = 1
Next ib
If flag = 0 Then
MsgBox "У базі немає такої країни!", vbOKOnly, "Помилка!"
Exit Sub
End If
For ib = Range ("Beg" & num). Row + 1 To ie
If Cells (ib, 1). Value = ComboBox1.Value And Cells (ib, 1). MergeCells = True Then
рядок = Cells (ib, 1). Row
Exit For
End If
Next ib
needStr = рядок + 1
Do While Cells (needStr, 1). MergeCells = False And needStr <> ie
needStr = needStr + 1
Loop
Відповідь = MsgBox ("Чи підтверджуєте видалення країни (" & ComboBox1.Value & ") і всіх її міст?", vbInformation + vbYesNo, "Увага!")
If Відповідь = vbYes Then
Range (Cells (рядок, 1), Cells (needStr - 1, 10)). Delete
Me.Hide
Exit Sub
Else
Me.Hide
Exit Sub
End IfSubSub CommandButton4_Click ()
temp = 0
num = ActiveSheet.Index
ie = Range ("End" & num). Row
If ie = 6 Then
MsgBox "Немає країн для видалення!", vbCritical, "Помилка"
Me.Hide
Exit Sub
End If
If ComboBox2.Value = "" Or ComboBox3.Value = "" Then
MsgBox "Обрано не всі дані!", vbCritical, "Помилка!"
Exit Sub
End If
flag = 0
For ib = Range ("Beg" & num). Row + 1 To ie
If Cells (ib, 1). Value = ComboBox2.Value And Cells (ib, 1). MergeCells = True Then flag = 1
Next ib
If flag = 0 Then
MsgBox "У базі немає такої країни!", vbOKOnly, "Помилка!"
Exit Sub
End If
For ib = Range ("Beg" & num). Row + 1 To ie
If Cells (ib, 1) = ComboBox2.Value And Cells (ib, 1). MergeCells = True Then
temp = ib 'початок країни
Exit For
End If
Next ib
temp = temp + 1
flag2 = 0
Do While Cells (temp, 1). MergeCells = False And temp <> Range ("End" & num). Row
If ComboBox3.Value = Cells (temp, 1). Value Then
flag2 = 1
Exit Do
End If
temp = temp + 1
Loop
If flag2 = 0 Then
MsgBox "Немає такого міста для цієї країни в списку ...", vbOKOnly, "Помилка!"
ComboBox2.Value = ""
Exit Sub
End If
Range (Cells (temp, 1), Cells (temp, 10)). Select
Відповідь = MsgBox ("Чи підтверджуєте видалення міста (" & ComboBox3.Value _
& ") країни (" & ComboBox2.Value & ")?", vbInformation + vbYesNo, "Увага!")
В
If Відповідь = vbYes Then
Selection.Delete
Me.Hide
Exit Sub
Else
Me.Hide
Exit Sub
End If
Me.HideSubSub UserForm_Activate ()
Workbooks ("Firms"). Unprotect Password: = "Firms1"
ActiveSheet.Unprotect Password: = "list...
