Ячейка, равная значению активной ячейки, которая является выпадающим

Question

У меня есть ячейка, которую я объявил активной ячейкой с помощью инструмента разработчика в Excel

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Range("C1").Value = ActiveCell.Value

End Sub

эта ячейка равна значению раскрывающейся ячейки, которую я создал из проверки данных.

Моя проблема в том, что ячейка C1 не меняется, когда я выбираю новое значение из выпадающего списка

Answer 1

Вот ты go. Когда B1 изменяется, C1 присваивается значение B1. Не имеет значения, как было выполнено изменение, с клавиатуры или путем выбора из раскрывающегося списка.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address = Range("B1").Address Then
        ' prevent the coming change from causing a call of this procedure
        Application.EnableEvents = False
        Cells(1, "C").Value = Target.Value
        Application.EnableEvents = True
    End If
End Sub