Página 1 de 1

Apagar linha após uma data ser definida

Enviado: 29 Jan 2019 às 15:53
por danilo2112
Saudações,Tenho uma planilha da seguinte forma tenho um cadastro : nome/apelido/data de vencimento ,Procuro a seguinte solução ,quando essa data for atingida a linha inteira em que ela se encontra apague.

Re: Apagar linha após uma data ser definida

Enviado: 29 Jan 2019 às 20:58
por Jimmy
Olá Danilo,

Inclua a macro abaixo no evento OPEN da planilha.

Assumi que a planilha não vai virar a meia noite trabalhando. Assim, uma verificação só quando abre a planilha, já limpa o que precisa e não verifica mais. Vai verificar novamente quando a planilha for aberta novamente.

Se precisa que a verificação seja feita a intervalos de tempo, pois o operador passa pela meia noite (mudança de data) trabalhando, podemos fazer, mas isso custará tempo de processamento, o que pode ser sentido dependendo do volume de dados, na máquina que está rodando o Excel, memória, etc.
Código: Selecionar todos
Private Sub Workbook_Open()
    Ate = Sheets("Plan1").Range("C" & Rows.Count).End(xlUp).Row
    For Lin = Ate To 1 Step -1
        Data = Sheets("Plan1").Range("C" & Lin).Value
        If IsDate(Data) And Data >= Int(Now()) Then _
            Rows(Lin).Delete Shift:=xlUp
    Next
End Sub
Jimmy San Juan