Работа макроса при условии

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Работа макроса при условии (Макросы/Sub)

Павел_леваП

Дата: Воскресенье, 10.09.2017, 12:00 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 32

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Добрый день всем!

подскажите что в коде не так

[vba]

Код

Sub Кнопка1_Щелчок()

If Cells(4, 4) = "Было уже!" Then Exit Sub
If Err Then

End If

Range("A1").Select

' далее код

End Sub

[/vba]

смысл его в том, что если D4 = "Было уже!" макрос далее не выполняется.

а вот если это условие не выполняется необходимо продолжить работу макроса.

Во вложении файл пример: если удалить в столбце А:А данные, то макрос выдает ошибку т.к. не знает что дальше делать, как и я.

К сообщению приложен файл: 1883264.xlsm (18.2 Kb)

Ответить

Michael_S

Дата: Воскресенье, 10.09.2017, 12:17 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 2012

Репутация: 373 ±

Замечаний: 0% ±

Excel2016

[vba]

Код

Sub Кнопка1_Щелчок()
    On Error Resume Next
    If Cells(4, 4) = "Было уже!" Then
        If Err Then
            MsgBox "Еще не было!"
        Else
            Exit Sub
        End If
    End If
    Range("A1").Select
    ' далее код
End Sub

[/vba]