Сборка листа

[Berrimor]

Доброго времени суток уважаемые знатоки!!
Понимаю что проблема поднималась и не раз, но что то ничего для себя подобрать не смог.
Вопрос следующий:
Есть сводный файл в который ежедневно нужно собирать из разных файлов инфу.
Есть файл в который эту инфу заносит диспетчер.
Во вложении 2 файла Sborka и 02_12_08.
Помогите пожалуйста написать макрос который будет в первый файл собирать данные из второго по следующим параметрам: ищем соответствие между позициями в столбцах "А" обоих файлов и при удачном поиске данные из столбца "В" второго файла вставляются в следующий свободный правый столбец.
Заранее благодарен!!!

[Pavel55]

хм, у меня есть уточняющие вопросы.
1) смотрим первое значение в файле Sborka - 15
2) ищем число 15 во втором файле "02_12_08.xls"
3) находим 3 числа 15 и ....? какое значение Марки (а столбце В - это Марка) брать 15120 или 16344 ?
Зачем вы хотите брать значение столбца В файла "02_12_08.xls", если оно итак уже совпадает со значением столбца В в файле Sborka?

[Berrimor]

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

хм, у меня есть уточняющие вопросы.
1) смотрим первое значение в файле Sborka - 15
2) ищем число 15 во втором файле "02_12_08.xls"
3) находим 3 числа 15 и ....? какое значение Марки (а столбце В - это Марка) брать 15120 или 16344 ?
Зачем вы хотите брать значение столбца В файла "02_12_08.xls", если оно итак уже совпадает со значением столбца В в файле Sborka?

Сорри, действительно что то я немного тупанул (
Хотелось бы чтобы в следующий свободный правый столбец станицы TTL файла Sbokra переносились данные из фалйа 02_12_08.xls из столбца выпуск. должны переноситься данные при совпадении столбцов "А""В""С" ("Тип""Марка"Цвет") обоих файлов. К примеру:
из фалйа 02_12_08.xls 44 строка

Тип Марка Цвет Остаток Выпуск
27 10296 Прозрачная С+ 133848 1111968

Данные из столбца Выпуск должны перенестись в файл в Sborka.xls строка 42.

Тип Марка Цвет
27 10296 Прозрачная С+
в следующий столбец т.е. в столбец "F"

[SAS888]

А точно нужно найденное значение вставлять в столбец "F"? Логичнее в столбец "E".
Посмотрите вложение. Запустите макрос "Main".

[Berrimor]

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

А точно нужно найденное значение вставлять в столбец "F"? Логичнее в столбец "E".
Посмотрите вложение. Запустите макрос "Main".

Вроде бы оно Спасибо!
Но есть маленькое НО!
Ежедневно из файла типа 02_12_08.xls (название ежедневно соответственно будет меняться) данные заливать в файл sborka.xls. Возможно ли будет убрать привязку к файлу 02_12_08.xls а использовать файл открываемый пользователем чз диалоговое окно "открытие файла"
и возможно ли чтобы данные переносились не именно в столбец "Е", как вы правильно заметили, а чтобы информация в файле шла нарастанием, т.е. к примеру за 02_12 копировалось бы в в столбец Е, за 03_12 в столбец F и так далее
Огромное спасибо!!!

[SAS888]

Посмотрите вложение. Добавлен диалог для открытия файла. Что касается столбца, в который будут заноситься данные, то сделано (с самого начала) так, что найденные значения будут вставляться в столбец, в котором в строке 3 последняя заполненная ячейка. Так, например, если в ячейку "F3" занести какое-нибудь значение (например, "03.12.08"), то данные будут вноситься именно туда. И т.д.

[Berrimor]

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

Посмотрите вложение. Добавлен диалог для открытия файла. Что касается столбца, в который будут заноситься данные, то сделано (с самого начала) так, что найденные значения будут вставляться в столбец, в котором в строке 3 последняя заполненная ячейка. Так, например, если в ячейку "F3" занести какое-нибудь значение (например, "03.12.08"), то данные будут вноситься именно туда. И т.д.

Огроменное спасибищЕ!!!!!
И еще маленький вопрос. а что нужно изменить либо добавить в коде чтобы сделать привязку к определенным листам. К примеру чтобы втавлялися данные в файле сборка только в лист TTL а из второго файла брались из листа "Префы" ?

[SAS888]

В коде макроса строку

ThisWorkbook.Sheets(1).Activate

заменить на

ThisWorkbook.Sheets("TTL").Activate

и, соответственно, строку

With Workbooks(Dir(FName)).Sheets(1)

на строку

With Workbooks(Dir(FName)).Sheets("Префы")

[Berrimor]

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

В коде макроса строку

ThisWorkbook.Sheets(1).Activate

заменить на

ThisWorkbook.Sheets("TTL").Activate

и, соответственно, строку

With Workbooks(Dir(FName)).Sheets(1)

на строку

With Workbooks(Dir(FName)).Sheets("Префы")

ОГРОМНЕЙШЕЕ СПАСИБО!!!!!!