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.

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 » Dom Nov 17, 2013 3:49 pm

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 » Seg Nov 18, 2013 10:34 am

Altamir Vale, bom dia!

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

Responder