амовлення"). Cells (rowneed, 15). Value
. Worksheets ("ВихФорма"). Cells (18, 2). Value =. Worksheets ("Замовлення"). Cells (rowneed, 16). Value
. Worksheets ("ВихФорма"). Cells (19, 2). Value =. Worksheets ("Замовлення"). Cells (rowneed, 17). Value
. Worksheets ("ВихФорма"). Cells (20, 2). Value =. Worksheets ("Замовлення"). Cells (rowneed, 18). Value
. Worksheets ("ВихФорма"). Activate
'. Worksheets ("ВихФорма"). Protect Password: = "list", DrawingObjects: = True, Contents: = True, Scenarios: = True, _
AllowFormattingCells: = True, AllowFormattingColumns: = True, AllowFormattingRows: = True
End With
Me.HideSubSub UserForm_Activate ()
ActiveSheet.Unprotect Password: = "list" SubSub UserForm_Deactivate ()
ActiveSheet.Protect Password: = "list" SubSub UserForm_Initialize ()
txt6.MaxLength = 4
txt7.MaxLength = 6
DTPicker1.MaxDate = Now
DTPicker1.MinDate = "01.01.1900"
For Each Sheet In Workbooks ("Firms"). Worksheets
If Sheet.Name <> "1" Then
ComboBox2.AddItem Sheet.Name
End If
Next Sheet
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox10.Text = "" SubSub UserForm_QueryClose (Cancel As Integer, CloseMode As Integer)
If Cancel = 0 Then ex = 0Sub
// Workbook (Main.xls) Форма Main
Private Sub CommandButton18_Click ()
Me.Hide
Workbooks ("Main.xls"). Worksheets ("ПоіскПутевкі"). Activate
i = 4
Do
If i = 4 And Cells (i, 1). Value = "" Then Exit Do
i = i + 1
Loop While Cells (i, 1). Value <> ""
Range (Cells (4, 1), Cells (i, 12)). Delete
Find.ShowSubSub CommandButton10_Click ()
Me.Hide
NewZaSubSub CommandButton13_Click ()
Me.Hide
EditZaSubSub CommandButton16_Click ()
Me.Hide
DelZaSubSub CommandButton17_Click ()
Dim sav As Integer
If Workbooks ("Firms.xls"). Saved = False Or Workbooks ("Main.xls"). Saved = False Then
sav = MsgBox ("Зберегти і вийти?", vbYesNo + vbInformation, "Увага!")
If sav = vbNo Then Exit Sub
If sav = vbYes Then
Workbooks ("Firms.xls"). Save
Workbooks ("Main.xls"). Save
Application.Quit
End If
End IfSubSub CommandButton3_Click ()
Workbooks ("Firms.xls"). Activate
Workbooks ("Firms.xls"). Worksheets ("1"). Activate
Me.HideSubSub CommandButton4_Click ()
Me.Hide
Workbooks ("Main.xls"). Worksheets ("СпісокФірм"). ActivateSubSub CommandButton5_Click ()
Workbooks ("Main.xls"). Worksheets ("Замовлення"). Activate
Me.HideSubSub CommandButton6_Click ()
Workbooks ("Main.xls"). Worksheets ("ПоіскПутевкі"). Activate
Me.HideSubSub CommandButton7_Cli...
