Добрый день! Подскажите, пожалуйста, одну вещь.
Есть макрос, который разбит на три процедуры. Процедуры запускаются отдельной процедурой:
Sub Start()
Call Proc1
Call Proc2
Call Proc3
End Sub
В середине Второй процедуры провожу проверку наличия на листе ошибки #Н/Д. При обнаружении - процедура прекращается. Код там такой:
Set ND = IzbrSvod.Range(Cells(2, ColEnd + 1), Cells(RowEnd ColEnd + 5)).Find("#N/A", , xlValues, xlPart)
If ND Is Nothing Then
Else
MsgBox "Отсутствуют необходимые значения. Программа будет прекращена", vbExclamation, "Внимание!"
Exit Sub
End If
Всё работает нормально, если запускать отдельно процедуру. Если же запускать макрос целиком, то при наличии ошибки далее пойдет выполнение Третьей процедуры.
Как прекратить все процедуры в модуле при наступлении условия ND?
Есть макрос, который разбит на три процедуры. Процедуры запускаются отдельной процедурой:
Sub Start()
Call Proc1
Call Proc2
Call Proc3
End Sub
В середине Второй процедуры провожу проверку наличия на листе ошибки #Н/Д. При обнаружении - процедура прекращается. Код там такой:
Set ND = IzbrSvod.Range(Cells(2, ColEnd + 1), Cells(RowEnd ColEnd + 5)).Find("#N/A", , xlValues, xlPart)
If ND Is Nothing Then
Else
MsgBox "Отсутствуют необходимые значения. Программа будет прекращена", vbExclamation, "Внимание!"
Exit Sub
End If
Всё работает нормально, если запускать отдельно процедуру. Если же запускать макрос целиком, то при наличии ошибки далее пойдет выполнение Третьей процедуры.
Как прекратить все процедуры в модуле при наступлении условия ND?