Поиск по двум значениям из двух таблиц

[Freerider1972]

Добрый день!
Подскажите формулу поиска значений по двум колонкам из разных таблиц
Есть две таблицы в которой колонки 1 и 2 имеют одинаковые параметры
Надо найти значение в третьей колонке из таблицы 2 и вставить в таблицу 1, для проверки

[kim2]

В ячейку D3:
=ПРОСМОТР(A3&B3;$H$3:$H$18&$I$3:$I$ 18;$J$3:$J$18)
И протянуть вниз...

[kim2]

А лучше формулой массива:
=МАКС(ЕСЛИ(A3&B3=$H$3:$H$18&$I$3:$I $18;$J$3:$J$18))

[nilem]

В ячейку D3
=СУММПРОИЗВ(($H$3:$H$18=A3)*($I$3:$ I$18=B3)*$J$3:$J$18)
и протягиваем.

[Teslenko_EA]

Здравствуйте Freerider1972.
предлагаю ознакомиться с нестандартным для MS Excel вариантом решения Вашей задачи.
Вариантом использующим библиотеку ADO и SQL.
Евгений.

[Freerider1972]

Большое человеческое спасибо! kim2, nilem, Teslenko_EA - отличное профессиональное решение!!! Просто шедевр!

[Freerider1972]

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

Здравствуйте Freerider1972.
предлагаю ознакомиться с нестандартным для MS Excel вариантом решения Вашей задачи.
Вариантом использующим библиотеку ADO и SQL.
Евгений.

Отличный подход! Большое спасибо!
Но проблема то еще в том, что таблицы сравниваемые находятся не на одном рабочем листе, а на разных
Хотя можно скопировать на один... Тоже вариант...

[Teslenko_EA]

"..Но проблема то еще в том.." - проблемы никакой нет, немного анализа текста SQL конструкции и думаю будет понятно, что необходимо изменить в строке:
"..T2.F3 FROM [Лист1$H3:J65000] .."
чтобы данные второй таблицы получались с листа Лист2 и диапазона например: A3:C65000

Евгений.

[Jaroslav]

Евгений!
Пишу код:

Const sCn1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
Const sCn2 = ";Extended Properties=""Excel 8.0;HDR=No"";"
Dim cn As ADODB.Connection, rs As ADODB.Recordset
Dim sCon As String
'создание экземпляра подключения и рекордсета
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
With ThisWorkbook
    sCon = sCn1 + .Path + "\" + .Name + sCn2
    cn.Open sCon
    If Not cn.State = 1 Then Exit Sub
    'Формирование строки запроса к заданному диапазону
    'формирующего требуемый набор данных
    Const sSql = "SELECT T.F1, T.F2, T.F3, " + _
    "(SELECT T2.F3 FROM [Sheet1$H4:J65000] T2 " + _
    "WHERE T2.F1=T.F1 AND T2.F2=T.F2) AS F " + _
    "FROM [Sheet1$A4:C65000] T"
    rs.Open sSql, cn, adOpenStatic, adLockReadOnly
    'размещение рекордсета в ячейке "A4",
    'с заменой существующих данных диапазона
    .Sheets("Sheet1").Range("A4").CopyFromRecordset rs

Мне выдает ошибку на строке:

rs.Open sSql, cn, adOpenStatic, adLockReadOnly

Обьект 'Sheet1$H4:J65000' не найден ядром базы данных Microsoft Jet. Проверьте существование обьекта и правильность имени и пути
Что я делаю не так? Файл прилагаю

[Jaroslav]

Проблему решил. Вместо ThisWorkbook написал ActiveWorkbook. Тему можно считать закрытой