Добрый день. У меня огромная просьба. Не могу понять как сделать уведомление. Тут нашел уже множество подобных тем,но так и не понял как это сделать. Суть: На листе №2 есть различные организации списком(их много). От них поступают документы в определенный день. У нас эти документы должны побыть n-е количество дней. Нужно,что бы на Листе №1 выходило уведомление о том,что нужная дата наступила.
Заранее огромное спасибо.
Добрый день. У меня огромная просьба. Не могу понять как сделать уведомление. Тут нашел уже множество подобных тем,но так и не понял как это сделать. Суть: На листе №2 есть различные организации списком(их много). От них поступают документы в определенный день. У нас эти документы должны побыть n-е количество дней. Нужно,что бы на Листе №1 выходило уведомление о том,что нужная дата наступила.
Private Sub test() Dim d&, i&, n&, Dn&, D8&, D7&, mR As Range, ORG$ d = 100000 n = ActiveSheet.UsedRange.Rows.Count Dn = Int(Now()) For i = 2 To n If IsDate(Cells(i, 8)) Then D8 = Cells(i, 8) If D8 >= Dn And D8 - Dn < d Then d = D8 - Dn: Set mR = Cells(i, 8) End If Next 'ORGANIZATION SEARCH i = 0 Do Until Len(Cells(mR.Row - i, 1)) > 0 Or mR.Row - i = 1 i = i + 1 If Len(Cells(mR.Row - i, 1)) > 0 Then ORG = Cells(mR.Row - i, 1) Loop
If d > 0 Then MsgBox "Ближайшая дата:" & vbCr & mR.Value & vbCr & "Наступит через " & d & " дня/ей" & vbCr & ORG If d = 0 Then MsgBox "Ближайшая дата - сегодня " & mR.Value & vbCr & ORG mR.Select End Sub
Private Sub test() Dim d&, i&, n&, Dn&, D8&, D7&, mR As Range, ORG$ d = 100000 n = ActiveSheet.UsedRange.Rows.Count Dn = Int(Now()) For i = 2 To n If IsDate(Cells(i, 8)) Then D8 = Cells(i, 8) If D8 >= Dn And D8 - Dn < d Then d = D8 - Dn: Set mR = Cells(i, 8) End If Next 'ORGANIZATION SEARCH i = 0 Do Until Len(Cells(mR.Row - i, 1)) > 0 Or mR.Row - i = 1 i = i + 1 If Len(Cells(mR.Row - i, 1)) > 0 Then ORG = Cells(mR.Row - i, 1) Loop
If d > 0 Then MsgBox "Ближайшая дата:" & vbCr & mR.Value & vbCr & "Наступит через " & d & " дня/ей" & vbCr & ORG If d = 0 Then MsgBox "Ближайшая дата - сегодня " & mR.Value & vbCr & ORG mR.Select End Sub
Не совсем так, как Вы хотели (названия организации не выводит, просто сообщение о том, что сегодняшняя дата есть и автоматическим выделением этой даты жирным красным). Сделано условным форматированием.
Не совсем так, как Вы хотели (названия организации не выводит, просто сообщение о том, что сегодняшняя дата есть и автоматическим выделением этой даты жирным красным). Сделано условным форматированием._Boroda_
Спасибо. Но все таки,как можно сделать что бы был выход названия организации. Просто список будет большой. Порядка 40-50 организаций. И еще,скажите пожалуйста,как вы сделали именно этот вариант. Хотелось бы самому,без посторонней помощи, создавать такие уведомления.
Спасибо. Но все таки,как можно сделать что бы был выход названия организации. Просто список будет большой. Порядка 40-50 организаций. И еще,скажите пожалуйста,как вы сделали именно этот вариант. Хотелось бы самому,без посторонней помощи, создавать такие уведомления.Nikopol
Сообщение отредактировал Serge_007 - Четверг, 09.02.2023, 13:33
Добрый день, помогите сделать уведомление по датам о просрочке, чтоб за 2 месяца до окончания сроков выходило уведомление. Образец файла направляю. Спасибо.
Добрый день, помогите сделать уведомление по датам о просрочке, чтоб за 2 месяца до окончания сроков выходило уведомление. Образец файла направляю. Спасибо.Новичек8508
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
:
