Excel comando vba verificação datas

[Francislei Oliveira]

bom dia. Estou iniciando em VBA, não tenho conhecimento avançado nos comandos.

Alguém poderia me dar um auxilio por favor, para complementação do código. Tenho um controle, que verifica datas de Vencimento de Certidões.

Caso a certidão esteja vencida, data anterior a data atual, será somado ao final a quantidade de certidões vencidas "msgbox".

Caso a data seja superior a data atual, preciso que oculte a linha. ( para que no final do processo seja exibido somente as linhas que contenham as datas vencidas).

Caso a célula esteja em branco, também preciso que oculte, pois ainda estou alimentado a Planilha.

Depois de visualizar as linhas com datas vencidas, preciso re-exibir todas linhas novamente.

 

Muito obrigado, caso alguém saiba como ajudar.

 

    'V1 DATA
    Dim V1 As Long
    'contador v2
    Dim v2 As Long
    V1 = Date
    v2 = CONTADOR
    'VERIFICAR TODAS DATAS NA COLUNA C
    Range("C4").Select
    Do While ActiveCell.Value <> ""
    If ActiveCell.Value > V1 Then
    'ocultar linha
    Selection.EntireRow.Hidden = True
    ActiveCell.Offset(1, 0).Select
    ElseIf ActiveCell.Value = "" Then
    'ocultar linha
    Selection.EntireRow.Hidden = True
    ActiveCell.Offset(1, 0).Select
    ElseIf ActiveCell.Value < V1 Then
    v2 = v2 + 1
    ActiveCell.Offset(1, 0).Select
    Else
    'MENSAGEM "SITUAÇÕES REGULARES!" CASO NÃO HOUVER VENCIDAS
    ActiveCell.Offset(1, 0).Select
    End If
    Loop
    'MENSAGEM RETORNO "EXISTEM X CERTIDÕES VENCIDAS. DESEJA VISUALIZAR?
    MsgBox "EXISTEM" & " " & v2 & " " & "CERTIDÕES VENCIDAS."
    
    
    
 
    
End Sub

 

[CasaDoHardware]

Eu não sei como é sua planilha, nem como você faz o preenchimento, porém basta você usar o auto filtro que você consegue visualizar os dados que estão vencidos.