Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Macro para pesquisa em Userform

Esclarecimentos e dúvidas sob o Modelo de Aplicativo de Cadastro em VBA no Microsoft Excel publicado no site e blog http://www.tomasvasquez.com.br
Altamir Vale
Acabou de chegar
Acabou de chegar
Mensagens: 3
Registrado em: Sex Nov 08, 2013 3:35 pm

Macro para pesquisa em Userform

Mensagem 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


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Marciel Silva
Colaborador
Colaborador
Mensagens: 98
Registrado em: Qui Nov 01, 2012 2:37 pm

Re: Macro para pesquisa em Userform

Mensagem por Marciel Silva »

Altamir Vale, bom dia!

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

Att,


Responder