Comando de decisão

[nhyky12@gmail.com]

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.

[Mauro Coutinho]

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 :

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

[]s