Dúvida com ListBox

Question

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: [e-mail]

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: [e-mail]

Clico no botão Inserir Registro

ListBox
Contatos cadastrados para cliente Fernando
Nome         Cargo       Telefone             Email
Fernando     Analista    999999999        [e-mail]
Joaquim   Gerente 101010101   [e-mail]

Answer 1

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