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