Bom dia!!

Poderia explicar com mais detalhes.

Você quer que seja analisado toda a lista, caso esteja 3 das para vencer que seja mostrado onde está o vencimento?

Eu gostaria que fosse como um alerta, pra me informar os eventos q estão para vencer o prazo, então quando estivesse faltado 3 dias pra vencer, ao eu entrar na planilha ele me mostre, evento "x" vai vencer daqui a 3 dias, será q consegui explicar direito.
agradeço a colaboração

Bom dia!!

Você não poderia usar uma Formatação Condicional?

Att..

sim, já uso uma mais precisava de uma caixa de mensagem pq tem muitos eventos, assim ficaria mais facil de visualizar

Editei o título de listbox para MsgBox, não conseguí visualizar um ListBox no seu arquivo.

Segue um exemplo, confira.

Boa noite!!

Outra opção ...

Usando funções

O resultado em outra guia
SE(E(Plan1!E9<=Plan1!$D$4+3;Plan1!E9>=Plan1!$D$4);LIN(A9);"")
SE(A4="";"";ÍNDICE(Plan1!E:E;A4))

Aproveitando o exemplo e uma rotina do José para se preencher ListBox, se quiser apresentar o resultado em um ListBox, faça o seguinte :

1° ) Adicione um Formulário no Projeto VBA;
2° ) Adicione um Controle ListBox;
3°) De dois cliques no Formulário e cole as rotinas abaixo :

    Private Sub UserForm_Initialize()
        'ao inicializar o form preenche o controle
        Call PreencherListBox
    End Sub

    Sub PreencherListBox()
        Dim lastRow As Long
        Dim i As Integer
        
        dd = Date + 3 'Adiciona a data atual
        
        ListBox1.Clear
        
        With ListBox1
        'define nº colunas
                .ColumnCount = 2
        End With
        
        ' Verifica qual a ultima linha preenchida
        lastRow = Plan1.Range("D65536").End(xlUp).Row
        'adiciona dados
        For i = 7 To lastRow
            If Plan1.Cells(i, 5).Value = dd Then '<= dd
                Me.ListBox1.AddItem Plan1.Range("D" & i)
                Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = Plan1.Range("E" & i)
            End If
        Next
    End Sub

[]s

JoseA muito obrigado, dei uma olhada na MsgBox que vc fez, foi muito bom e agora aproveitei e incrementei o listbox do Mauro Coutinho

o site esta de parabens
muito obrigado pela colaboracao

Vlw! Trampoliner

Saudações grande Mauro.

Boa tarde!!!

Será que mesmo resolvido posso deixa uma versão?

At++++