Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Limpar dados de col...
 
Notifications
Clear all

Limpar dados de colunas

 
2024 - VBA & Macros
Post Recente por JSCOPA10 3 anos atrás
4 Posts
3 Usuários
0 Reactions
1,332 Visualizações
RSS
PAYZZANNO
 PAYZZANNO
(@payzzanno)
Posts: 31
Trusted Member
Topic starter
 

Boa noite à todos.
Por gentileza, como faço para apagar os dados preservando os dados da primeira linha. ( O cabeçalho)
Por gentileza, vejam a rotina.

Sub apagar_coluna()
ActiveSheet.Columns(1).ClearContents
End Sub

  1. Obrigado mais uma vez.

Agradeço a ajuda
PAYZZANNO

 
Postado : 08/07/2021 5:52 pm
P@tropi
 P@tropi
(@ptropi)
Posts: 177
Estimable Member
 

@payzzanno

Experimente algo assim:

Sub Apagarlinhas()
Rows("2:" & Rows.Count).ClearContents
End Sub

Se a resposta foi útil, clique em curtir na mãozinha.

 
Postado : 08/07/2021 8:53 pm
PAYZZANNO
 PAYZZANNO
(@payzzanno)
Posts: 31
Trusted Member
Topic starter
 

Olá, Adalberto7, tudo bem?

Antes de tudo quero agradecer por tua ajuda.

A rotina que me passastes elimina as colunas de forma sequencial. O que preciso é apagar dados de colunas intercaladas. 

Tipo.: Col (A), Col (C), Col (F) dessa forma. 

Só que preservando o cabeçalho.

Obrigado mais uma vez.

Agradeço a ajuda
PAYZZANNO

 
Postado : 08/07/2021 9:14 pm
JSCOPA10
 JSCOPA10
(@jscopa10)
Posts: 344
Reputable Member
 

@payzzanno, testa aí ... (não gosto de nada com coluna inteira (A:A), sempre prefiro dar um bom limite) ... insira o nome da Aba

 

Sheets("nome da Aba").Range("A2:A6000").ClearContents
Sheets("nome da Aba").Range("C2:C6000").ClearContents

Sheets("nome da Aba").Range("F2:F6000").ClearContents

 
Postado : 09/07/2021 10:41 am
Forum Jump:
  Tópico Anterior
Próximo Tópico