Este fórum está sendo desativado

[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.

[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