Veja se ajuda :
Filtrar ListView Criterios Datas e Texto
viewtopic.php?f=21&t=3586

[]s

Mauro, o arquivo está corrompido e não descompacta.

Mauro, o arquivo está corrompido e não descompacta.

Halk, atualizei o anexo, baixe novamente e veja se é isto.

[]s

Muito obrigado Mauro,

Funcionou direitinho e consegui adaptar no meu projeto. Valeu!!!

Dim Tmp As Long
Dim I As Long
Dim sDtIni As Date
Dim sDtFim As Date
    
Tmp = frmPesquisa.lstv.ListItems.Count
If dataInicial = "" Then
MsgBox "Digite uma Data Válida", , "Data Inicial Obrigatória !!!"
dataInicial.SetFocus
Exit Sub
ElseIf dataFinal = "" Then
MsgBox "Digite uma Data Válida", , "Data Final Obrigatória !!!"
dataFinal.SetFocus
Exit Sub
End If

sDtIni = dataInicial.Value
sDtFim = dataFinal.Value

For I = 1 To Tmp

With lstv
If .ListItems(I).SubItems(2) < sDtIni Then
frmPesquisa.lstv.ListItems.Remove I
I = I - 1
Tmp = Tmp - 1
If I = Tmp Then Exit For
Tmp = frmPesquisa.lstv.ListItems.Count
           
ElseIf .ListItems(I).SubItems(2) > sDtFim Then
frmPesquisa.lstv.ListItems.Remove I
I = I - 1
Tmp = Tmp - 1
If I = Tmp Then Exit For
Tmp = frmPesquisa.lstv.ListItems.Count
                        
ElseIf .ListItems(I).SubItems(2) = sDtFim Then
Tmp = Tmp ' 1
If I = Tmp Then Exit For
Tmp = frmPesquisa.lstv.ListItems.Count
End If
End With
Next