MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    Como fazer filtro no ListBox com Combobox vba excel

    avatar
    MP345
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    Como fazer filtro no ListBox com Combobox vba excel Empty Como fazer filtro no ListBox com Combobox vba excel

    Mensagem  MP345 18/5/2016, 13: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
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    Como fazer filtro no ListBox com Combobox vba excel Empty Re: Como fazer filtro no ListBox com Combobox vba excel

    Mensagem  Silvio 18/5/2016, 14: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.

    http://gurudoexcel.com/forum/

    http://www.planilhando.com.br/forum/viewforum.php?f=14

    Bons estudos e sucesso a ti.

    Abraços.

      Data/hora atual: 28/3/2024, 11:21