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
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
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,