none
Como criar uma macro em VBA para excluir linhas com critério de data? RRS feed

  • Pergunta

  • Olá, pessoal!

    Alguém poderia me ajudar a encontrar um código que percorra uma planilha e ao encontrar uma data igual ou anterior à hoje ela exclua essa linha?

    Estou tentando esse código, mas não funciona com a data, se colocar outra palavra funciona, mas a data não.

                                    

    Sub ApagarLinhas()
        Dim lLin As Long

        Application.ScreenUpdating = False

        With Sheets("EXEMPLO")
            For lLin = .Cells(.Rows.Count, "C").End(xlUp).Row To 11 Step -1
    If .Cells(lLin, "B") = "HOJE()" Then .Rows(lLin).Delete 
    If lLin Mod 100 = 0 Then DoEvents
            Next lLin
        End With
     Application.ScreenUpdating = True

    End Sub

    Obrigado, desde já!

    terça-feira, 23 de julho de 2019 22:07