у меня похожая ситуация.каждый сотрудник работает в своём файле раз в неделю файлом с макросом собираю всю инф. и удаляю повторы. единственное условие для пользователей найменование столбцов в таблице у всех одинаковое.

и в правду работает... :-)

Доброго дня Уважаемые форумчане,    
подскажите как в макросе присвоить ячейке значение формулы : ЕСЛИ(С5="клад";впр(В5;лист2!А1:С3;2;0);впр(В5;лист2!А1:С3;3;0)

{quote}{login=Казанский}{date=13.05.2011 03:30}{thema=}{post}> для ускорения процеса хочется чтоб файлы были выделены  
 
Кликнуть в окно с файлами, Ctrl+A  
или Shift+Tab, Ctrl+A  
Очень тормозит процесс, да? ;){/post}{/quote}  
 
Вот правду говорят что две головы лучше!!:-) Совсем вылетело и з головы самое простое Ctrl+A, спаибо а то б я еще б неделю думал на макросом...

{quote}{login=Юрий М}{date=13.05.2011 03:21}{thema=}{post}Вы сами себе противоречите:    
1. "чтоб приоткрытий диалогового окна все файлы были выделены"  
2. "не всегда нужно выбирать всю папку для обработки"  
Выделение ВСЕХ файлов в папке равносильно обработке ВСЕЙ папки.{/post}{/quote}  
 
я имел в виду каждый день идет обработка всех файлов, но иногда прилетают задания обработать несколько файлов, по этому и было создано диалоговое окно(что бы видеть что там лежит,и что бы можно было выделять как все так и только избранные файлы)

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

Подскажите уважаемые Форумчане,как задать условие чтоб приоткрытий диалогового окна все файлы были выделены?  
 
With Application.FileDialog(msoFileDialogFilePicker)    'Для окна-диалога выбора файлов  
       .AllowMultiSelect = True                            'Разрешаем выбор нескольких файлов  
       .InitialFileName = "*.xls"                          'Установили маску типов файлов (только xls)  
       .InitialFileName = "C:\Documents and Settings\Рабочий стол\Сборка\Пример"    'Папка с файлами-исходниками  
       .Title = " Выбрать необходимый файл(ы)"             'Заголовок окна диалога

убрал кавычки все зароботало, СПАСИБО большое всем за помощь

что то не работает пишет какая то неведомая ошибка 1004

{quote}{login=GIG_ant}{date=03.05.2011 09:21}{thema=}{post}кусочек файла с проблемой ?{/post}{/quote}

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

Спасибо Юрию,все работает , по таким макросам учиться надо!!

Только я не соображу как это сделать по "красивей", может кто нибудь что то подсказать??

Сразу прошу прощения за свою некомпетентность ,может даже за глупые вопросы.    
Руководство поставило задачу сохранить текущий лист в графическом виде но обязательно с именем файла хранящегося в одной из ячеек листа.