Ir ao conteúdo
  • Cadastre-se

Excel filtrar dados numa listbox atraves de uma textbox


Posts recomendados

Bom dia, pessoal

 

Eu criei um formulário com uma listbox que carrega dados de uma planilha, bem como, um combobox e uma textbox, no combobox eu seleciono a coluna que eu quero pesquisar (2 - Nome),  usando a formula left(combobox.value, 1) para selecionar a coluna 2.

O código que carrega dados na listbox funciona beleza, eu utilizo ele no evento initialize do formulário.

 

O problema esta nesse código, ele não da erro, porém quando eu começo a digitar algo na textbox os dados da listbox somem e não carrega mais nada.

 

 

Private Sub TEXTBOX_PESQUISA_Change()

Dim Linha As Integer
Dim Coluna As Integer
Dim LinhaListbox As Integer
Dim Valor_Nome As String
Dim W As Worksheet
Dim Valor_Pesq As String

 

Valor_Pesq = Me.TEXBOX_PESQUISA


Set W = Sheets("Contas à Receber")

 

W.Select

LinhaListbox = 0
Linha = 2
Coluna = Left(Me.Combox_CAR_Pesquisa.value, 1)


Me.LISTBOX_CAR_PESQUISA.Clear

 

With W

 

 

While .Cells(Linha, Coluna).Value <> Empty
Valor_Nome = .Cells(Linha, Coluna).Value
If UCase(Valor_Nome) = UCase(Valor_Pesq) Then

With Me.LISTBOX_CAR_PESQUISA


.AddItem

 

.List(LinhaListbox, 0) = Cells(Linha, 1)
.List(LinhaListbox, 1) = Cells(Linha, 2)
.List(LinhaListbox, 2) = Cells(Linha, 3)
.List(LinhaListbox, 3) = Cells(Linha, 4)
.List(LinhaListbox, 4) = Cells(Linha, 6)
.List(LinhaListbox, 5) = Format(Cells(Linha, 7), "currency")
.List(LinhaListbox, 6) = Format(Cells(Linha, 8), "currency")
.List(LinhaListbox, 7) = Format(Cells(Linha, 9), "currency")
.List(LinhaListbox, 😎 = Format(Cells(Linha, 10), "currency")
.List(LinhaListbox, 9) = Cells(Linha, 13)

 

LinhaListbox = LinhaListbox + 1
 

End With
 

End If
 

Linha = Linha + 1
 

Wend

 

End With

 

 

Me.Label_CAR_CONTREG = Me.LISTBOX_CAR_PESQUISA.ListCount & " Título(s) Encontrado(s)"

 

 

 

 

 

 

Link para o comentário
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...