sábado, 16 de junho de 2007

Mudar o nome da planilha com apenas um comando

Adriano,

Tenho 100 planilhas nomeadas de 1 a 100.
Tenho uma planilha (101) onde tenho que colocar os resultados de cada planilha. Um resumo.
Para isso tenho que colocar, por ex.:
=1!a2
=2!a2
e assim até 100.
Como fazer isto sem ter que fazer uma a uma?
Se eu arrasto, o nome da planilha não muda.
Como faço para isto acontecer?

Obrigado
Tarso



Olá Tarso,

Uma solução seria gerar uma macro para realizar a operação...

Se eu entendi direito, a partir da Célula A1 voce quer inserir o
conteúdo da cela A2 de cada planilha, vamos lá então:

Insira um novo módulo via Editor do Visual Basic e copie e cole o
código abaixo, deve funcionar:

sub resumo()
linha =1
&39;vou criar um loop para percorrer todas as planilhas
for a=1 to 100
vlrprrocurado = worksheets(a).cells(1,2).value
worksheets("101").cells(linha,1).value = vlrprocurado
linha=linha+1
next a
End sub

Depois é só rodar a macro que ela deve funcionar...

Antes de linha = linha+1, só para voce entender voce pode inserir a
linha abaixo só para testes...
worksheets("101").cells(linha,2.value = "Planilha " & a

Obs: se der erro em "101", tire as aspas...

Sds
Adriano Lima

Nenhum comentário: