У меня есть 2 ячейки, содержащие одинаковые значения списка выбора на отдельных листах. Я хочу, чтобы ячейки отражали друг друга, чтобы при выборе нового значения на листе 1 или листе 2 значение на другом листе обновлялось в соответствии с новым выбранным значением. Это возможно?

Спасибо!

ОБНОВИТЬ

Рабочий лист 1:

Название листа: «Инструмент прогнозирования в реальном времени»

Ячейка, содержащая список выбора: C3: D3 (объединено)

Значения списка выбора в пределах диапазона: = 'SF MRF'!H5: Y5

Рабочий лист 2:

Название листа: «AH»

Ячейка, содержащая список выбора: C3: D3 (объединено)

Значения списка выбора в пределах диапазона: = 'SF MRF'!H5: Y5

Ячейка C3:D3 необходимо обновить, чтобы показать значение, которое было изменено на другом листе.

1 ответ1

0

В области кода AH введите следующий макрос события:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim r1 As Range, r2 As Range
    Set r1 = Range("C3")
    Set r2 = Sheets("Live Forecast Tool").Range("C3")
    If Intersect(Target, r1) Is Nothing Then Exit Sub
    Application.EnableEvents = False
        r2.Value = r1.Value
    Application.EnableEvents = True
End Sub

В области кода Live Forecast Tool введите следующий макрос событий:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim r1 As Range, r2 As Range
    Set r1 = Range("C3")
    Set r2 = Sheets("AH").Range("C3")
    If Intersect(Target, r1) Is Nothing Then Exit Sub
    Application.EnableEvents = False
        r2.Value = r1.Value
    Application.EnableEvents = True
End Sub

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .