Заполнение ячеек данными из другого листа

[rvvrvv73]

Никогда ничего не писал под VBA, кроме как на Access, и то очень давно, а тут возникла небольшая надобность в автоматизаци рутинного процесса. Не поможете с реализацией? Порылся в сети, но готового кода, пригодного для моих потребностей, не нашёл.
Дано: таблица под Excel 2003, два листа.
Лист номер 2 содержит некий перечень изделий с параметрами, 1 колонка - наименование и 2-3 колонки с, скажем, ценой и весом.
Требуется на первом листе реализовать следующий функционал - первая колонка содержит ячейки с выпадающим списком, источником данных для которого служит первая колонка второго листа. При выборе пункта из списка автоматически на на первом листе заполняются ячейки этой строки данными из соответствующей строки на втором листе.
Как я понимаю, операция тривиальная, но я что-то с ходу не понял, как это сделать. Даже вполне допускаю, что это можно реализовать штатными средствами Excel без программирования.

[Aleksandr H.]

С файлом, конечно, было б легше что-то советовать.

[rvvrvv73]

Сообщение от Aleksandr H.

С файлом, конечно, было б легше что-то советовать.

Я посмотрел присланный вариант. Вполне работает, только что опробовал.
Жалко, что IFERROR в 2003м Экселе нет. Но, поскольку делаю это не на заказ, а для внутреннего употребления - вполне сойдёт, я думаю, главное, что данные подставляются и сумма считается.
Пришлось только добавить проверку пустого значения в ячейке, по которой идёт поиск, чтобы ошибка нормально отрабатывалась и всё не заполнялось автоматом ошибкой #Н/Д.

Спасибо

[Aleksandr H.]

ЕСЛИ(ЕНД(ВПР(A1;Лист2!$A$1:$C$3;2;0));"";ВПР(A1;Лист2!$A$1:$C$3;2;0))

[Казанский]

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

Жалко, что IFERROR в 2003м Экселе нет

Если на VBA аллергии нет, то в простейшем случае можно так

Function IFERROR(x, y)
  If IsError(x) Then IFERROR = y Else IFERROR = x
End Function

[rvvrvv73]

Сообщение от Казанский

Если на VBA аллергии нет, то в простейшем случае можно так

Function IFERROR(x, y)
  If IsError(x) Then IFERROR = y Else IFERROR = x
End Function

Аллергии нет, но я в последний раз что-то программил лет 15 назад, а на VBA - ещё раньше. Так что навык написать что-то сложнее Hello World утерян, могу разве что по мелочи поправить чужой код.
Коллега выше мою проблему решил, за что ему большое спасибо.

[IgorGO]

=ЕСЛИ(СЧЕТЕСЛИ(Лист2!$A:$A;A1)=0;"";ВПР(A1;Лист2!$A$1:$C$3;2;0))