Spar, no seu Userform3, adicione as rotinas abaixo, a mesma está associada ao CommandButton1 , adapte a outro Botão, ou coloque no evento Change do ComboBox1, preste atenção nas Const e Variáveis definidas.
Const Linha As Byte = 1
Const colNomes As Integer = 1
Const colIdade As Integer = 3
Const colSexo As Integer = 4
Dim LocalizaNome As Boolean
Dim sNomeLoc As String
Dim VarNmCandidato As String
Private Sub CommandButton1_Click()
VarNmCandidato = ComboBox1
LocalizaNome = False
sNomeLoc = ProcuraNomeId(VarNmCandidato)
End Sub
Public Function ProcuraNomeId(ByVal NomeId As String) As String
Dim i As Long
Dim wsCandidatos As Worksheet
Set wsCandidatos = Sheets("Candidatos")
i = Linha
With wsCandidatos
Do While Not IsEmpty(.Cells(i, colNomes))
If .Cells(i, colNomes).Value = NomeId Then
LocalizaNome = True
Label8.Caption = .Cells(i, colIdade).Value
Label7.Caption = .Cells(i, colSexo).Value
Exit Do
End If
i = i + 1
Loop
End With
'caso não encontre o registro
If Not LocalizaNome Then
MsgBox "não localizado"
End If
End Function
abraços
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 04/07/2011 6:21 pm