Código de macro para o Excel para atualizar outras planilhas

0

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?

    
por Drew 07.12.2017 / 23:42

0 respostas