locked
Macro para limpar dados RRS feed

  • Pergunta

  • Adilson,

     

    Um último toque na minha planilha... encontrei a seguinte macro:

     

    Sub Deletar()

    Range("A10:E48").Select
    Selection.ClearContents
    ActiveCell.Select
    End Sub

     

    Tá funcionando beleza para o range especificado, mas preciso que ela limpe também A52:E80 e A84:122. Podes me dar um help?

     

    Obrigado

     

    Jerson

    terça-feira, 29 de janeiro de 2008 16:46

Respostas

  • Adilson,

     

    Faça o seguinte:

     

    Range("A10:E48").Select   (essa parte define a seleção das celulas na planilha)
    Selection.ClearContents
    ActiveCell.Select

    E sua sub vai ficar assim:

     

    Code Snippet

    Sub Deletar()

    Range("A10:E48").Select
    Selection.ClearContents
    ActiveCell.Select

     

    Range("A52:E80").Select
    Selection.ClearContents
    ActiveCell.Select


     

    Range("A84:E122").Select
    Selection.ClearContents
    ActiveCell.Select

    End Sub

     

     

     

    Ajude a melhorar o nosso Forum!
    Não esqueça de marca a mensagem como "útil", caso tenha ajudado.

    terça-feira, 29 de janeiro de 2008 17:10

Todas as Respostas

  • Adilson,

     

    Faça o seguinte:

     

    Range("A10:E48").Select   (essa parte define a seleção das celulas na planilha)
    Selection.ClearContents
    ActiveCell.Select

    E sua sub vai ficar assim:

     

    Code Snippet

    Sub Deletar()

    Range("A10:E48").Select
    Selection.ClearContents
    ActiveCell.Select

     

    Range("A52:E80").Select
    Selection.ClearContents
    ActiveCell.Select


     

    Range("A84:E122").Select
    Selection.ClearContents
    ActiveCell.Select

    End Sub

     

     

     

    Ajude a melhorar o nosso Forum!
    Não esqueça de marca a mensagem como "útil", caso tenha ajudado.

    terça-feira, 29 de janeiro de 2008 17:10
  • Grande Adilson, você é o cara...

     

    Muito obrigado.

     

     

    Jerson

    terça-feira, 29 de janeiro de 2008 17:20
  • Só corrigindo, não fui eu que postei a última resposta.

    Mas já que estou por qui, segue abaixo uma sugestão para limpar o código:

    Code Snippet

    Sub Deletar()

    With Sheets("Plan3")

    .Range("A10:E48").ClearContents

    .Range("A52:E80").ClearContents

    .Range("A84:E122").ClearContents

    End With

    End Sub

     

    Não é necessário selecionar um intervalo para mudar as suas propriedades ou executar um método.

    Basta indicá-lo como objeto e em seguida realizar a ação.

    No caso acima observe que não é preciso nem selecionar a planilha, que já indicada dentro da estrutura With.

    []s

    terça-feira, 29 de janeiro de 2008 22:14