Eu tenho um arquivo mestre que tem 7 folhas que representam equipes diferentes. Apenas a Folha 1 é considerada a folha mestre que possui os dados mais atualizados. Eu gostaria que as colunas A: C serão atualizadas automaticamente nas outras planilhas.
Eu estava usando o seguinte código:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rFrom As Range
If Target.Count = 1 Then
With Target.Worksheet
Set rFrom = .Range("A:C")
If Not Intersect(Target, rFrom) Is Nothing Then
Application.EnableEvents = False
'Include next line Just in Case something happens
' You don't want to leave EnableEvents off
On Error Resume Next
rFrom.Copy Worksheets("Dashboard").Range("A:A")
If Err.Number <> 0 Then
MsgBox "Error Occurred"
End If
Application.EnableEvents = True
End If
End With
End If
End Sub
Depois de escrever isso e salvá-lo na folha correta, ele não foi atualizado. Algum conselho?