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