Utilizar Filtros com a Macro, onde ela Obedeça o critério e linhas dinamicamente

[David DK]

Gostaria de um auxilio onde realizei a gravação de uma macro, em que a irei utilizar o filtro, e na utilização desse filtro, selecionar na coluna E, tudo que for diferente de vazio(Field:=5),  o mesmo realizou o filtro até a linha 544 e estava com $ na mesma, porém essa planilha é atualizada constantemente e em outra vez que utilizar a macro, já será outra linha do final da seleção do filtro. com isso a macro não obedece.

 

Sub Limpar_DIF_Vazios()
'
' Limpar_DIF_Vazios Macro
'

'
    Selection.AutoFilter
    ActiveSheet.Range("A1:E544").AutoFilter Field:=5, Criteria1:="<>"
    Rows("5:5").Select
    Range(Selection, Selection.End(xlDown)).Select
    Rows("5:5000").Select
    Selection.Delete Shift:=xlUp
    Range("B1").Select
    Selection.AutoFilter
    Cells.Select
    ActiveSheet.Range("A1:E5000").RemoveDuplicates Columns:=1, Header:=xlYes
    Range("A1").Select
End Sub
 

[CasaDoHardware]

Troque por este

 

Sub Limpar_DIF_Vazios()
 

Dim linha as long

 

linha = range("A" & rows.count).end(Xlup).row
    Selection.AutoFilter
    ActiveSheet.Range("A1:E" & linha).AutoFilter Field:=5, Criteria1:="<>"
    Rows("5:5").Select
    Range(Selection, Selection.End(xlDown)).Select
    Rows("5:5000").Select
    Selection.Delete Shift:=xlUp
    Range("B1").Select
    Selection.AutoFilter
    Cells.Select
    ActiveSheet.Range("A1:E5000").RemoveDuplicates Columns:=1, Header:=xlYes
    Range("A1").Select
End Sub

 

Isso resolve o problema da solução

[David DK]

Ok,

 

Muito Obrigado,

Funcionou perfeitamente.