Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Pesquisa combobox e listbox

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
nuthx
Acabou de chegar
Acabou de chegar
Mensagens: 3
Registrado em: Sex Abr 17, 2015 5:05 pm

Pesquisa combobox e listbox

Mensagem por nuthx »

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!


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
skuma
Colaborador
Colaborador
Mensagens: 25
Registrado em: Qui Mai 02, 2013 2:03 pm

Re: Pesquisa combobox e listbox

Mensagem por skuma »

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.


nuthx
Acabou de chegar
Acabou de chegar
Mensagens: 3
Registrado em: Sex Abr 17, 2015 5:05 pm

Re: Pesquisa combobox e listbox

Mensagem por nuthx »

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)


Avatar do usuário
skuma
Colaborador
Colaborador
Mensagens: 25
Registrado em: Qui Mai 02, 2013 2:03 pm

Re: Pesquisa combobox e listbox

Mensagem por skuma »

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.

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
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.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


nuthx
Acabou de chegar
Acabou de chegar
Mensagens: 3
Registrado em: Sex Abr 17, 2015 5:05 pm

Re: Pesquisa combobox e listbox

Mensagem por nuthx »

Segue o exemplo de como desejo

Ao selecionar a nota no combobox

o dados delas aparece no textbox conforme o cadastrado na planilha.
Anexos
Untitled.jpg
Untitled.jpg (61.4 KiB) Exibido 7095 vezes


Avatar do usuário
skuma
Colaborador
Colaborador
Mensagens: 25
Registrado em: Qui Mai 02, 2013 2:03 pm

Re: Pesquisa combobox e listbox

Mensagem por skuma »

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.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder