locked
Definir Nomes - Exclusão RRS feed

  • 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.com
    segunda-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/
    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.com
    quarta-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/
    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.com
    quinta-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.com
    quinta-feira, 25 de março de 2010 14:54