). Value
Workbooks ("Main.xls"). Worksheets ("ПоіскПутевкі"). Cells (i, 12). Value =. Cells (ib, 10). Value
Оформити i, maxi
i = i + 1
Else
Exit For
End If
Next ib
End With
End If
Me.Hide
End If
'якщо обрана фірма і ціна
If ComboBox1.Value <> "" And ComboBox2.Value = "" _
And ComboBox3.Value = "" And TextBox2.Text <> "" _
And TextBox3.Text <> "" Or TextBox4.Text <> "" _
And TextBox5.Text <> "" Then
num = Workbooks ("Firms.xls"). Worksheets (ComboBox1.Value). Index
ie = Workbooks ("Firms.xls"). Worksheets (ComboBox1.Value). Range ("End" & num). Row
If ie <> 6 Then
If TextBox2.Text <> "" And TextBox3.Text <> "" Then
If IsNumeric (TextBox3.Text) = True And IsNumeric (TextBox2.Text) = True Then
If CDbl (TextBox3.Text)> CDbl (TextBox2.Text) Then
flag = 1
Else
MsgBox "Перевірте введені дані в полі Ціна.", vbCritical, "Помилка!"
Exit Sub
End If
Else
MsgBox "Поля Від і До повинні бути заповнені числами.", vbCritical, "Помилка!"
Exit Sub
End If
End If
If TextBox4.Text <> "" And TextBox5.Text <> "" Then
If IsNumeric (TextBox4.Text) = True And IsNumeric (TextBox5.Text) = True Then
If CDbl (TextBox5.Text)> CDbl (TextBox4.Text) Then
flag2 = 1
Else
MsgBox "Перевірте введені дані в полі Ціна.", vbCritical, "Помилка!"
Exit Sub
End If
Else
MsgBox "Поля Від і До повинні бути заповнені числами.", vbCritical, "Помилка!"
Exit Sub
End If
End If
With Workbooks ("Firms.xls"). Worksheets (ComboBox1.Value)
For ib =. Range ("Beg" & num). Row + 1 To ie
If. Cells (ib, 1). MergeCells = True Then
k =. Cells (ib, 1). Row
For beg = k + 1 To ie
If. Cells (beg, 1). MergeCells = False And beg <> ie Then
If flag = 1 And flag2 = 0 Then
If. Cells (beg, 3). Value> = CDbl (TextBox2.Text) _
And. Cells (beg, 3). Value <= CDbl (TextBox3.Text) Then
Workbooks ("Main.xls"). Worksheets ("ПоіскПутевкі"). Cells (i, 1). Value = ComboBox1.Value
Workbooks ("Main.xls"). Worksheets ("ПоіскПутевкі"). Cells (i, 2). Value =. Cells (k, 1). Value
Workbooks ("Main.xls"). Worksheets ("ПоіскПутевкі"). Cells (i, 3). Value =. Cells (beg, 1). Value
Workbooks ("Main.xls"). Worksheets ("ПоіскПутевкі"). Cells (i, 4). Value =. Cells (beg, 2). Value
Workbooks ("Main.xls"). Worksheets ("ПоіскПутевкі"). Cells (i, 5). Value =. Cells (beg, 3). Value
Workbooks ("Main.xls"). Worksheets ("ПоіскПутевкі"). Cells (i, 6). Value =. Cells (beg, 4). Value
Workbooks ("Main.xls"). Worksheets ("ПоіскПутевкі"). Cells (i, 7). Value =. Cells (beg, 5). Value
Workbooks ("Main.xls"). Wor...
