Vídeo recomendado
https://youtu.be/diWPPPhW-9E

[RESOLVIDO] Macro para excluir determinada linha

Dúvidas gerais sobre Excel
Avatar do usuário
w00t3d
Acabou de chegar
Acabou de chegar
Mensagens: 2
Registrado em: Dom Mai 09, 2021 12:45 pm

[RESOLVIDO] Macro para excluir determinada linha

Mensagem por w00t3d »

Olá a todos!

Necessito de ajuda com uma macro para percorrer todas as linhas de uma coluna específica e deletar apenas as linhas que tiverem a celula como "RECEBIDO"
Dando mais detalhes...
O cabeçalho da tabela está na linha 6 e começa a partir da coluna C, portanto a linha de dados está a partir da linha 7
A coluna M possui os valor "RECEBIDO" e "PENDENTE"
Todas as linhas que tiverem o valor "RECEBIDO" precisam ser deletadas

Eu já testei alguns códigos encontrados aqui no forum, porém eles percorrem a tabela da última linha para a primeira e acabam passando pelo cabeçalho da tabela
Com isso, as linhas de 1 até 5 estarão vazias naquela coluna e serão deletadas, mas elas possuem botões nas primeiras colunas e não podem ser deletadas

Obrigado desde já
=)


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
w00t3d
Acabou de chegar
Acabou de chegar
Mensagens: 2
Registrado em: Dom Mai 09, 2021 12:45 pm

Re: Macro para excluir determinada linha

Mensagem por w00t3d »

Consegui usando o código abaixo

Código: Selecionar todos

Sub deletaLinhaReceber()
    Dim lLin As Long
    
    Application.ScreenUpdating = False
    
    With Sheets("CONTAS RECEBER")
        For lLin = .Cells(.Rows.Count, "M").End(xlUp).Row To 2 Step -1
            If .Cells(lLin, "M") = Range("P4") Then .Rows(lLin).Delete
                        
            If lLin Mod 100 = 0 Then DoEvents
        Next lLin
    End With
    Application.ScreenUpdating = True
End Sub


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Macro para excluir determinada linha

Mensagem por webmaster »

Que bom que conseguiu!

De toda forma, vou deixar essa recomendação aqui:

https://www.tomasvasquez.com.br/blog/mi ... -criterio/


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder