Usuário com melhor resposta
Definir Nomes - Exclusão

Pergunta
-
Pessoal,
No menu "Inserir", há a opção "Nomes", "Definir", como todos sabem( e o próprio nome diz), podemos nomear uma célula para que agilizar a referencia a célula ou intervalo utilizando o nome proposto.
Infelizmente, muitas pessoas abusam desta "facilitação" do excel, e por vezes, encontramos planilhas que estão com muitos intervalos nomeados, muitos nem contém mais as referencias das celulas, uma vez que planilhas foram removidas desde a criação do arquivo.
Pois bem, gostaria de saber se há uma maneira mais fácil de excluir todos os intervalos nomeados de uma planilha. Hoje tenho feito "nome a nome" e isto é muito moroso.
Desde já agradeço a atenção de voces.
[]'s
Dan BH/MG
Dan - BH/MG - Brasil - mbarrosdaniel@hotmail.comsegunda-feira, 22 de março de 2010 17:06
Respostas
-
Você pode realizar via código:
Sub ApagarNomes() For Each NomeIntervalo In ThisWorkbook.Names NomeIntervalo.Delete Next End Sub
[ ]s
Adilson Soledade - MOS http://adilsonsoledade.blogspot.com/- Sugerido como Resposta adilsonsoledade quinta-feira, 25 de março de 2010 01:37
- Marcado como Resposta Daniel Murta Barros quinta-feira, 25 de março de 2010 14:54
quinta-feira, 25 de março de 2010 01:37
Todas as Respostas
-
Clique no canto esquerdo superior da planilha , onde aparecem os nomes dos intervalos, escolha um a um e delete... assim não precisa fazer o caminho todo Nomes... Inserir e etc....terça-feira, 23 de março de 2010 23:03
-
Bacana, Diogo. Um a um é tranquilo nos nomes que tem a referencia no arquivo... mas e os nomes que estao definidos e não estão no arquivo?
Obrigado, mas não atende....
Dan - BH/MG - Brasil - mbarrosdaniel@hotmail.comquarta-feira, 24 de março de 2010 02:17 -
Você pode realizar via código:
Sub ApagarNomes() For Each NomeIntervalo In ThisWorkbook.Names NomeIntervalo.Delete Next End Sub
[ ]s
Adilson Soledade - MOS http://adilsonsoledade.blogspot.com/- Sugerido como Resposta adilsonsoledade quinta-feira, 25 de março de 2010 01:37
- Marcado como Resposta Daniel Murta Barros quinta-feira, 25 de março de 2010 14:54
quinta-feira, 25 de março de 2010 01:37 -
Adilson,
Boa saída, não sabia como fazer isto..
Porém, ocorreu problema quando o intervalo nomeado não esta na planilha:
"Erro em tempo de execução '1004': Este nome não é válido"
Será tem como fazer via código pagar estes "lixos"?
Obrigado pela ajuda.
Dan - BH/MG - Brasil - mbarrosdaniel@hotmail.comquinta-feira, 25 de março de 2010 14:50 -
Adilson,
coloquei o On Error Resume Next e a maioria dos nomes foram embora! Excelente!!
Obrigado
código final ficou:
Sub ApagarNomes()
On Error Resume Next
For Each NomeIntervalo In ThisWorkbook.Names
NomeIntervalo.Delete
Next
End Sub
Dan - BH/MG - Brasil - mbarrosdaniel@hotmail.comquinta-feira, 25 de março de 2010 14:54