Друзья, доброй ночи.
Подскажите как решить проблему с перебором ячеек и остановкой макроса при совпадении с необходимыми условиями, голова деревянная не могу решить своим умом. Для примера сделать такой код и вложил файл, не судите строго на что хватило фантазии...
Фактически код не правильный это ясно, даёт ошибку Compile error: End If Withhout Block If. Какими методами возможно решить проблему, возможно другими способами?
Спасибо.
Подскажите как решить проблему с перебором ячеек и остановкой макроса при совпадении с необходимыми условиями, голова деревянная не могу решить своим умом. Для примера сделать такой код и вложил файл, не судите строго на что хватило фантазии...
Код |
---|
Sub Макрос1() '01.04.2019 If Range("B2") And Range("C2") > 0 Then 'выходим перебираем дальше End If If Range("B2") And Range("C2") = 0 Then 'выходим перебираем дальше End If If Range("B2") = 0 And Range("C2") > 0 Then MsgBox ("Не перенесены данные за 01.04.2019") 'выходим перебираем дальше End If Range("A2").Select 'выходим перебираем дальше End If '02.04.2019 If Range("B3") And Range("C3") > 0 Then 'выходим перебираем дальше End If If Range("B3") And Range("C3") = 0 Then 'выходим перебираем дальше End If If Range("B3") = 0 And Range("C3") > 0 Then MsgBox ("Не перенесены данные за 02.04.2019") Range("A3").Select 'останавливаемся в A3 End If '03.04.2019 If Range("B3") And Range("C3") > 0 Then End If If Range("B3") And Range("C3") = 0 Then End If If Range("B3") = 0 And Range("C3") > 0 Then MsgBox ("Не перенесены данные за 02.04.2019") Range("A3").Select End If 'и т.д. по датам... End Sub |
Фактически код не правильный это ясно, даёт ошибку Compile error: End If Withhout Block If. Какими методами возможно решить проблему, возможно другими способами?
Спасибо.