Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Killer_XXI

Fazer pesquisa em combobox - VB Excel

Recommended Posts

Olá a todos.

 

Eu criei p um amigo uma planilha simples p controle de devedores onde eu cadastro os dados através de um formulário em VBA, vou tentar explicitar ela aqui.

 

Criei uma planilha no excel com 7 colunas de dados:

 

A - Cód

B - Nome

C - CPF

D- Data

E - Valor 1

F - Valor 2

G - Valor 3

 

E no VBA fiz 2 Fomulários:

 

Formulário 1 - Projeto

- Possui 7 'textboxs' (um para cada coluna do excel) onde eu cadastro os dados na planilha.

- 'Botões de comando': Cadastrar. Alterar. Pesquisar. Excluir.

 

Formulário 2 - Pesquisa (Tentei isso pela primeira vez, e não deu certo)

- Possui um 'combobox' (aqui aparecem os NOMES cadastrados na coluna B da planilha)

- Um 'botão de comando' (deveria carregar os dados da pesquisa no Formulário 1)

 

Eu abro o Formulário 1, então clico no botão PESQUISAR e ele abre o Formulário 2 (como um popup) ai eu escolho no 'combobox' um dos NOMES que já aparecem automaticamente no 'combobox'. Até ai td funcionando.

Depois disso eu não consegui fazer um código para funcionar o próximo passo.

Que deveria funconar assim:

 

Formulário 2: Pesquisa - Escolher um NOME no combobox > Clicar o 'botão de comando' > voltar ao Formulário 1 > carregar os 7 'textbox' com os dados do NOME escolhido.

 

Então é isso, eu acredito que seja simples de fazer, porém como só conheço do básico n vislumbrei um código p fazer isso.

 

Obrigado.

 

Reinaldo. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

Compartilhar este post


Link para o post
Compartilhar em outros sites

Olá.

 

Será que poderia postar a parte do código que está preenchendo os nomes no combobox e que tentou usar no botao de comando?

 

Não deu certo porque? Ele deu algum erro ou simplesmente não acontece nada?

Compartilhar este post


Link para o post
Compartilhar em outros sites

Olá Cláudio!!

 

É o seguinte eu aperto o botão PESQUISAR e pela função < show.Pesquisar > ele me abre o formulário 2 onde o código está assim:

 

"Carrega os nomes no combobox"
Private Sub UserForm_Initialize()

    With Me.ComboBox1
        .RowSource = "NOME"
        .ListIndex = 0
        
    End With
    
End Sub

"Carrega os dados pesquisados de volta no Formulário 1"
Private Sub CommandButton1_Click()

    projeto.TextBox1.AddItem Plan1.Range("A" & Me.ComboBox1.ListIndex + 2)
    projeto.TextBox2.AddItem Plan1.Range("B" & Me.ComboBox1.ListIndex + 2)
    projeto.TextBox3.AddItem Plan1.Range("C" & Me.ComboBox1.ListIndex + 2)
    projeto.TextBox4.AddItem Plan1.Range("D" & Me.ComboBox1.ListIndex + 2)
    projeto.TextBox5.AddItem Plan1.Range("E" & Me.ComboBox1.ListIndex + 2)
    projeto.TextBox6.AddItem Plan1.Range("F" & Me.ComboBox1.ListIndex + 2)
    projeto.TextBox7.AddItem Plan1.Range("G" & Me.ComboBox1.ListIndex + 2)

    Unload Me
    
End Sub

Essa última parte eu não sei fazer, deve estar completamente errado, portanto não leve em consideração. rssrrssrrs

Qdo eu executo o vba da um erro mostrando algum problema na função AddItem.

 

Abraços, vlw!!

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.