locked
Dados da listbox em textbox - Excel VBA RRS feed

  • Pergunta

  • Pessoal,

    Tenho uma listbox com alguns dados, e eu precisa que quando eu der um duplo click em uma linha da listbox, os dados da linha passasse para as text box. Exemplo:

    List box: codigo cliente, nome, telefone.

    Textbox1 = codigo cliente

    textbox2 = nome

    textbox3 = telefone

    desde já muito obrigado!

    Abraços,

    Everton Delmiro

    sexta-feira, 28 de fevereiro de 2014 20:26

Respostas

  • A sua listbox já deve estar preenchida, a minha como não estava eu criei o evento initiliaze no userform1 para preencher dados.

    Private Sub UserForm_Initialize()
    
        With ListBox1
        .AddItem
        .List(0, 0) = "123"
        .List(0, 1) = "nome"
        .List(0, 2) = "33335555"
        .AddItem
        .List(1, 0) = "456"
        .List(1, 1) = "sobrenome"
        .List(1, 2) = "55553333"
        .AddItem
        .List(2, 0) = "789"
        .List(2, 1) = "ultimonome"
        .List(2, 2) = "33553355"
    
    End With
    End Sub

    E para inserir nas devidas textbox utilizasse este comando:

    Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
        numlinha = ListBox1.ListIndex
    
        TextBox1 = ListBox1.List(numlinha, 0)
        TextBox2 = ListBox1.List(numlinha, 1)
        TextBox3 = ListBox1.List(numlinha, 2)
    End Sub

    falou!

    • Marcado como Resposta Everton_Delmiro sexta-feira, 28 de fevereiro de 2014 21:56
    sexta-feira, 28 de fevereiro de 2014 21:19

Todas as Respostas

  • A sua listbox já deve estar preenchida, a minha como não estava eu criei o evento initiliaze no userform1 para preencher dados.

    Private Sub UserForm_Initialize()
    
        With ListBox1
        .AddItem
        .List(0, 0) = "123"
        .List(0, 1) = "nome"
        .List(0, 2) = "33335555"
        .AddItem
        .List(1, 0) = "456"
        .List(1, 1) = "sobrenome"
        .List(1, 2) = "55553333"
        .AddItem
        .List(2, 0) = "789"
        .List(2, 1) = "ultimonome"
        .List(2, 2) = "33553355"
    
    End With
    End Sub

    E para inserir nas devidas textbox utilizasse este comando:

    Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
        numlinha = ListBox1.ListIndex
    
        TextBox1 = ListBox1.List(numlinha, 0)
        TextBox2 = ListBox1.List(numlinha, 1)
        TextBox3 = ListBox1.List(numlinha, 2)
    End Sub

    falou!

    • Marcado como Resposta Everton_Delmiro sexta-feira, 28 de fevereiro de 2014 21:56
    sexta-feira, 28 de fevereiro de 2014 21:19
  • Valeu!!
    sexta-feira, 28 de fevereiro de 2014 21:56
  • E para quem já tem lançamentos na plan1 de A:I e só quer clicar 2 vezes no listbox para aparecer em 9 texboxes? E também, será que você poderia me ajudar com um vb para um botão pesquisar nome em uma plan1 com 9 itens dos quais a=código, b=nome?
    sexta-feira, 28 de agosto de 2015 00:04
  • O tópico ao qual você respondeu é muito antigo. Sugiro que crie um novo tópico com sua pergunta, referenciando este link. Com isso, você aumentará as chances de obter uma resposta e ajudará a manter o fórum organizado.

     

    *Este tópico está fechado*


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    sexta-feira, 28 de agosto de 2015 13:22
    Moderador