Boa tarde!!

Use o Gravador de Macros!!

Sub AleVBA_15032()

    ActiveSheet.Range("$A$1:$B$7000").AutoFilter Field:=1, Criteria1:= _
        xlFilterToday, Operator:=xlFilterDynamic
    ActiveSheet.Range("$A$1:$B$7").AutoFilter Field:=2, Criteria1:="PENDENTE"
End Sub

Att

Boa noite!!

Veja um modelo!
https://www.sendspace.com/file/tfrikw

Código fonte:
Crie um userfor

Private Sub UserForm_Initialize()
lastrow = Range("A" & Rows.Count).End(xlUp).Row
Dim c As Range
    For Each c In Sheets("Sheet1").Range("A1:A" & lastrow).SpecialCells(xlCellTypeVisible)
        UserForm1.ListBox1.AddItem c.Value
    Next c
    Me.lblCount.Caption = "Dados Atuais= " & Me.ListBox1.ListCount - 1
End Sub

Crie um botão em sua guia e use a macro

   Sub AleVBA_15032()

        ActiveSheet.Range("$A$1:$B$7000").AutoFilter Field:=1, Criteria1:= _
            xlFilterToday, Operator:=xlFilterDynamic
        ActiveSheet.Range("$A$1:$B$7").AutoFilter Field:=2, Criteria1:="PENDENTE"
        With ActiveSheet
            If .AutoFilterMode = True Then
            ActiveSheet.Range("$A$1:$B$7000").AutoFilter Field:=1, Criteria1:= _
            xlFilterToday, Operator:=xlFilterDynamic
            ActiveSheet.Range("$A$1:$B$7").AutoFilter Field:=2, Criteria1:="PENDENTE"
            Else
                MsgBox "Não há dados para filtrar"
            End If
        End With
        UserForm1.Show
    End Sub

Att

Alexandre, boa tarde.

Testei o exemplo que você me encaminhou em anexo e o mesmo não consegue rodar o codigo. Ele trava todo o excel.

Meu computador é um I7 com 8GB de RAM.
No entanto, pude ter acesso ao codigo da macro.

O codigo é executado na sua maquina ou tambem trava ?

Lembrando que oque eu preciso é de uma msg box mostrando que tem itens pendentes para a data de =hoje().

Ale, boa tarde.

Me desculpe pela confusão, me expressei totalmente errado na solicitação do código.

Oque eu preciso é um código que apresente uma MSGBOX na tela contendo os valores da range A:A, obedecendo as 2 condições abaixo:

1ª Condição:

B:B <= hoje();

2ª Condição:

C:C == "PENDENTE";

Bom dia!!

Você precisa que seja automático?

A 1ª Condição está junta (E(....)) da 2ª Condição ou 1ª Condição está junta (OU(....)) da 2ª Condição?

Att

Alexandrevba, bom dia.

Preciso das duas em (E(....))

Se a função hoje() fosse igual a 18/03/2015, Ele mostraria na msgbox as seguintes tarefas:

TAREFA 1
TAREFA 4

Obrigado desde já pela atenção.

Bom dia!!

Veja se eu entendi, baixe o anexo...faça os testes, por favor!

Att

Alexandre,

Perfeito, ficou como eu queria, no entanto fui tentar passar o VBA para a planilha na qual preciso da formula e não consegui
Se fosse C# até entenderia o codigo, mas codigos tipo C++ ou VB que não usam muito ";" me confundem.

Poderia me ajudar a passar para a planilha final ?

Se sim,

Segue as novas colunas que deverão constar a formula:

a range A:A agora sera a range F:F
a range B:B agora sera a range S:S
a range C:C agora sera a range A:A

Obrigado desde já pela atenção

O anexo

Boa tarde!!

Seu arquivo está protegido!!!!!!!! qual é a senha????????????????

Qual coluna de data do arquivo em anexo deve ser considerada (data recebimento ou data de atendimento etc)?

Att

Alexandre, bom dia.

Me desculpe, a senha é 1234
e a coluna que devera ser considerada é a S:S

Obrigado desde já pela atenção.

Boa tarde!!

Eu não postei a ultima versão
Foi mal rsrsr

Veja se é isso..favor fazer os devidos testes.

Arr

Acabei não precisando mais da tal planilha, mas irei verificar para que possamos concluir este caso.