MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Como fazer filtro no ListBox com Combobox vba excel

    Compartilhe

    MP345
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 18/05/2016

    Como fazer filtro no ListBox com Combobox vba excel

    Mensagem  MP345 em Qua 18 Maio 2016, 05:19

    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

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3227
    Registrado : 20/04/2011

    Re: Como fazer filtro no ListBox com Combobox vba excel

    Mensagem  Silvio em Qua 18 Maio 2016, 06:00

    Olá, bom dia.

    Sugiro um fórum especifico para MS Excel.   O MaximoAcess é para o aplicativo Ms Access.

    Segue dois links, que vão lhe ajudar em tua duvida.

    [Você precisa estar registrado e conectado para ver este link.]

    [Você precisa estar registrado e conectado para ver este link.]

    Bons estudos e sucesso a ti.

    Abraços.

      Data/hora atual: Sab 03 Dez 2016, 07:37