Macro do Excel: substitua toda a planilha por valores diferentes [closed]

0

É possível substituir a planilha inteira por valores diferentes ao clicar em um botão por meio da macro? Não há "substituir X por Y" ou qualquer padrão reconhecível, estou tentando substituir TODOS os valores na planilha.

Para simplificar, tenho dois gráficos com layout idêntico, mas com valores completamente diferentes em cada gráfico. Eu quero que o usuário seja capaz de alternar entre diferentes gráficos enquanto estiver na mesma planilha , e cada vez que o usuário alternar os gráficos, o gráfico será automaticamente atualizado para esse gráfico.

    
por Heartcloud 12.04.2016 / 19:58

1 resposta

1

Esse pequeno código sujo e sujo substituirá os valores na planilha ativa pelos que estiverem nas mesmas células de outra planilha:

Sub xFory()
Dim ows As Worksheet
Dim tws As Worksheet
Dim rng As String

Set ows = Sheets("Sheet1") 'Change to your destination sheet
Set tws = Sheets("Sheet2") ' change to your data sheet

rng = "A1:G12" ' Change to your range address

ows.Range(rng).Value = tws.Range(rng).Value

End Sub

Editar: código editado um pouco.

    
por 12.04.2016 / 20:14