Имеется ячейка D8 с выпадающим списком имён, и ячейка E8 для цены. Sub Кнопка17_Щелчок() If Range("D8").Value = "Иванов" Then Range("E8").Value = Range("M8").Value ElseIf Range("D8").Value = "Перепелица" Then Range("E8").Value = Range("M7").Value ElseIf Range("D8").Value = "Романченко" Then Range("E8").Value = Range("M6").Value ElseIf Range("D8").Value = "Савченко" Then Range("E8").Value = Range("M5").Value End If
End Sub Всё хорошо работает от кнопки. Как сделать чтоб цена менялась сразу при смене имени?
Sub Кнопка17_Щелчок()
If Range("D8").Value = "Иванов" Then
Range("E8").Value = Range("M8").Value
ElseIf Range("D8").Value = "Перепелица" Then
Range("E8").Value = Range("M7").Value
ElseIf Range("D8").Value = "Романченко" Then
Range("E8").Value = Range("M6").Value
ElseIf Range("D8").Value = "Савченко" Then
Range("E8").Value = Range("M5").Value
End If
End Sub
Всё хорошо работает от кнопки. Как сделать чтоб цена менялась сразу при смене имени?