none
Dúvida com ListBox RRS feed

  • Pergunta

  • Tenho um formulário que cadastra  um contato de uma empresa com os seguintes campos: nome, cargo, telefone, email.
    Até ai ok, porém, quero fazer algo que funcione da seguinte forma:

    Vou preencher os campos do meu formulário:
    Empresa: Empresa Teste [esse campo já estará preenchido, pois virá de outro textbox]

    Nome: Fernando
    Cargo: Analista
    Telefone: 999999999
    Email: teste@teste.com

    Após fazer o preenchimento vou clicar em um botão "Inserir registro" e ele deverá salvar na planilha, isso já está funcionando perfeitamente. A minha dúvida é a seguinte:

    Preciso inserir um ListBox abaixo desse meu formulário que após eu clicar no botão Inserir Registro irá carregar nele somente o que for referente a empresa "Empresa Teste"

    Exemplo:

    Empresa: Empresa Teste [esse campo ja estará preenchido, pois virá de outro textbox]

    Nome: Fernando
    Cargo: Analista
    Telefone: 999999999
    Email: teste@teste.com

    Clico no botão Inserir Registro

    ListBox
    Contatos cadastrados para cliente Fernando
    Nome         Cargo       Telefone             Email
    Fernando     Analista    999999999        teste@teste.com
    Joaquim   Gerente 101010101   teste2@teste.com

    quinta-feira, 17 de maio de 2018 13:05

Todas as Respostas

  • Convém antes de colocar as dúvidas, pesquisar no forum por respostas e há dezenas de códigos aqui para o efeito que pretendes.

    Na tua folha, tens que criar uma coluna para o nome da empresa independentemente de estar ou não na TextBox, pois o Excel não sabe a que empresa os dados dizem respeito.

    Optei por colocar o nome da Empresa na coluna "A", podes no entanto colocar na coluna que quiseres e adaptar o código de acordo com essa localização.

    Adapta o código:

    Private Sub CommandButton7_Click() ListBox1.Clear Dim ULT As Long Dim X As Integer Dim W As Worksheet Set W = ThisWorkbook.Sheets("TUA_FOLHA") W.Select ULT = Sheets("TUA_FOLHA").Cells(Cells.Rows.Count, 1).End(xlUp).Row

    'O nº 1, diz respeito à coluna onde é feita a pesquisa. Coluna 1 = Coluna "A"

    For X = 2 To ULT If Sheets("TUA_FOLHA").Cells(X, 1).Value = TextBox6.Value Then With Me.ListBox1 .AddItem .List(.ListCount - 1, 0) = ThisWorkbook.Sheets("TUA_FOLHA").Cells(X, 1).Text .List(.ListCount - 1, 1) = ThisWorkbook.Sheets("TUA_FOLHA").Cells(X, 2).Value .List(.ListCount - 1, 2) = ThisWorkbook.Sheets("TUA_FOLHA").Cells(X, 3).Value .List(.ListCount - 1, 3) = ThisWorkbook.Sheets("TUA_FOLHA").Cells(X, 4).Value .List(.ListCount - 1, 4) = ThisWorkbook.Sheets("TUA_FOLHA").Cells(X, 5).Value End With End If Next End Sub

    De acordo com a tua folha, procede às alterações necessárias.


    Marca o tópico como resposta se te for útil.

    M_A_S_L




    • Editado M_A_S_L sexta-feira, 18 de maio de 2018 13:00
    sexta-feira, 18 de maio de 2018 12:53