Excel VBA Макросы: Как запретить переход на следующий лист, если на текущем не установлен переключатель?

Автор Посетитель, 09 июля 2019, 10:54

Посетитель

На листе находятся несколько переключателей (элементы управления формы).
Переключатели привязаны к ячейке A1.
На листе есть кнопка. Когда юзер щёлкает кнопку, макрос должен перейти на следующий лист.

Как сделать следующее. Если в A1 0, то должно появиться сообщение и макрос не должен переходить на следующий лист.

Я написал код, сообщение появляется, но происходит переход на следующий лист, не смотря на то, что в A1 0. Что изменить в этом коде, чтобы не было перехода, пока в A1 не появится другое значение (1, 2, 3, 4)?

Private Sub CommandButton1_Click()
  If Range("A1") = 0 Then MsgBox "Ошибка"
  Worksheets("Вопрос 2").Activate
End Sub

Администратор

Private Sub CommandButton1_Click()
    If Range("A1") = 0 Then
        MsgBox "Ошибка"
        Exit Sub
    End If
    Worksheets("Вопрос 2").Activate
End Sub