e
Cells (i, 15). Value = "Не здано"
End If
If chb3.Value = True Then
Cells (i, 12). Value = "Так"
Else
Cells (i, 12). Value = "Ні"
End If
Cells (i, 13). Value = CStr (txt6.Text & "," & txt7.Text)
Cells (i, 10). Value = CStr (ComboBox3.Value)
Cells (i, 9). Value = CStr (ComboBox2.Value)
Cells (i, 11). Value = CStr (ComboBox1.Value)
var1 = TextBox8.Text * TextBox5.Text
var2 = TextBox9.Text * TextBox6.Text
var3 = TextBox7.Text * (CInt (TextBox8.Text) + CInt (TextBox9.Text))
Cells (i, 18). Value = var1 + var2 + var3
колвз = TextBox8.Text
колдт = TextBox9.Text
Cells (i, 16). Value = TextBox8.Text
Cells (i, 17). Value = TextBox9.Text
If TextBox3.Text = "0" Or TextBox4.Text = "0" Then
Exit Sub
End If
rowneed = Selection.Row
i = 3
Do
i = i + 1
Loop While Workbooks ("Main.xls"). Worksheets ("Замовлення"). Cells (i, 1). Value <> ""
If Cells (4, 1). Value = "" Then
num = 1
Else
num = Workbooks ("Main.xls"). Worksheets ("Замовлення"). Cells (i - 1, 1). Value + 1
End If
With Workbooks ("Main.xls")
. Worksheets ("ВихФорма"). Unprotect Password: = "list"
. Worksheets ("ВихФорма"). Cells (3, 2). Value =. Worksheets ("Замовлення"). Cells (rowneed, 1). Value
. Worksheets ("ВихФорма"). Cells (4, 2). Value =. Worksheets ("Замовлення"). Cells (rowneed, 2). Value
. Worksheets ("ВихФорма"). Cells (5, 2). Value =. Worksheets ("Замовлення"). Cells (rowneed, 3). Value
. Worksheets ("ВихФорма"). Cells (6, 2). Value =. Worksheets ("Замовлення"). Cells (rowneed, 4). Value
. Worksheets ("ВихФорма"). Cells (7, 2). Value =. Worksheets ("Замовлення"). Cells (rowneed, 5). Value
. Worksheets ("ВихФорма"). Cells (8, 2). Value =. Worksheets ("Замовлення"). Cells (rowneed, 6). Value
. Worksheets ("ВихФорма"). Cells (9, 2). Value =. Worksheets ("Замовлення"). Cells (rowneed, 7). Value
. Worksheets ("ВихФорма"). Cells (10, 2). Value =. Worksheets ("Замовлення"). Cells (rowneed, 8). Value
. Worksheets ("ВихФорма"). Cells (11, 2). Value =. Worksheets ("Замовлення"). Cells (rowneed, 9). Value
. Worksheets ("ВихФорма"). Cells (12, 2). Value =. Worksheets ("Замовлення"). Cells (rowneed, 10). Value
. Worksheets ("ВихФорма"). Cells (13, 2). Value =. Worksheets ("Замовлення"). Cells (rowneed, 11). Value
. Worksheets ("ВихФорма"). Cells (14, 2). Value =. Worksheets ("Замовлення"). Cells (rowneed, 12). Value
. Worksheets ("ВихФорма"). Cells (15, 2). Value =. Worksheets ("Замовлення"). Cells (rowneed, 13). Value
. Worksheets ("ВихФорма"). Cells (16, 2). Value =. Worksheets ("Замовлення"). Cells (rowneed, 14). Value
. Worksheets ("ВихФорма"). Cells (17, 2). Value =. Worksheets ("З...