Огромная просьба помочь с написанием небольшого макроса

[ds_nn]

Доброго времени суток Уважаемые гуру VBA!
Выручите кто чем может)) Начальство требует а я в VBA полный ноль...
Суть задачи: есть две таблицы в табл.1 ФИО, дата выдачи регистрации. В табл.2 ФИО, электронный адрес.
Нужно посчитать в табл.1 : сегодняшняя дата "-" дата выдачи регистрации и если значение больше 335 дней (год без месяца) то по ФИО найти совпадения в табл.2 выдернуть электронный адрес и отправить сообщение на него...
Прикладываю как приблизительно это выглядит.
Заранее спасибо за помощь, на все про все мне дали время до среды...

[doober]

Так реально выглядят таблицы.Шапка есть в таблицах.Письмо макросом отправлять,или сами будете отправлять.

Еще.
Сколько записей в таблицах.Как указывать пути к файлам

[ds_nn]

Сообщение от doober

Так реально выглядят таблицы.Шапка есть в таблицах.Письмо макросом отправлять,или сами будете отправлять.

Еще.
Сколько записей в таблицах.Как указывать пути к файлам

Нет реальные таблицы будут выгружаться из SQL-сервера, видок у них не ахти, там столбцы будут другие. Шапки нет. Письма макросом по Outlook'у отправляться будут, но это я думаю сам сделаю... Кол-во строк может меняться от 500 до 1000. Файлы это имеется ввиду таблицы? тогда без разницы, они локально на компе храниться будут.

[аналитика]

пожалуй ста
нюансы погубят этот макрос

[doober]

Пока я выспросил,а Мишка не дремлет

полуфабрикат.Вначале выбираем файл с датами.потом с мылом

[Sasha_Smirnov]

Сообщение от ds_nn

Начальство требует...

А вообще-то ВБА (судя по форумам) нигде нормально и не преподают, чтоб так уж требовать. Но ему, начальству, виднее, что уж тут.

(Это я вспомнил очарованных школьников, вопрошающих, какой язык лучше учить.)

[ds_nn]

Всем спасибо за помощь))

doober
То что нужно, единственное объясни пожалуйста где там можно поменять номера столбцов?))

[doober]

Dan_data(n, 1) фио первый столбец первого файла

Set rng = sh2.Columns(1).Find (Dan_data(n, 1)) ищем в первом столбце файла2 Фио

If Not rng Is Nothing Then
ThisWorkbook.Worksheets(1).Cells(L, 1) = Dan_data(n, 1) вставляем фио с первого столбца первого файла

ThisWorkbook.Worksheets(1).Cells(L, 2) = rng.Offset(0, 3) вставляем  мыло на 3 ячейки правее находится от найденной фамилии

[ds_nn]

Сообщение от doober

Dan_data(n, 1) фио первый столбец первого файла

Set rng = sh2.Columns(1).Find (Dan_data(n, 1)) ищем в первом столбце файла2 Фио

If Not rng Is Nothing Then
ThisWorkbook.Worksheets(1).Cells(L, 1) = Dan_data(n, 1) вставляем фио с первого столбца первого файла

ThisWorkbook.Worksheets(1).Cells(L, 2) = rng.Offset(0, 3) вставляем  мыло на 3 ячейки правее находится от найденной фамилии

А где указывается номер столбца из которого берется мыло?)

[ds_nn]

Прошу не обращать внимание на прошлое сообщение, просто уже голова не соображала)
Еще раз спасибо за макрос очень выручили!