Автоматическое заполнение ячейки

[Chyzz]

Доброго времени суток! Помогите, пожалуйста, решить такой вот вопросец.
Есть 2 таблицы на разных листах. В первой (KyrsVal) размещено информация о курсе валют на определенную дату. Во второй таблице (IncData) 3 столбца: "дата", "валюта", "курс". Когда в IncData "Валюта" выбираем из выпадающего списка название валюты в столбце "курс" нужно автоматическое заполнение курса валют из 1-й табл. с учетом, что Дата.IncData = Дата.KyrsVal
Формулой это выглядит так:

=ЕСЛИ(I8=0;0;ВПР(B8;KyrsVal!$A:$E;Е СЛИ(IncData!I8="USD";2;ЕСЛИ(IncData !I8="EUR";3;ЕСЛИ(I8="RUR";4;5)));ЛО ЖЬ))

Как это реализовать программным кодом?
Заранее благодарен

[EducatedFool]

Как это реализовать программным кодом?

А зачем надо это делать программно?
Чем формула не устраивает?

Без примера файла вряд ли кто напишет вам код...

[Chyzz]

Что-ж, помощь пришла из неоткуда и реализовалась она так:
при выборе из списка вида валюты в столбце "Валюта" макрос вставляет в столбце "Курс" формулу, в соответствующую ячейку, которая подбирает значение курса валюты из таблицы на листе KyrsVal на нужную дату.
Сам код ниже.

Private Sub Worksheet_Change(ByVal Target As Range)
   
    If Target.Column = 8 And Target.Row > 7 Then
    Cells(Target.Row, 9).Value = "=IF(R[0]C[-1]=0,0,VLOOKUP(R[0]C[-7],KyrsVal!C1:C5,IF(IncData!R[0]C[-1]=""USD"",2,IF(IncData!R[0]C[-1]=""EUR"",3,IF(R[0]C[-1]=""RUR"",4,5))),FALSE))"
    End If
    
End Sub

Условие Target.Row > 7 для того чтобы не трогать шапку таблицы.

может кому пригодиться...

[IgorGO]

пишем код, чтобы вставить формулу, которая потом и будет все считать в конечном итоге... не логично как-то. Пишете код - то поставьте уже курс, а не формулу, которая его определяет.
Сами сначала делаем все мягко говоря "через код", а потом удивляемся...
Формулу можно написать короче, и для любого количества валют, а не для трех, как у Вас.
Появится послезавтра еще одна валюта и "караул!", надо код переписывать? так?
пример во вложении.