2 = 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 = Sheet.Name
Workbooks ("Main.xls"). Worksheets ("ПоіскПутевкі"). Cells (i, 2). Value = ComboBox2.Value
Workbooks ("Main.xls"). Worksheets ("ПоіскПутевкі"). Cells (i, 3). Value = ComboBox3.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"). Worksheets ("ПоіскПутевкі"). Cells (i, 8). Value =. Cells (beg, 6). Value
Workbooks ("Main.xls"). Worksheets ("ПоіскПутевкі"). Cells (i, 9). Value =. Cells (beg, 7). Value
Workbooks ("Main.xls"). Worksheets ("ПоіскПутевкі"). Cells (i, 10). Value =. Cells (beg, 8). Value
Workbooks ("Main.xls"). Worksheets ("ПоіскПутевкі"). Cells (i, 11). Value =. Cells (beg, 9). Value
Workbooks ("Main.xls"). Worksheets ("ПоіскПутевкі"). Cells (i, 12). Value =. Cells (beg, 10). Value
Оформити i, maxi
i = i + 1
Exit For
End If
End If
If flag2 = 1 And flag = 0 Then
If. Cells (beg, 5). Value> = CDbl (TextBox4.Text) _
And. Cells (beg, 5). Value <= CDbl (TextBox5.Text) Then
Workbooks ("Main.xls"). Worksheets ("ПоіскПутевкі"). Cells (i, 1). Value = Sheet.Name
Workbooks ("Main.xls"). Worksheets ("ПоіскПутевкі"). Cells (i, 2). Value = ComboBox2.Value
Workbooks ("Main.xls"). Worksheets ("ПоіскПутевкі"). Cells (i, 3). Value = ComboBox3.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"). Worksheets ("ПоіскПутевкі"). Cells (i, 8). Value =. Cells (beg, 6). Value
Workbooks ("Main.xls"). Worksheets ("ПоіскПутевкі"). Cells (i, 9). Value =. Cells (beg, 7). Value
Workbooks ("Main.xls"). Worksheets ("ПоіскПутевкі"). Cells (i, 10). Value =. Cells (beg, 8). Value
Workbooks ("Main.xls"). Worksheets ("ПоіскПутевкі"). Cells (i, 11). Value =. Cells (beg, 9). Value
Workbooks ("Main.xls"). Worksheets ("ПоіскПутевкі"). Cells (i, 12). Value =. Cells (beg, 10). Value
Оформити i, maxi
i = i + 1
Exit For
End If...
