Como fazer filtro n...
 
Notifications
Clear all

Como fazer filtro no ListBox com Combobox vba excel

4 Posts
2 Usuários
0 Reactions
2,053 Visualizações
(@mp345)
Posts: 2
New Member
Topic starter
 

Bom dia pessoal.
Sou novo neste assunto, e estou com dificuldade em fazer os comandos para um Userform contendo Combobox, Listbox e o Sistema de filtro.

O caso é o seguinte, no meu listbox quero que ocorra de seguinte forma, quando eu seleciono um mês no combobox, o vba selecione a planilha e mostre as informação nela contida no listbox, e que ao digitar no textbox ao lado seja filtrado os nomes iniciados com a letra digitada no listbox.
Porem ainda não consegui fazer com que o vba faça a ligação com o combobox e busque as informações da planilha referente a ele, e tambem quando for fazer a pesquisa pelo filtro, ele tambem faça o msm.

aguardo uma luz dos Nobre colaboradores.

segue abaixo o modelo do meu codigo, caso esteja errado favor corrigir.

Dim guia As Worksheets
   Dim linha As Integer
   Dim coluna As Integer
   Dim linhalistbox As Integer
   Dim valor_celula As String
   Dim REGISTRO As Integer
   
   
   If Combomes.Value = "JANEIRO 2016" Then
   REGISTRO = ThisWorkbook.Worksheets("JAN16").Select
   
   ElseIf Combomes.Value = "FEVEREIRO 2016" Then
   REGISTRO = ThisWorkbook.Worksheets("FEV16").Select
   End If
   Set guia = ThisWorkbook.REGISTRO
   
   linha = 2
   coluna = 11
   linhalistbox = 0
 
   
   Listbox1.Clear
   
   With guia
       While .Cells(linha, coluna).Value <> Empty
           valor_celula = .Cells(linha, coluna).Value
           
           If UCase(Left(valor_celula, Len(valor_pesquisado))) = UCase(valor_pesquisado) Then
               
            With userform1.Listbox1
            .AddItem
            .List(linhalistbox, 0) = Cells(linha, 1).Value
            .List(linhalistbox, 1) = Cells(linha, 2).Value
             linhalistbox = linhalistbox + 1
           
            End With
               
           End If
           linha = linha + 1
       Wend
   End With
   

   
End Sub

 
Postado : 18/05/2016 7:24 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Nada em nossa base server como modelo?
https://cse.google.com.br/cse?cx=partne ... obox%20vba

Att

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

 
Postado : 19/05/2016 8:17 am
(@mp345)
Posts: 2
New Member
Topic starter
 

Bom dia alexandrevba,
Realmente não encontrei, por que o meu problema exatamente esta no seguinte.
Eu consigo fazer com que o listbox seja preenchido atraves do combobox, porem não consigo fazer o filtro de acordo com o combobox, pois quanto seleciono outra planilha pelo combobox ai o filtro atraves do textbox não da certo por que não consigo vincular com o combobox.
Ou seja eu queria que ao selecionar uma planilha pelo combobox quando eu fosse filtrar uma palavra da listbox ele filtrasse da planilha selecionada pelo combobox.
Ex:
selecione plan JAN16 pelo combobox, então a listbox é preenchida com os dados desta planilha e que ao filtrar pela textbox ela filtre referente a este dados do listbox.
se eu selecionar plan FEV16 pelo combobox, então a listbox é preenchida com os dados desta planilha e que ao filtrar pela textbox ela filtre referente a este dados Ttbm do listbox.

Não sei se fui claro no que disse mas espero que me ajudem.

 
Postado : 19/05/2016 8:41 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Poste seu arquivo modelo!

Att

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

 
Postado : 19/05/2016 11:39 am