locked
Como Criar uma macro para limpar celulas de uma planilha do Excel RRS feed

  • Pergunta

  • Preciso de uma ajuda para criar um botão para limpar dados digitados em uma planilha do excel.

    tentei esta formula, mas não dá certo

    Sub LIMPAR_DADOS()
    '

    Application.ScreenUpdating = False 'Aceleração (se desejado)


    'Descreva aqui todas as células desejadas (entre aspas):
    Celulas = Array("C6", "C8", "C10", "C12", "C14", "C16")

    cAtual = ActiveCell.Address

    For i = 0 To UBound(Celulas)

        Range(Celulas(i)).Select
        Selection.ClearContents
    Next i

    Range(cAtual).Select  'Volta à célula anteriormente selecionada

    Application.ScreenUpdating = True


    End Sub

    quinta-feira, 31 de janeiro de 2013 19:06

Respostas

Todas as Respostas

  • Sub Exemplo()
        Range("C6,C8,C10,C12,C14,C16").ClearContents
    End Sub


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    quinta-feira, 31 de janeiro de 2013 20:10
    Moderador
  • Funcionou perfeitamente!! valeu
    terça-feira, 1 de setembro de 2015 12:27
  • Boa noite,

    Tem como apagar conteudo com criterios

    quinta-feira, 14 de abril de 2016 22:46
  • O tópico ao qual você respondeu é antigo e não totalmente relacionado a sua dúvida. Sugiro que crie um novo tópico com sua pergunta, referenciando este link. Com isso, você aumentará as chances de obter uma resposta e ajudará a manter o fórum organizado.

     

    *Este tópico está fechado*


    http://www.ambienteoffice.com.br - http://www.clarian.com.br

    sexta-feira, 15 de abril de 2016 19:35
    Moderador