был рабочий макрос:
Sub PreMacroCheck()
If IsEmpty(Range("A8")) Then 'Если ячейка "A8" пустая...
MsgBox "ИСПОЛНИТЕЛЬ?" 'Выводим сообщение.
End 'Прекращаем выполнение макроса.
Else 'Иначе, если ячейка "A8" не пустая...
If IsEmpty(Range("C8")) Then 'Проверяем ячейку "C8"...
MsgBox "ЗАКАЗЧИК?" 'Выводим другое сообщение.
End 'Прекращаем выполнение макроса.
End If 'Иначе, если ячейка "C8" не пустая, завершаются все If...
End If
End Sub 'и управление передается основной процедуре.
Sub Add_Sell()
PreMacroCheck
Worksheets("наряд").Range("B30:H30").Copy 'копируем строчку с данными из формы
n = Worksheets("отказы").Range("B100000").End(xlUp).Row 'определяем номер последней строки в табл. Продажи
Worksheets("отказы").Cells(n + 1, 1).PasteSpecial Paste:=xlPasteValues 'вставляем в следующую пустую строку
Worksheets("наряд").Range("A8,I8,A14,C8").ClearContents 'очищаем форму'...
'Debug.Print "Основная процедура выполнена."
'...
'Debug.Print "Основная процедура выполнена."
End Sub
хотел добавить контроль еще одной ячейки I8 получилось:Sub PreMacroCheck()
If IsEmpty(Range("A8")) Then 'Если ячейка "A8" пустая...
MsgBox "ИСПОЛНИТЕЛЬ?" 'Выводим сообщение.
End 'Прекращаем выполнение макроса.
Else 'Иначе, если ячейка "A8" не пустая...
If IsEmpty(Range("C8")) Then 'Проверяем ячейку "C8"...
MsgBox "ЗАКАЗЧИК?" 'Выводим другое сообщение.
End 'Прекращаем выполнение макроса.
Else 'Иначе, если ячейка "C8" не пустая...
If IsEmpty(Range("I8")) Then 'Проверяем ячейку "I8"...
MsgBox "ВИД РЕМОНТА?" 'Выводим другое сообщение.
End 'Прекращаем выполнение макроса.
End If 'Иначе, если ячейка "I8" не пустая, завершаются все If...
End If
End Sub 'и управление передается основной процедуре.
Sub Add_Sell()
PreMacroCheck
Worksheets("наряд").Range("B30:H30").Copy 'копируем строчку с данными из формы
n = Worksheets("отказы").Range("B100000").End(xlUp).Row 'определяем номер последней строки в табл. Продажи
Worksheets("отказы").Cells(n + 1, 1).PasteSpecial Paste:=xlPasteValues 'вставляем в следующую пустую строку
Worksheets("наряд").Range("A8,I8,A14,C8").ClearContents 'очищаем форму'...
'Debug.Print "Основная процедура выполнена."
'...
'Debug.Print "Основная процедура выполнена."
End Sub
Пишет ошибку: block if without if
А хотел бы еще добавить А14 для контроля.
прошу подсказать где не так
