Macro para limpar dados

Question

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

Answer 1

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.

Answer 2

Grande Adilson, você é o cara...

 

Muito obrigado.

 

 

Jerson

Answer 3

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