Bom dia!!

O ideal seria ter disponível seu arquivo modelo compactado!!

Att

Segue o modelo em anexo
att

Aqui no serviço não tenho como ver seu arquivo, então procure adaptar o modelo abaixo, faz justamante o que quer, ao abrir o arquivo é carregado o Forumário com o ListView filtrado pela datsa do sistema.

ListView Filtrando pela Data Sistema na Inicialização do Arquivo

[]s

è exatamente isso, mas tentei adaptar sem sucesso.
Ocorre um erro "Tempo de execução 13: Tipos incompativeis"

è exatamente isso, mas tentei adaptar sem sucesso.
Ocorre um erro "Tempo de execução 13: Tipos incompativeis"

Beto, a rotina está correta como pode ver no exemplo, se quando migrou está dando "erro tipo incompativel", significa que alguns dos valores que estão na planilha podem estardigitado incorretamente ou você está referenciando a coluna errada, veja se no seu modelo as datas estão no formato correto, se estiverem como texto teremos erro de incompatibilidade.
Mas eu acredito que é mais referente as colunas que teem de ser ajustada conforme seu modelo, veja que no modelo que postei as datas estão na coluna "C".

Veja sobre Funções de Tipos no link abaixo :

http://www.juliobattisti.com.br/cursos/ ... lo5/14.asp

[]s

Mauro, acho que é isso mesmo, pois minhas datas estão na coluna "A".
você pode me ajudar a fazer essa adaptação?

Obrigado desde já.

Opa consegui

no código do filtro

'Filtrar pela Data do Sistema
Private Sub FiltarDtInicio()
    Dim Tmp As Long
    Dim I As Long
    Dim sDtFilter As Date
    
    Tmp = frmSaida.ListView1.ListItems.Count
    
    sDtFilter = sDataSistema
    
    Tmp = frmSaida.ListView1.ListItems.Count

    For I = 1 To Tmp
        
        With ListView1
            If .ListItems(I).SubItems(2) > sDtFilter Then
                 frmSaida.ListView1.ListItems.Remove I
                    I = I - 1
                    Tmp = Tmp - 1
                        If I = Tmp Then Exit For
                            Tmp = frmSaida.ListView1.ListItems.Count
                 
            ElseIf .ListItems(I).SubItems(2) < sDtFilter Then
                    frmSaida.ListView1.ListItems.Remove I
                        I = I - 1
                        Tmp = Tmp - 1
                            If I = Tmp Then Exit For
                                Tmp = frmSaida.ListView1.ListItems.Count
            
            ElseIf .ListItems(I).SubItems(2) = sDtFilter Then
                    
                    Tmp = Tmp
                    
                    If I = Tmp Then Exit For
                        Tmp = frmSaida.ListView1.ListItems.Count
                        
            End If
        End With
    Next
End Sub

apenas apaguei onde indicava a coluna "C"

ListItems(I).SubItems(2)

ficando assim

ListItems(I)

se eu estiver errado me corrijam!
Obrigado pela ajuda!