Fazer pesquisa em combobox - VB Excel

[Killer_XXI 0]

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

[Claudio Neto 3]

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?

[Killer_XXI 0]

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