Trazer as informaçõ...
 
Notifications
Clear all

Trazer as informações nos labels a partir da Combo

4 Posts
1 Usuários
0 Reactions
815 Visualizações
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

http://www.sendspace.com/file/7nsbyb

Tenho um userform onde tem uma combobox onde seleciono os candidatos e já vem até as fotos.
O userform tem uma combobox com os nomes da planilha candidatos.

E na planilha candidatos, tem 2 labels onde, a partir do valor da combobox, fazer um "procv" e trazer o sexo da pessoa e a idade.

obrigado!!

 
Postado : 04/07/2011 12:45 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

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

 
Postado : 04/07/2011 6:21 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

não consegui aplicar, dando erros.

tem como vc postar a plan com a adaptação pra ver/

obr

 
Postado : 04/07/2011 7:25 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Spar, aqui no serviço não tenho acesso a drives virtuais e tambem não tenho excel 2007, mas informe qual o erro que está dando, lembre-se de verificar as VARIAVEIS e as CONST.
As Const se referem às colunas, veja tambem o nome das abas, a linha, se não alterou nada em relação ao modelo que anexou, é para não dar erros, fiz em cima dele, mas se alterou alguma coisa tem de adaptar na rotina.
As instruções teem de estar no userform3, as linhas de Const e demais variaveis no Escopo, e depois é só associar a um commandbuttom no form.

abraços

 
Postado : 05/07/2011 5:14 am