Notifications
Clear all

Preencher Text Box automaticamente com info da Combo box

19 Posts
5 Usuários
0 Reactions
4,020 Visualizações
(@gutobsouza)
Posts: 0
New Member
Topic starter
 

Pessoal, boa tarde

Estou criando uma aplicação no excel em VBA e como não utilizo a linguagem faz um tempo estou com dificuldade para realizar o procedimento.
Observei em alguns outros tópicos mais antigos e semelhantes mas não consegui aplicar no meu projeto.

O que quero fazer é o seguinte:

Escolher Opção "A" no ComboBox e aparecer o resultado "A" no TextBox
Se escolher opção "B" no ComboBox, aparecer o resultado "B" no TextBox

Segui as orientações para o preenchimento automático de um ComboBox para o outro e deu certo. No entanto, a aplicação fica melhor com o uso do TextBox.

Agradeço desde já!

 
Postado : 03/06/2016 12:29 pm
(@mprudencio)
Posts: 0
New Member
 

E so criar um novo formulario para cadastro.

Vc usa um formulario para consulta (ja existente), e outro para cadastrar.

 
Postado : 04/08/2016 4:33 pm
(@gutobsouza)
Posts: 0
New Member
Topic starter
 

Perfeito, vou fazer isso. Mas uma questão que talvez eu não tenha mencionado persiste gerando dúvida. Quero cadastrar funcionários específicos de um setor, por exemplo, e relacionar todos eles na busca quando procurar por esse setor. Pode ser feito isso?

 
Postado : 07/08/2016 11:16 am
(@mprudencio)
Posts: 0
New Member
 

Sim pode...

 
Postado : 07/08/2016 6:03 pm
(@fcarlosc)
Posts: 0
New Member
 

Boa-noite

Copie e cole esse código abaixo. É o mesmo do MPrudencio, só que dentro do evento do combobox - ComboBox1_Change()

Private Sub ComboBox1_Change()

Dim W As Worksheet
Dim Nome As String
Dim WLinha As Long

Set W = Worksheets("Plan1")
WLinha = 2
Nome = ComboBox1.Value

Do While W.Cells(WLinha, 2).Value <> ""

If W.Cells(WLinha, 2).Value = Nome Then

TextBox1.Value = W.Cells(WLinha, 4).Value
TextBox2.Value = W.Cells(WLinha, 3).Value
TextBox3.Value = W.Cells(WLinha, 5).Value
TextBox4.Value = W.Cells(WLinha, 6).Value
TextBox5.Value = W.Cells(WLinha, 8).Value
TextBox7.Value = W.Cells(WLinha, 9).Value
TextBox8.Value = W.Cells(WLinha, 10).Value
Exit Do

Else

WLinha = WLinha + 1

End If

Loop

End Sub

Att,

Francisco

 
Postado : 07/08/2016 9:28 pm
Página 2 / 2