Спасибооо!!! Все работает как надо! Ты молодец, выручил!

Спасибо, отлично! Может ты мне поможешь осуществить самую главную задачу, которую описал выше!!! Видишь прога выводит просто тупо все даты которые меньше сегодняшней (.т.е срок вышел), а мне не надо чтобы все выводило! надо чтобы у такой просроченой даты проверялась ячейка справа на наличие текста "В деле" (либо можно просто проверять пустая ли смежная ячейка справа, если там нет текста, значит документ просрочен, выводим на экран Msgbox), если такой есть значит она выводится уже по основному условию как просроченая! а если в ней есть другой тексст то она уже не может быть просрочена, потому что ответ на документ пришел вовремя и я его сам вбил вручную! Понимаешь меня?

Друг, вообщем щас тщательно все проверил. Код который ты написал подходит, единстаенное знак > я поменял на < . Далее столкнулся с такой проблемой, щас в целом обрисую:

При поиске в диапазоне iDate нужно немного урезать поиск,т.к он мне выводит лишние даты которые не являются просрочеными(зависит это все от того, что в смежной ячейке справа стоит информация с номером об устранении нарушений - т.е дата эта уже в любом случае не просрочена). В чем заключает урезание поиска:

Те ячейки с датами, которые по нашему условию удовлетворяют просрочке должны перед тем как вывестись на экран в сообщении свериться со смежными ячейками правого столбца (инфо об устранении нарушений!) и если в них обнаруживается текст "В деле" то только тогда он является полноценной Просроченой датой и уже выводится в диалоговом окне на экран.

Помоги пожалуйста реализовать эту процедуру !!!!!

P.s и еще вот заметил что если диапазон допустим сразу увеличить до 150 ячеек скажем, он выводит диалоговые окна пустых ячеек, как сделать чтобы диалоговое окно не появлялось впустых. А то пока все эти 150 окон закроешь с ума сойдешь. И постоянно расширять диапазон вручную тоже не дело, вот и подумал сразу увеличить его

да, все работает! спасибо, именно так, как я и хотел!

For i = 3 To 4   Это типа диапазона строк, на каком то форуме читал, что так можно делать! Вечером посмотрю то что ты сделал и отпишусь!

Прикрепил пример! Воообщем и тут напишу суть вопроса:

Sub Кнопка1_Щелчок()
For i = 3 To 4
If (какое условие должно быть, чтобы осуществлялся поиск даты в 14 столбце, которая равна сегодняшней и тем самым выводилось диалоговое окно с текстом "Истек срок устранения нарушений" и указывалась ячейка в которой дата совпадает с текущей (можно даже например чтобы она выделялась красным), буду благодарен примеру чтобы оповещение выскакивало например за день до истечения срока)
MsgBox ("Истек срок устранения нарушений"    
Next i
End Sub



Дополните пробелы пожалуйста, и недостающие функции, не силен я в этом! первый раз столкнулся с такой задачей!

вообщем суть вопроса такая! есть таблица из N количества столбцов (например 16), в 14ый столбец забивается срок устранения нарушений (например: 10.02.2013). Вопрос как сделать так, чтобы в день истечения срока выскакивало диалоговое окно со звуковым оповещением "Срок устранения нарушений истек" !!!! Помогите облегчить работу! Пробовал сам, но вылетает куча всяких ошибок с этими макросами, то макроса нет в книге, либо в компиляторе висуал бейсик нажимает кнопку запуска вылезает ошибка The macros in this.....Вообщем голова кругом..один долго буду сидеть! Офис 2007 стоит