Сверка даннных

[Ubicum]

Уважаемые Гуру среды VBA подскажите реализацию макроса выверки.
И так имеем
1. Файл Excel с данными
2. Папка с рисунками

Пример:
В таблице 1-Иванов
2-Петров
3-Сидоров
4-Пупкин
5-Букин
В папке с изображениями есть все номера кроме 4 (то есть Пупкина)))
как сделать чтобы после обработки вывелось окно где указаны фамилия у кого отсутствует изображения.

Заранее большое спасибо .. Просто нужно выверить полторы тысячи человек чтобы у каждого было фото...

[Hugo121]

Берёте у EducatedFool его filenamescollection (http://excelvba.ru/code/FilenamesCollection ), загоняете в неё свои файлы, затем циклом по своему листу пытаетесь добавить туда виртуальные файлы, сгенерированные из данных листа.
С каким получилось - значит такого небыло.

Хотя если работа разовая - просто используя готовый файл Игоря получаем на листе список файлов папки (хотя это легко сделать используя например ТоталКоммандер), затем любыми формулами определяем совпадение с своим списком.
И не нужно ничего писать.

[IgorGO]

Sub Pupkin()
  Dim r1 As Long, r2 As Long, c As Long, ph As String
  c = 5: r1 = 1: r2 = 1:  ph = ThisWorkbook.Path & Application.PathSeparator
  Do While Cells(r1, 1) <> ""
    If Dir(ph & Cells(r1, 1) & ".bmp") = "" Then Cells(r2, c) = Cells(r1, 2): r2 = r2 + 1
    r1 = r1 + 1
  Loop
End Sub

с - в какую колонку вывести результат работы

[Ubicum]

Спасибо за содействие товарищи...Вопрос решен))