Espelhe as células para que uma alteração em uma das células atualize as outras

0

Eu tenho 2 células contendo os mesmos valores da lista de opções em folhas separadas. Eu quero que as células espelhem umas as outras para que, sempre que eu escolher um novo valor na planilha 1 ou na planilha 2, o valor na outra planilha seja atualizado para corresponder ao novo valor selecionado. Isso é possível?

Obrigado!

UPDATE

Planilha 1:

Nome da planilha: 'Ferramenta de previsão ao vivo'

Célula contendo lista de opções: C3: D3 (mesclada)

Valores da lista de opções dentro do intervalo: = 'SF MRF'! H5: Y5

Planilha 2:

Nome da planilha: 'AH'

Célula contendo lista de opções: C3: D3 (mesclada)

Valores da lista de opções dentro do intervalo: = 'SF MRF'! H5: Y5

Célula C3: o D3 precisa ser atualizado para mostrar o valor que foi alterado na outra planilha.

    
por Alex S 03.11.2014 / 13:29

1 resposta

0

Na área do código AH , insira a seguinte macro de evento:

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

Na área de código da Ferramenta de previsão ao vivo , insira a seguinte macro de evento:

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
    
por 03.11.2014 / 18:53