Página 1 de 1

Macro para pesquisa em Userform

Enviado: Dom Nov 17, 2013 3:49 pm
por Altamir Vale
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

Re: Macro para pesquisa em Userform

Enviado: Seg Nov 18, 2013 10:34 am
por Marciel Silva
Altamir Vale, bom dia!

Seria mais fácil mandar um exemplo para adaptarmos às suas necessidades!!

Att,