VBA. Как сделать так, чтобы при выборе значения из выпадающего списка в ячейку заносилось другое, сопоставленное выбранному в таблице – как исправить?

в общем есть таблица из двух столбцов кодового значения. Как сделать так, чтобы выпадающий список содержал значения и вставлял коды в ячейку? Возможно? или что-то подобное, пожалуйста, предложите. Ответ «Частная вложенная книга_Open () с рабочими листами (« Список1 »). [A1] .Validation .Delete .Add Тип: = xlValidateList, AlertStyle: = xlValidAlertStop, Operator: = xlBetween, Formula1: = “= B1: B5” Конец с субтитрами Fine
‘Частный подчиненный подпрограммы модуля листа Worksheet_Change (ByVal Target As Range) Если не пересекается (Target, [A1]) Is Nothing, то Target.Value = WorksheetFunction.VLookup (Target.Value, Worksheets (“List1”). [B1: C5], 2) Конец, если Конец подписки

Источник: https://answers.microsoft.com/ru-ru/msoffice/forum/all/vba-as/8b27601f-d37b-409a-a939-7684880a230f