важаемые форумчане!
Огромная просьба помогите разобраться – цикл отказывается работать L
Макрос срабатывает по первой строке, но не переходит к следующей строке (i = i + 1), подходящей под условия (If (Cells(i, 11) Like "НАПРАВЛЯТЬ"))
Спасибо!
Огромная просьба помогите разобраться – цикл отказывается работать L
Макрос срабатывает по первой строке, но не переходит к следующей строке (i = i + 1), подходящей под условия (If (Cells(i, 11) Like "НАПРАВЛЯТЬ"))
Код |
---|
For Each cell In Columns("K").Cells.SpecialCells(xlCellTypeFormulas, xlTextValues) If (Cells(i, 11) Like "НАПРАВЛЯТЬ") Then '(cell.Value Like "НАПРАВЛЯТЬ")And cell.Offset(0, 16).Value <> "" Then Call MakeEMail(i) Worksheets("Меры").Activate Cells(i, 13).Value = Now End If cell.Offset(1, 0).Value = cell.Offset(1, 0).Value i = i + 1 Next Application.ScreenUpdating = True Application.DisplayAlerts = True MsgBox ("Напоминания по мерам отправлены.") Else MsgBox "Неверный пароль! " & vbCrLf & "Сообщения НЕ отправлены. ", vbCritical, "Ошибка." End If |