Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Pesquisa combobox e listbox
Pesquisa combobox e listbox
Prezados,
Gostaria de ajuda dos senhores, estou com uma planilha que necessito de fazer um formulario de pesquisa, poderiam me ajudar?
tenho cadastro feito na planilha
Coluna de A - B - C - D - E
No combobox gostaria de selecionar a nota que consta na coluna A
E em cada Listbox exibir o dados de cada coluna referente a nota selecionada no combobox.
Aguardo ajuda de vocês para solucionar meu problema.
Grato!
Gostaria de ajuda dos senhores, estou com uma planilha que necessito de fazer um formulario de pesquisa, poderiam me ajudar?
tenho cadastro feito na planilha
Coluna de A - B - C - D - E
No combobox gostaria de selecionar a nota que consta na coluna A
E em cada Listbox exibir o dados de cada coluna referente a nota selecionada no combobox.
Aguardo ajuda de vocês para solucionar meu problema.
Grato!
Re: Pesquisa combobox e listbox
Amigo, apenas para entender:
Você quer buscar a informação através da selação no LISTBOX (no caso coluna A) e preencher os dados das colunas B,C,D,E referente a esses dados nos COMBOBOX? ou você deseja após selecionada a coluna A popular novos LISTBOX?
Se possível coloque uma planilha de modelo para tentarmos te ajudar.
Abs.
Você quer buscar a informação através da selação no LISTBOX (no caso coluna A) e preencher os dados das colunas B,C,D,E referente a esses dados nos COMBOBOX? ou você deseja após selecionada a coluna A popular novos LISTBOX?
Se possível coloque uma planilha de modelo para tentarmos te ajudar.
Abs.
Re: Pesquisa combobox e listbox
Na verdade eu gostaria que os dados que constam na plan1
ao executar o userform e ao selecionar o dados da (Plan1.colunaA) no combobox para pesquisa
no listbox1 = exibir dados da Plan1.coluna B referente a nota filtrada no combobox (plan1.coluna A)
no lisbox2 = exibir dados da Plan1.coluna C referente a nota filtrada no combobox (plan1.coluna A)
no lisbox3 = exibir dados da Plan1.coluna D referente a nota filtrada no combobox (plan1.coluna A)
ao executar o userform e ao selecionar o dados da (Plan1.colunaA) no combobox para pesquisa
no listbox1 = exibir dados da Plan1.coluna B referente a nota filtrada no combobox (plan1.coluna A)
no lisbox2 = exibir dados da Plan1.coluna C referente a nota filtrada no combobox (plan1.coluna A)
no lisbox3 = exibir dados da Plan1.coluna D referente a nota filtrada no combobox (plan1.coluna A)
Re: Pesquisa combobox e listbox
Amigo, não tenho bem o que você precisa, mais acho que pode dar uma luz para você.
Esse código busca as informações de uma lista com base no item selecionado no ListBox e grava nas variaveis (colunaB, colunaC, colunaD) - poderiam ser substituita por TextBox ou criar uma forma de adicionar esses itens ao seu ComboBox, mas a lógica de pesquisa está aqui.
Obs.: Eu uso essa função aqui em uma ferramenta que tenho, só adaptei para você entender, porém não cheguei a testar este código, pode ser que algo não funcione.
Qualquer coisa avise. Espero ter ajudado.
Esse código busca as informações de uma lista com base no item selecionado no ListBox e grava nas variaveis (colunaB, colunaC, colunaD) - poderiam ser substituita por TextBox ou criar uma forma de adicionar esses itens ao seu ComboBox, mas a lógica de pesquisa está aqui.
Código: Selecionar todos
Public Sub Buscar()
Application.ScreenUpdating = False
Dim colunaA, colunaB, colunaC, colunaD As String
If Me.NomeListBox <> vbNullString Then
'Atribui o valor do item selecionado para a colunaA (será usado para pesquisa abaixo)
colunaA = Me.NomeListBox
'Seleciona a sheet onde vai buscar as informações
ThisWorkbook.Activate
Sheets("NOME DA SHEET").Select
Range("A1").Select
pontovoltar:
'Se o item do ListBox for igual o da célula selecionada, atribui o valor
If UCase(colunaA) = UCase(ActiveCell.Value) Then
'Atribui os resultados
colunaB = ActiveCell.Offset(0, 1)
colunaC = ActiveCell.Offset(0, 2)
colunaD = ActiveCell.Offset(0, 3)
Else
'Se não for igual ao item do ListBox seleciona a próxima linha da coluna A
ActiveCell.Offset(1, 0).Select
'Enquanto a coluna A não estiver em branco (Empty) continuará executando
If ActiveCell.Value <> Empty Then GoTo pontovoltar
End If
Application.ScreenUpdating = True
End Sub
Qualquer coisa avise. Espero ter ajudado.
Re: Pesquisa combobox e listbox
Segue o exemplo de como desejo
Ao selecionar a nota no combobox
o dados delas aparece no textbox conforme o cadastrado na planilha.
Ao selecionar a nota no combobox
o dados delas aparece no textbox conforme o cadastrado na planilha.
- Anexos
-
- Untitled.jpg (61.4 KiB) Exibido 7095 vezes
Re: Pesquisa combobox e listbox
A explicação que coloquei acima acredito que te atende, da só uma adaptada para o seu código.
No lugar das variaveis colunaB, colunaC, colunaD, pode coloca direto o nome do seu TextBox que você quer preencher.
No lugar das variaveis colunaB, colunaC, colunaD, pode coloca direto o nome do seu TextBox que você quer preencher.