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,898 Visualizações
RSS
 jonascruz
(@jonascruz)
Posts: 64
Trusted 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

Se a informação ou resposta foi útil, clique na mãozinha próxima ao botão "CITAR no canto superior direito.

Se o seu problema foi resolvido, clique no V verde para aceitar como resposta.

 
Postado : 30/05/2017 12:06 pm
leandroxtr
 leandroxtr
(@leandroxtr)
Posts: 447
Reputable Member
 

Boa tarde!

Veja se te atende!

Se te ajudou, não se esqueça de dar um like na resposta e marcar o tópico como finalizado.

Abraços!
Leandro Cordeiro

 
Postado : 30/05/2017 12:47 pm
 jonascruz
(@jonascruz)
Posts: 64
Trusted 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.

Se a informação ou resposta foi útil, clique na mãozinha próxima ao botão "CITAR no canto superior direito.

Se o seu problema foi resolvido, clique no V verde para aceitar como resposta.

 
Postado : 30/05/2017 12:55 pm
leandroxtr
 leandroxtr
(@leandroxtr)
Posts: 447
Reputable Member
 

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

Se te ajudou, não se esqueça de dar um like na resposta e marcar o tópico como finalizado.

Abraços!
Leandro Cordeiro

 
Postado : 30/05/2017 1:22 pm
 jonascruz
(@jonascruz)
Posts: 64
Trusted 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)

Se a informação ou resposta foi útil, clique na mãozinha próxima ao botão "CITAR no canto superior direito.

Se o seu problema foi resolvido, clique no V verde para aceitar como resposta.

 
Postado : 30/05/2017 8:08 pm
leandroxtr
 leandroxtr
(@leandroxtr)
Posts: 447
Reputable Member
 

Resolvido

Veja e dê o FeedBack por favor
Abç

Se te ajudou, não se esqueça de dar um like na resposta e marcar o tópico como finalizado.

Abraços!
Leandro Cordeiro

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

Caro leandroxtr,

Muito obrigado pela ajuda.
Funcionou corretamente :)

Se a informação ou resposta foi útil, clique na mãozinha próxima ao botão "CITAR no canto superior direito.

Se o seu problema foi resolvido, clique no V verde para aceitar como resposta.

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