Помогите с добавлением кода для ниже указанного макроса.
Необходим код для автоматической отправки сообщения через Outlook с текстом сообщения "срок", исполнителю при внесении в текущий лист плановой даты в столбец "I", начиная с ячейки "I9". Эл. адрес исполнителя: Ivanov@mail.ru.
Макрос
Private Sub Worksheet_Change(ByVal Target As Range)
Dim trgt_rng As Range, out_rng As Range
If Target.CountLarge > 1 Then Exit Sub
Set trgt_rng = Range([AC9], [AC9].End(xlDown))
If Not Intersect(trgt_rng, Target) Is Nothing Then
If Target.Value <> "" Then
Set out_rng = Worksheets("архив").Cells(Rows.Count, "A").End(xlUp).Offset(1)
Target.EntireRow.Copy out_rng
Target.EntireRow.Delete out_rng
End If
Exit Sub
End If
Set trgt_rng = Range([AA9], [AA9].End(xlDown))
If Not Intersect(trgt_rng, Target) Is Nothing Then
If Target.Value = "Нет" Then
Set out_rng = Worksheets("Реестр без КВЛ").Cells(Rows.Count, "A").End(xlUp).Offset(1)
Target.EntireRow.Copy out_rng
Target.EntireRow.Delete out_rng
End If
Exit Sub
End If
End Sub
Макрос в модуле листа.
[вложение удалено администратором]