Уведомления о подходящем сроке окончания действия

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Уведомления о подходящем сроке окончания действия (Условное Форматирование/Conditional Formattings)

Treee

Дата: Четверг, 06.10.2022, 10:52 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

Репутация: 0 ±

Замечаний: 20% ±

Доброго дня! На форуме полазил, но так и не понял как реализовать. Суть вопроса, есть файлик exсel, в него планируется внесение данных: ФИО сотрудников, Отделение, Дата начала и Дата окончания, не могу понять как автоматизировать уведомления, которые бы оповещали за неделю до конца даты окончания. Это вообще возможно? Заранее благодарю

К сообщению приложен файл: 4554184.xlsx (12.3 Kb)

Ответить

Nic70y

Дата: Четверг, 06.10.2022, 10:56 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 9006

Репутация: 2369 ±

Замечаний: 0% ±

Excel 2010

Цитата Treee, 06.10.2022 в 10:52, в сообщении № 1 (

)

уведомления

что вы имеете в виду? подсветка? или что-то другое?

Цитата Treee, 06.10.2022 в 10:52, в сообщении № 1 (

)

за неделю

а за 6 дней уже не уведомляли?

ЮMoney 41001841029809

Ответить

Treee

Дата: Четверг, 06.10.2022, 11:14 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

Репутация: 0 ±

Замечаний: 20% ±

С подсветкой я баловался, но хотель бы чтобы какое-то уведомление всплывало, типа "Иванов Иван Иванович срок окончания действий подходит через 7 дней" или еще лучше чтобы на почту письмо приходило (если это не сложно реализовать)

Ответить

Treee

Дата: Четверг, 06.10.2022, 11:20 | Сообщение № 4

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

Репутация: 0 ±

Замечаний: 20% ±

Цитата Nic70y, 06.10.2022 в 10:56, в сообщении № 2 (

)

а за 6 дней уже не уведомляли?

Лучше за 7

Ответить

Nic70y

Дата: Четверг, 06.10.2022, 11:49 | Сообщение № 5

Группа: Друзья

Ранг: Экселист

Сообщений: 9006

Репутация: 2369 ±

Замечаний: 0% ±

Excel 2010

Цитата Treee, 06.10.2022 в 11:20, в сообщении № 4 (

)

Лучше за 7

вы видимо меня не поняли или я вас.
ладно, если что допилите.
событие - открытие файла, модуль книги
[vba]

Код

Private Sub Workbook_Open()
    Application.ScreenUpdating = False
    u = Date + 7
    v = ""
    For Each c In Range("Таблица3[Дата окончания действия]")
        If c = u Then
            a = c.Offset(0, -5).Value
            b = c.Offset(0, -4).Value
            c = c.Offset(0, -3).Value
            d = a & " " & b & " " & c
            v = v & Chr(10) & d
        End If
    Next
    Application.ScreenUpdating = True
    MsgBox v
End Sub

[/vba]

К сообщению приложен файл: 4554184-1-.xlsm (19.2 Kb)

ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Четверг, 06.10.2022, 11:50

Ответить

Treee

Дата: Четверг, 06.10.2022, 12:20 | Сообщение № 6

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

Репутация: 0 ±

Замечаний: 20% ±

Огромнейшее Вам спасибо hands

А это где искать?

Цитата Nic70y, 06.10.2022 в 11:49, в сообщении № 5 (

)

событие - открытие файла, модуль книги

Ответить

Serge_007

Дата: Четверг, 06.10.2022, 12:24 | Сообщение № 7

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Цитата Treee, 06.10.2022 в 12:20, в сообщении № 6 (

)

это где искать?

Что такое макросы VBA в Excel?

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Treee

Дата: Четверг, 06.10.2022, 12:51 | Сообщение № 8

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

Репутация: 0 ±

Замечаний: 20% ±

Цитата Serge_007, 06.10.2022 в 12:24, в сообщении № 7 (

)

Что такое макросы VBA в Excel?

Ознакомлюсь. Спасибо yes

Ответить

Treee

Дата: Четверг, 06.10.2022, 12:54 | Сообщение № 9

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

Репутация: 0 ±

Замечаний: 20% ±

Тогда, чтобы тем на форуме не плодить, хочу еще поинтересоваться, можно ли сделать так, чтобы эти уведомления как-то на почту приходили? Может где-то ссылка есть на разбор таких тем на форуме