Como espelhar células no excel 2013 [closed]

0

Eu quero fazer um arquivo excel para gerenciamento de vendas da minha empresa. o excel que eu criei tem 4 folhas e cada folha é tratada por pessoas diferentes.

Quero dedicar a primeira coluna dessas planilhas ao status de cada pedido, de modo que, quando alguém altera o status na planilha número um, a coluna de status em outras três planilhas também mude. Além disso, quando outra pessoa altera o status na folha número 2, as folhas número 1,3 e 4 também são alteradas.

É possível? Se sim, como posso fazer isso?

    
por Ehsan Ghabchi 14.01.2015 / 13:49

1 resposta

1

Coloque este código no Módulo Sheet1 (clique com o botão direito do mouse na guia Sheet1 e selecione "View Code"):

Private Sub Worksheet_Change(ByVal Target As Range)

Dim rFrom as Range

If Target.Count = 1 Then
    With Target.WorkSheet
         Set rFrom = .Range("A:A")
         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("Sheet2").Range("A:A")
             If Err.Number <> 0 Then
                 Msgbox "Error Occurred"
             End If
             Application.EnableEvents = True
         End If
     End With
End If
End Sub

Coloque o mesmo na Planilha2 (mudando obviamente os endereços apropriados). Mude a Folha2 para Folha1


Para alterar apenas uma folha:
= Sheet1! A: A se você quiser que as células em outra folha espelhem células na coluna A na Planilha1.

Também outra pergunta feita em super user é semelhante ao seu, mas não é o mesmo.

    
por 14.01.2015 / 16:12