Notifications
Clear all

Filtrar pela data do sistema (data atual)

8 Posts
2 Usuários
0 Reactions
1,636 Visualizações
(@betorubini)
Posts: 57
Trusted Member
Topic starter
 

Olá

Gostaria de criar um filtro num Listview pela data do sistema (data atual)
sem botões sem nada, apenas abriria o userform contendo o listview com os dados ja fitrados pela data atual

se alguém puder me ajudar com o código do filtro apenas
Obrigado!

 
Postado : 17/06/2013 8:41 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

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

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 17/06/2013 9:40 am
(@betorubini)
Posts: 57
Trusted Member
Topic starter
 

Segue o modelo em anexo
att

 
Postado : 17/06/2013 10:14 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 17/06/2013 10:37 am
(@betorubini)
Posts: 57
Trusted Member
Topic starter
 

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

 
Postado : 17/06/2013 11:28 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

è 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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 17/06/2013 4:49 pm
(@betorubini)
Posts: 57
Trusted Member
Topic starter
 

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á.

 
Postado : 17/06/2013 7:11 pm
(@betorubini)
Posts: 57
Trusted Member
Topic starter
 

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!

 
Postado : 17/06/2013 7:33 pm