And. Cells (Str1, 1). MergeCells = False Then
. Cells (Str1, 2). Value =. Cells (Str1, 2). Value _
- CInt (Workbooks ("Main.xls"). Worksheets ("Замовлення"). Cells (temp, 16))
В
. Cells (Str1, 4). Value =. Cells (Str1, 4). Value _
- CInt (Workbooks ("Main.xls"). Worksheets ("Замовлення"). Cells (temp, 17))
Exit For
End If
'. Protect Password: = "list", DrawingObjects: = True, Contents: = True, Scenarios: = True, _
AllowFormattingCells: = True, AllowFormattingColumns: = True, AllowFormattingRows: = True
Next Str1
End With
В
'ActiveSheet.Protect Password: = "list", DrawingObjects: = True, Contents: = True, Scenarios: = True, _
AllowFormattingCells: = True, AllowFormattingColumns: = True, AllowFormattingRows: = True
'Workbooks ("Firms"). Protect Password: = "Firms1" SubDelZa ()
Workbooks ("Main.xls"). Worksheets ("Замовлення"). Activate
If Cells (4, 1) = "" Then
MsgBox "Нема чого видаляти.", vbCritical, "Помилка!"
Exit Sub
End If
Do
flag = 0
Workbooks ("Main"). Worksheets ("Замовлення"). Activate
Рядок = InputBox ("Введіть номер замовлення, який хочете видалити:", _
"Введення номера замовлення")
If Рядок = "" Then Exit Sub
If Рядок <0 Or Рядок = 0 Then
MsgBox "Немає такого номера замовлення в базі.", vbCritical, "Помилка!"
flag = 1
End If
If IsNumeric (Рядок) = False Then
MsgBox "Введіть номер замовлення у форматі числа", vbCritical, "Помилка!"
flag = 1
End If
Loop While flag = 1
i = 3
flaj = 0
Do
i = i + 1
If Cells (i, 1). Value = CInt (Рядок) Then
flaj = 1
Exit Do
End If
Loop While Cells (i, 1). Value <> ""
If flaj = 0 Then
MsgBox "У базі немає такого номера замовлення", vbCritical, "Помилка!"
Exit Sub
End If
Workbooks ("Firms"). Unprotect Password: = "Firms1"
ActiveSheet.Unprotect Password: = "list"
Відповідь = MsgBox ("Чи підтверджуєте видалення замовлення №" & Рядок & "?", vbInformation + vbYesNo, "Увага!")
If Відповідь = vbNo Then Exit Sub
ex = 1
Range (Cells (i, 1), Cells (i, 18)). Select
With 9). Value)
. Unprotect Password: = "list"
num =. Index
ie =. Range ("End" & num). Row
For ib =. Range ("Beg" & num). Row + 1 To ie
If CStr (. Cells (ib, 1). Value) = Workbooks ("Main.xls"). Worksheets ("Замовлення"). Cells (i, 10) _
And. Cells (ib, 1). MergeCells = True Then
Str1 =. Cells (ib, 1). Row
Exit For
End If
Next ib
For Str1 =. Cells (ib, 1). Row To ie
If CStr (. Cells (Str1, 1). Value) = Workbooks ("Main.xls"). Worksheets ("Замовлення"). Cells (i, 11) _
...
