Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
EXCLUSÃO DE LINHAS ...
 
Notifications
Clear all

EXCLUSÃO DE LINHAS DE UM INTERVALO (TABELA)

 
2024 - VBA & Macros
Post Recente por jonascruz 7 anos atrás
7 Posts
2 Usuários
0 Reactions
1,887 Visualizações
RSS
 jonascruz
(@jonascruz)
Posts: 0
New Member
Topic starter
 

Prezados, boa tarde.

Preciso excluir todas as linhas do intervalo nomeado (tabela) com nome de "CRITERIO".
Ao verificar quais células da coluna "L" estão em branco, preciso excluir.

Anexo o arquivo e abaixo o código:

Sub ExcluiLinha()

Dim intervalo As Range
Dim ultima As Long

ultima = Sheets("LISTA SITES").Range("L1048575").End(xlUp).Row

    For i = ultima To 2 Step -1
        Set intervalo = Range("CRITERIO").Find(Cells(i, 12), lookat:=xlWhole)
        If Not intervalo Is Nothing Then Cells(i, 1).Delete Shift:=xlUp
    Next i


End Sub
 
Postado : 30/05/2017 12:06 pm
 leandroxtr
(@leandroxtr)
Posts: 0
New Member
 

Boa tarde!

Veja se te atende!

 
Postado : 30/05/2017 12:47 pm
 jonascruz
(@jonascruz)
Posts: 0
New Member
Topic starter
 

Boa tarde!

Veja se te atende!

Obrigado por responder.
Pior que não atende, pq se você por exemplo, deixar a primeira e a ultima linha em branco, não vai excluir todas que estão em branco no intervalo.

O problema está na forma de definir quem é a ultima linha do intervalo (mesmo que contenha uma linha NO INTERVALO em branco, essa é a questão.

Essa macro precisa garantir que o intervalo nomeado (tabela) não tenha nenhuma célula em branco na coluna "L".
Eu vou usar esse intervalo nomeado para fazer filtro avançado, e se o usuário da planilha deixar alguma célula na coluna L em branco, a macro vai pegar a base inteira e isso vai travar a planilha.

 
Postado : 30/05/2017 12:55 pm
 leandroxtr
(@leandroxtr)
Posts: 0
New Member
 

Juro que não entendi o que você quer então rsrs.

 
Postado : 30/05/2017 1:22 pm
 jonascruz
(@jonascruz)
Posts: 0
New Member
Topic starter
 

Faça a simulação dos dados abaixo na coluna "L" onde o intervalo nomeado (tabela) chamado CRITÉRIO = A2:AU8.
Note que a primeira linha "L2" está em branco e as 2 últimas "L7" e "L8" também estão em branco.

Executando a sua macro, sobra uma ultima linha em branco.
Isso acontece porque o contador de ultima linha (que deveria ser 8) não está fazendo essa contagem correta e deveria excluir as linhas 2, 5, 7 e 8.

Entendeu?

2) (em branco)
3) 732
4) 845
5) (em branco)
6) 974
7) (em branco)
8) (em branco)

 
Postado : 30/05/2017 8:08 pm
 leandroxtr
(@leandroxtr)
Posts: 0
New Member
 

Resolvido

Veja e dê o FeedBack por favor
Abç

 
Postado : 31/05/2017 7:26 am
 jonascruz
(@jonascruz)
Posts: 0
New Member
Topic starter
 

Caro leandroxtr,

Muito obrigado pela ajuda.
Funcionou corretamente :)

 
Postado : 31/05/2017 5:16 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico