Notifications

Clear all

Filtrando entre Datas ListBox

2024 - VBA & Macros

Post Recente por leandroxtr 7 anos atrás

9 Posts

2 Usuários

0 Reactions

1,434 Visualizações

RSS

leandroxtr

(@leandroxtr)

Posts: 447

Reputable Member

Topic starter

Boa tarde

Alguém poderia me ajudar com esta demanda?
Estou disponibilizando anexo uma planilha onde eu estou trabalhando com um relatório no ListBox e este relatório precisa ser filtrado entre duas datas (data inicial e data final).

Para isso, criei duas textboxes onde serão inseridas estas datas à desejo do usuário.

Gostaria de saber se os senhores podem me ajudar no desenvolvimento deste código, onde, a partir do intervalo entre datas (inseridas nas textboxes), a Listbox me retone todas as linhas que compõem essa condição. Ou seja, todas as linhas que estão no intervalo das datas.

Obrigado

Se te ajudou, não se esqueça de dar um like na resposta e marcar o tópico como finalizado.

Abraços!
Leandro Cordeiro

Postado : 29/06/2017 11:16 am

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious Member

leandroxtr,

Boa tarde!

No lugar de caixas de texto, inseri o controle DTPicker pois isso evitará uma série de tratamento de erros que o usuário comum pode cometer.

Veja se é assim.

List_Format.zip

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 29/06/2017 12:45 pm

leandroxtr

(@leandroxtr)

Posts: 447

Reputable Member

Topic starter

O problema é que não tenho esse DTpicker aqui no trabalho e não faço ideia como se habilita ou se tem que baixar alguma coisa.

Se te ajudou, não se esqueça de dar um like na resposta e marcar o tópico como finalizado.

Abraços!
Leandro Cordeiro

Postado : 29/06/2017 1:00 pm

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious Member

Nesse momento estou fora do trabalho e não tenho nem como de enviar agora o arquivo DLL que adiciona o DTPicker. Veja se este link pode te ajudar https://stackoverflow.com/questions/134 ... a-userform

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 29/06/2017 2:27 pm

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious Member

leandroxtr,

Bom dia!

Você instala o arquivo anexo no diretório C:WindowsSysWow64. Depois você utiliza o RegSrv do windows para regsitrar a ocx e seleciona ela no meu FerramentasReferências do VBA.

Mscomct2.zip

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 30/06/2017 5:26 am

leandroxtr

(@leandroxtr)

Posts: 447

Reputable Member

Topic starter

Fiz tudo que você falou.

Baixei o arquivo, coloquei na pasta mencionada, registrei a OCX e abri ela no VBA.

mesmo assim está aparecendo a mensagem anexo!

Se te ajudou, não se esqueça de dar um like na resposta e marcar o tópico como finalizado.

Abraços!
Leandro Cordeiro

Postado : 30/06/2017 6:08 am

leandroxtr

(@leandroxtr)

Posts: 447

Reputable Member

Topic starter

Olha ele habilitado aí!

Só não abre a sua planilha! =/

Se te ajudou, não se esqueça de dar um like na resposta e marcar o tópico como finalizado.

Abraços!
Leandro Cordeiro

Postado : 30/06/2017 6:23 am

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious Member

leandroxtr,

Bom dia!

Aí já não sei o que pode ser... talvez incompatibilidade de versões do Excel (a minha é a 2007) ou até versão do Windows (a minha é Windows 7 Enterprise de 64 Bits, Service Pack 1).

Bom... segue versão com caixa de texto nas datas inicial e final. Você precisará fazer tratamento de erros do usuário.

List_Format-Versão com TextBox.zip

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 30/06/2017 8:54 am