Segue um exemplo com aplicação de filtro com data < (menor) que hoje:
Ou seja carrega os dados com somente data vencidas

Segue um exemplo com aplicação de filtro com data < (menor) que hoje:
Ou seja carrega os dados com somente data vencidas

Obrigado pela ajuda Basole
Basicamente é isso que eu preciso, mas sem a combobox.

Tentei implementar no meu projeto mas não consegui.
Eu tenho 34 colunas em meu banco de dados e preciso que o listbox me apresente somente 3 delas. (Nome Fantasia, Representante e Data de Validade), caso a data esteja expirada.
Estou encaminhando o arquivo para você dar uma olhada se puder.

Consegui criar o filtro para colunas específicas conforme mencionei acima. Contudo, ainda não consegui criar os títulos semelhante ao que você criou.

Usei o seguinte código:

With ListBox2
.Font.Size = Me.ListBox1.Font.Size
.BackColor = &H404040
.ForeColor = Me.ListBox1.BackColor
.ColumnCount = Me.ListBox1.ColumnCount
.ColumnWidths = Me.ListBox1.ColumnWidths
.RowSource = ActiveSheet.Range(Cells(1, 1), Cells(1, 12), Cells(1, 34)).Address

End With

Acho que estou errando na ultima linha, onde eu estou apontando para ser mostrando o título das celulas (A1), (L1) e (AH1).

@hpernaf,
Veja as alteracoes, inclui os titulos das colunas no Listbox1 no seu arquivo.
Eu usei colunas auxiliares para criar um intervalo dos titulos

@hpernaf,
Veja as alteracoes, inclui os titulos das colunas no Listbox1 no seu arquivo.
Eu usei colunas auxiliares para criar um intervalo dos titulos

Basole, muito obrigado pela sua ajuda. Não havia pensado nessa solução que vc implementou ao adicionar colunas no final do banco.Achei bem interessante e me atendeu perfeitamente.

Valeu mesmo!