Prezados
Estou montando meu 1º userform para meu uso
estou com dificuldades na macro que faz a pesquisa já tentei de várias maneiras
e o máximo que consegui foi que colasse a pesquisa dos titulos dos dados
Private Sub CmdPesquisar_Click()
'Verificar se foi digitado um nome na primeira caixa de texto
If TxtNome.Text = "" Then
MsgBox "Digite o Nome"
GoTo Linha1
End If
With Worksheets("ControleREC").Range("G:G")
Set c = .Find(TxtNome.Value, LookIn:=xlValues, LookAt:=xlPart)
If Not c Is Nothing Then
c.Activate
If c.Offset(0, 0) = "Vale" Then
OptTerceiro.Value = True
Else
OptVale.Value = True
End If
CmbSupervisão.Value = c.Offset(0, 1).Value
CmbGA.Value = c.Offset(0, 2).Value
TxtData.Value = c.Offset(0, 3).Value
TxtHora.Value = c.Offset(0, 4).Value
If c.Offset(0, 5) = "Vale" Then
OptTerceiro1.Value = True
Else
OptVale1.Value = True
End If
TxtNome.Value = c.Offset(0, 6).Value
TxtMatrícula.Value = c.Offset(0, 7).Value
TxtGAObservador.Value = c.Offset(0, 8).Value
CmbCondiçãoInsegura.Value = c.Offset(0, 9).Value
CmbAmbiente.Value = c.Offset(0, 10).Value
TxtLocal.Value = c.Offset(0, 11).Value
TxtDescrição = c.Offset(0, 12).Value
End If
End With
Linha1:
End Sub
ATENÇÃO NOVOS USUÁRIOS
Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.
Esqueceu sua senha?
Você pode usar o mecanismo de lembrete neste link: Recuperar senha
Você receberá um link de reativação no email cadastrado.
Não recebeu o email? Lembre-se checar o Lixo Eletrônico.
Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.
Esqueceu sua senha?
Você pode usar o mecanismo de lembrete neste link: Recuperar senha
Você receberá um link de reativação no email cadastrado.
Não recebeu o email? Lembre-se checar o Lixo Eletrônico.
Macro para pesquisa em Userform
-
- Acabou de chegar
- Mensagens: 3
- Registrado em: Sex Nov 08, 2013 3:35 pm
-
- Colaborador
- Mensagens: 98
- Registrado em: Qui Nov 01, 2012 2:37 pm
Re: Macro para pesquisa em Userform
Altamir Vale, bom dia!
Seria mais fácil mandar um exemplo para adaptarmos às suas necessidades!!
Att,
Seria mais fácil mandar um exemplo para adaptarmos às suas necessidades!!
Att,
Marciel Silva
Se suas dúvidas foram esclarecidas, marque o tópico como [RESOLVIDO].
E agradeça aqueles que voluntariamente pôde te auxiliar clicando no joinha.
m-m@r7.com
Se suas dúvidas foram esclarecidas, marque o tópico como [RESOLVIDO].
E agradeça aqueles que voluntariamente pôde te auxiliar clicando no joinha.
m-m@r7.com