Por favor me ajude em um simples código.
tenho uma caixa de listagem, e se um determinado numero for escolhido, que as 3 caixas de testo sejam preenchidas ao mesmo tempo.
Se eu escolher o numero 1 na lista, as txb 1= a, txb2=b, txb3=c
Se escolher numero 2, a txb1=d, txb2=e e txb3=f.....assim por diante.
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Comando de decisão
-
- Colaborador
- Mensagens: 25
- Registrado em: Dom Set 25, 2016 3:26 am
- Mauro Coutinho
- Jedi
- Mensagens: 1561
- Registrado em: Sáb Mar 13, 2010 8:10 pm
- Localização: São José dos Pinhais - Pr
Re: Comando de decisão
Está bem vago sua solicitação, faltam mais detalhes, tipo os nomes corretos dos controles e o que temos em "...assim por diante".
Desta forma segue uma rotina básica com os nomes padrões dos controles e só om duas condições, veja se consegue ajustar ao que pretende :
[]s
Desta forma segue uma rotina básica com os nomes padrões dos controles e só om duas condições, veja se consegue ajustar ao que pretende :
Código: Selecionar todos
Private Sub ListBox1_Click()
If UserForm1.ListBox1.ListCount = 0 Then
Else
Dim Item As Double
Dim sSelecionado
For Item = 0 To UserForm1.ListBox1.ListCount - 1
If UserForm1.ListBox1.Selected(Item) = True Then
sSelecionado = ListBox1.List(Item, 0)
Select Case sSelecionado
Case "1"
TextBox1.Value = "a"
TextBox2.Value = "b"
TextBox3.Value = "c"
Case "2"
TextBox1.Value = "d"
TextBox2.Value = "e"
TextBox3.Value = "f"
End Select
Exit Sub
End If
Next
End If
End Sub