jakkop (Автор тем)

Рассылка сообщений по условию

Пользователь

Сообщений: 7 Регистрация: 14.06.2019

21.06.2019 20:37:35

Всем привет!
Есть файл с работающим макросом по рассылки сообщений по условию, но проблема с тем что он формирует сообщения с первого листа, нужно со всей книги. Не могу разобраться вот с этой частью макроса:

Код

Sub mail_30()
        iLastrow = ThisWorkbook.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
        
        For i = 2 To iLastrow
            If Sheets(1).Range("k" & i).Value = "Оправить" Then
            
                    Set OutApp = CreateObject("Outlook.Application")
                    OutApp.Session.Logon
                    On Error GoTo cleanup
                    Set OutMail = OutApp.CreateItem(0)
                    On Error Resume Next

Помогите, очень нужно...

Изменено: jakkop - 21.06.2019 21:17:46

Перейти

«Светофор» для таблицы с диапазоном дат.

jakkop

Пользователь

Сообщений: 7 Регистрация: 14.06.2019

14.06.2019 00:41:01

Всем привет. Нужна помощь. В таблице есть задача, на которую отводиться определенный период время (например, с 22.06.19 по 30.06.19). Периоды времени могут быть любыми: от 3-х дней до 2-х месяцев и больше. Ответственному исполнителю "светофором" таблица показывает, сколько времени (дней) еще осталось до даты окончания срока. Пока период не наступил ячейки "Дата начала" и "Срок выполнения" без заливки. Срок наступил - заливка ячеек "Дата начала" и "Срок выполнения" - зеленая и должна быть примерно 50% от всего периода времени, от 50% до 90% заливка - желтая. В день окончания периода времени заливка - красная.

Перейти