Este fórum foi descontinuado. LEIA AQUI e participe da Comunidade BABOO :)

Ir para conteúdo
jsbernardo

Apagar linhas Excel

Mensagem Recomendada

Bom dia,

Alguém me pode fornecer o código de uma macro que apague linhas automaticamente no Excel

Os critérios que necessito são:

  • As linhas 20 a 200 da coluna A que têm dados (texto, número, fórmulas, etc), definem o intervalo a considerar.
  • As linhas que pretendo apagar serão as linhas da coluna B que se encontram em branco.

Muito obrigado pela ajuda.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Olá, Bernardo.

Da linha 20 até a linha 200 você quer apagar a linha se A for diferente de vazio e B for vazio, é isso ? E se A e B forem vazios, é para apagar ou não?


 

Osvaldo

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Olá, Bernardo. Veja se o código abaixo atende.

Sub ExcluiLinhas()
 Application.ScreenUpdating = False
  With ActiveSheet
   .AutoFilterMode = False
   .[A19:L200].AutoFilter 2, "="
   .Range("A20:L200").SpecialCells(xlCellTypeVisible).EntireRow.Delete
   .AutoFilterMode = False
  End With
 Application.ScreenUpdating = True
End Sub

obs.
1. considerei que a linha 19 contém cabeçalho, que não será afetado pelo código
2. se entendi corretamente o critério para excluir a linha é se B estiver vazia, independente se A estiver vazia ou não
3. considerei que os dados estão da coluna A até a coluna L, altere se necessário

 

 


 

Osvaldo

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Osvaldo mais uma vez TOP,

é mesmo isso que procurava.

Só uma pergunta, no código onde está definido que é a coluna B? pois posso ter de adaptar para outra coluna.

Obrigado.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Olá, Bernardo.

.[A19:L200].AutoFilter 2, "="  ~~~> neste comando o número 2 corresponde à coluna B

coluna A ~~~> 1
coluna B ~~~> 2
coluna C ~~~> 3
...
...


 

Osvaldo

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

×
×
  • Criar Novo...