Notifications

Clear all

Filtro ListBox

2024 - VBA & Macros

Post Recente por Schramm 9 anos atrás

9 Posts

3 Usuários

0 Reactions

1,750 Visualizações

RSS

Schramm

(@schramm)

Posts: 33

Eminent Member

Topic starter

Boa noite amigos, estou precisando da ajuda de vocês!
Estou tentando fazer um filtro em tempo real dos itens que tenho em uma listbox, porém, não obtive êxito.. tenho um userform com uma listbox e uma textbox e, eu gostaria que ao digitar na textbox, seja filtrado sem precisar apertar "enter" os resultados que apresentam os caracteres digitados, ou seja, um filtro onde não precise digitar toda a palavra ou número... Outra coisa, tenho na parte inferior do userform 3 campos "Número de Lançamentos", "Soma dos Selecionados" e "Valor Total". Eu gostaria que "Número de Lançamentos" e "Valor Total" fossem alterados automaticamente antes e após filtrar os dados e que a "Soma dos Selecionados" fosse alterado conforme eu selecione 1 ou mais item na listbox.. e uma última dúvida, é possível fazer com que ao clicar na parte em branco da listbox ou do userform os itens selecionados deixem de ficar selecionados? Se não for pedir muito, alguém poderia me ajudar?

Agradeço desde já!

Segue em anexo exemplo do meu userform.

Postado : 01/05/2016 4:33 pm

Basole

(@basole)

Posts: 487

Reputable Member

tenho um userform com uma listbox e uma textbox e, eu gostaria que ao digitar na textbox, seja filtrado sem precisar apertar "enter" os resultados que apresentam os caracteres digitados, ou seja, um filtro onde não precise digitar toda a palavra ou número...

Voce tem 12 campos no seu listbox, por qual campo deseja filtra os dados?

Click em se a resposta foi util!

Postado : 01/05/2016 9:59 pm

Schramm

(@schramm)

Posts: 33

Eminent Member

Topic starter

Basole, eu gostaria que o filtro percorresse qualquer uma das colunas, pois assim poderia pesquisar por "fornecedor", " Data" ou qualquer outro parâmetro.. Seria possível ou tem que ser por uma coluna específica?

Postado : 02/05/2016 3:54 pm

adGere

(@adgere)

Posts: 76

Trusted Member

Veja se atende...

Postado : 03/05/2016 6:51 pm

Schramm

(@schramm)

Posts: 33

Eminent Member

Topic starter

Boa noite adGere.. exatamente isso! e quanto à desmarcar os itens selecionados, clicando em qualquer outra parte da listbox ou userform, seria possível?

Abraço e obrigado pela ajuda!

Postado : 03/05/2016 9:37 pm

adGere

(@adgere)

Posts: 76

Trusted Member

Quanto à seleção do listbox, como alternativa, sugiro:

alterar a propriedade MultiSelect para 2-fmMultiSelectExtended

com essa alteração para selecionar mais de registro clique sobre os itens precionando <CTRL> e para tirar a seleção clique sem precionar o <CTRL>

Veja se resolve...

Postado : 04/05/2016 3:45 pm

Schramm

(@schramm)

Posts: 33

Eminent Member

Topic starter

Seria uma opção, porém sempre irá ficar pelo menos 1 item selecionado, certo?

Postado : 04/05/2016 6:38 pm

adGere

(@adgere)

Posts: 76

Trusted Member

Certo..

O codigo abaixo tira a seleção do listbox... implemente no evento pretendido..

Dim i As Integer

If ListBox1.ListIndex = -1 Then Exit Sub
If ListBox1.ListCount = 0 Then Exit Sub

For i = 1 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) = True Then
       ListBox1.Selected(i) = False
    End If
Next i

Postado : 05/05/2016 9:42 am