É possível copiar uma coluna do excel para outra planilha, incluindo dados, formatação e tudo, e atualizá-la quando o original for alterado?

Question

Eu tenho uma planilha no excel que tem 40 linhas, com algumas informações em cada linha,

A           B
Nate        32
Bob         28
Cheryl      65
John        34
Candy       23

Eu destaquei manualmente homens em azul e mulheres em rosa. Agora eu gostaria de manter uma planilha com esta informação atualizada, mas tenho outras planilhas onde quero ter informações adicionais nas colunas B. Então, na minha próxima planilha eu gostaria de ter

A           B
Nate        Smith
Bob         Smith
Cheryl      Flores
John        Candy
Candy       --

O kicker, é que se eu mudar o Nate para Mary e formatá-lo rosa na Folha1, eu quero que a Folha2 reflita isso, é possível? Eu posso pegar os dados da célula com bastante facilidade

Sheet1!A1

Mas isso só recebe os dados, existe uma maneira de copiar a formatação personalizada (cor de fundo, bordas, etc)? Eu preferiria ter essas coisas em folhas diferentes para evitar a rolagem horizontal como louco, mas se eu não posso, vou seguir esse caminho.

    

Answer 1

Em vez de mover seus dados para várias planilhas, você poderia tentar se o congelamento da primeira coluna (ou mais) resolvesse seu problema. As colunas congeladas não rolam e ficam sempre na tela.

Para isso, você arrasta o pequeno ícone ao lado da barra de rolagem horizontal até o final da coluna que deseja congelar.

Em seguida, você seleciona o menu Exibition e há um ícone para congelar os painéis.

OBS: no escritório 2010 , se você quiser congelar apenas a primeira coluna, poderá fazê-lo diretamente no mesmo menu sem usar o ícone pequeno antes.

Se você estiver usando o Office 2003, arraste o ícone e use o menu Windows - > congelar

Você pode congelar as linhas da mesma maneira (usando o ícone na parte superior da barra vertical)

    

Answer 2

Isso é possível com algum VB.

Fonte: link

Right click the sheet2 name below your display then view code and delete or clear any data in the view code and write this:

Private Sub Worksheet_Activate()
    Sheets("Sheet1").Columns("A:A").Copy
    Application.ScreenUpdating = False
    Columns("A:A").Select
    Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=False
    Application.CutCopyMode = False
    Range("a1").Select
    Application.ScreenUpdating = True
End Sub