Limpar dados de col...
 
Notifications
Clear all

Limpar dados de colunas


PAYZZANNO
Posts: 19
Registered
Topic starter
(@payzzanno)
Active Member
Entrou: 1 ano atrás

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.
Responder
3 Respostas
1 Responder
Adalberto7
Moderator
(@adalberto7)
Entrou: 2 anos atrás

Trusted Member
Posts: 96

@payzzanno

Experimente algo assim:

Sub Apagarlinhas()
Rows("2:" & Rows.Count).ClearContents
End Sub
Responder
PAYZZANNO
Posts: 19
Registered
Topic starter
(@payzzanno)
Active Member
Entrou: 1 ano atrás

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.

Responder
1 Responder
JSCOPA10
Moderator
(@jscopa10)
Entrou: 2 anos atrás

Reputable Member
Posts: 284

@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

Responder