важаемые форумчане!
Огромная просьба помогите разобраться – цикл отказывается работать 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 |
