Два разных файла. Поиск одинаковых элементов и запись значения ячейки.

[QwerG]

Добрый день гуру.
Прошу помощи в решении следующей задачи.
Есть два файла Excel.
В первом фале, в первом листе, в первом столбце имеются значения
Пример:

A11
B12
B144


Так же такие же значения имеются во втором файле. Но они раскиданы по разным листам. Известно что все значения находятся в колонках с именем "NUMBER_OF". Такая колонка есть во всех Листах второго файла.

Необходимо:

1)Найти элемент из первого файла во втором файле.
2)Записать в ячейку рядом с ячейкой, в которой содержится искомое, значением из первого файла, имя листа из второго файла, на котором обнаружилось значение из первого файла. + значение из соседней справа ячейки из второго файла, при условии нахождения элемента из первого файла.
3) Пустые ячейки из первого файла, первого листа, первого столбца необходимо пропускать.

Сразу же спасибо, всем кто откликнется.

[EducatedFool]

Есть два файла Excel.

у кого есть? у меня - нет.

Необходимо:

а где ваши наработки?
самостоятельно пробовали что-то сделать?
примеров ведь на форуме множество...

[QwerG]

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

у кого есть? у меня - нет.


а где ваши наработки?
самостоятельно пробовали что-то сделать?
примеров ведь на форуме множество...

Файлы прикрепил. Наработок нет, т.к. языков программирования не знаю, к моему сожалению.

Начинаю изучать - но многое дается с трудом,

Вот в файле "Книга1" нужно заполнить столбец "Параметр", данными из соседнего файла из одноименного столбца, но с каждого листа, листов больше чем в пример. ещё ко всему в ячейку с параметром в первом файле нужно указать имя листа, с которого были взяты данные из второго файла.
Вот..
Помогите, пожалуйста.

[QwerG]

Может нужна доп информация? Программисты, помогите, прошу. Встроенными механизмами в Экселе задачу решить не удается.

[kuklp]

Книги д. быть в одной папке:

Public Sub www()
    Dim d As Object, i&, a, sh As Worksheet, b
    Set d = CreateObject("scripting.dictionary")
    a = Me.UsedRange.Resize(, 3)
    For i = 1 To UBound(a)
        If a(i, 1) <> "" Then d.Item(a(i, 1)) = i
    Next
    With GetObject(ThisWorkbook.Path & "\Книга2.xlsx")
        For Each sh In .Worksheets
            b = sh.[a1].CurrentRegion
            If Not IsEmpty(b) Then
                For i = 2 To UBound(b)
                    If d.exists(b(i, 1)) Then
                        a(d.Item(b(i, 1)), 2) = b(i, 2)
                        a(d.Item(b(i, 1)), 3) = sh.Name
                    End If
                Next
            End If
        Next
    End With
    Me.UsedRange.Resize(, 3) = a: set d=nothing
End Sub

[QwerG]

Спасибо, kuklp.
Но при назначении функции на кнопку, выкидывает "Invalid use of Me Keyword"

[kuklp]

А что Вы там назначаете? Там в файле все давно назначено.

[QwerG]

Спасибо, все работает!