Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Preencher listbox c...
 
Notifications
Clear all

Preencher listbox com combobox (conforme exmplo)

 
2024 - VBA & Macros
Post Recente por Gesus 7 anos atrás
4 Posts
4 Usuários
0 Reactions
1,322 Visualizações
RSS
 Eufrásio
(@eufrasio)
Posts: 23
Eminent Member
Topic starter
 

Bom dia!

Amigos , venho aqui novamente pedir um apoio neste trabalho que estou realizado. No formulário pesquisa (frmPesquisa) tenho uma combobox que apresenta os nomes dos técnicos, de acordo com o técnico selecionado ao clicar-se em pesquisar por técnico a listbox deve ser preenchida de acordo com o numero de vezes que o técnico aparecer. eu consegui fazer a combo listar os técnicos mas me resta preencher a listbox e apresentar o número de resultados no label em baixo do mesmo jeito que as combos datas fazem no formulário.

Amigos agradeço pelo apoio!

 
Postado : 10/12/2017 6:48 am
 klarc28
(@klarc28)
Posts: 971
Prominent Member
 

https://www.youtube.com/results?search_query=vba+pesquisa+listbox

 
Postado : 10/12/2017 9:22 am
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

O codigo é o mesmo, a unica diferença é que ao inves de indicar a coluna Data pra a pesquisa, use a coluna do nome do tecnico.

É necessario que o nome do tecnico esteja em cada linha.

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 10/12/2017 5:30 pm
 Gesus
(@gesus)
Posts: 44
Eminent Member
 
Private Sub CommandButton1_Click()

Sheets("OS").Select
    Range("I2").Select
    linha = 2
    Me.lbDados.Clear
    
    Do While ActiveCell.Value <> ""
        If ActiveCell.Value = Me.ComboBox1.Value Then
            With Me.lbDados
                .AddItem
                    .List(linhalistbox, 0) = Sheets("OS").Cells(linha, 1)
                    .List(linhalistbox, 1) = Sheets("OS").Cells(linha, 2)
                    .List(linhalistbox, 2) = Sheets("OS").Cells(linha, 3)
                    .List(linhalistbox, 3) = Sheets("OS").Cells(linha, 4)
                    .List(linhalistbox, 4) = Sheets("OS").Cells(linha, 5)
                    .List(linhalistbox, 5) = Sheets("OS").Cells(linha, 6)
                    .List(linhalistbox, 6) = Sheets("OS").Cells(linha, 7)
                    .List(linhalistbox, 7) = Sheets("OS").Cells(linha, 8)
                    .List(linhalistbox, 8) = Sheets("OS").Cells(linha, 9)
            End With
        linhalistbox = linhalistbox + 1
        End If
        linha = linha + 1
        ActiveCell.Offset(1, 0).Select
    Loop

End Sub

Segue o código para inclusão no seu projeto
Fiz de forma simples, espero que te ajude.

att
Gesus Viegas

 
Postado : 12/12/2017 6:23 am
Forum Jump:
  Tópico Anterior
Próximo Tópico