Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Pesquisa por formulário

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
mhenrique



Mensagens : 17
Data de inscrição : 14/09/2012
Idade : 23
Localização : Piracicaba - SP

MensagemAssunto: Pesquisa por formulário   Ter Out 23, 2012 7:00 pm

Boa tarde! Smile

Desenvolvi uma planilha dividida ao meio, para um colégio. A parte da esquerda é o cadastro de professores, que não vai ser alterado. A parte da direita é referente aos alunos, com as respectivas informações:

Coluna E -> número da matrícula (gerado automaticamente por VBA)
Coluna F -> nome do aluno
Coluna G -> curso do aluno
Coluna H -> nascimento do aluno
Coluna I -> etnia do aluno

No formulário de pesquisa, é somente permitido pesquisar os alunos, e a pesquisa é feita por nome. O problema é: ao digitar o nome de um professor, ele traz no formulário os dados de um aluno.

Existe algum código VBA para que o que for digitado no formulário de pesquisa seja buscado apenas em uma coluna da planilha, isto é, só na coluna F?

Obrigado! Smile
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Pesquisa por formulário   Qua Out 24, 2012 11:34 pm

Boa noite!!!

Poste seu arquivo pra que o pessoal possa ajuda-lo!

Use um site gratuito como sendspace ou outros e nos mande o link.

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
mhenrique



Mensagens : 17
Data de inscrição : 14/09/2012
Idade : 23
Localização : Piracicaba - SP

MensagemAssunto: Re: Pesquisa por formulário   Qui Out 25, 2012 2:40 pm

Bom dia!

Muito bem, eu fiz o upload do arquivo.rar

Dentro dele contém a planilha e a dúvida, um pouco mais especificada.

http://www.4shared.com/rar/VkvMD3lq/Planilha_Colgio.html

(Se aparecer uma página para colocar login e senha, e essas coisas, basta clicar la em cima em "Fechar propaganda")

Se puderem me ajudar, fico muito agradecido! Very Happy

No aguardo, Matheus
Voltar ao Topo Ir em baixo
Ver perfil do usuário
McJota



Mensagens : 16
Data de inscrição : 26/10/2012
Idade : 41

MensagemAssunto: Pesquisa Por Formulário   Sex Out 26, 2012 1:46 pm

Olá Matheus, bom dia!
Troque o atual código da Sub buscapersonalizada por este:

Private Sub buscapersonalizada(ByVal chave As String)

Dim primoc As String
Dim resultado As String

With Worksheets("Matrícula").Range("F:F")
Set busca = .Find(what:=chave, LookIn:=xlValues, LookAt:=xlPart, _
searchorder:=xlByColumns, searchdirection:=xlNext, MatchCase:=True, searchformat:=False)


If Not busca Is Nothing Then
primoc = busca.Address
resultado = busca.Row

Do
Set busca = Worksheets("Matrícula").Range("F:F").FindNext(after:=busca)
If Not busca.Address = primoc Then
resultado = resultado & ";" & busca.Row
End If
Loop Until busca.Address Like primoc

matriz = Split(resultado, ";")

SpnResult.Max = UBound(matriz)
SpnResult.Enabled = True

LblQuant.Caption = "1 de " & UBound(matriz) + 1

Me.TxtMatricula.Text = Worksheets("Matrícula").Cells(matriz(0), 5).Text
Me.TxtNomePesq.Text = Worksheets("Matrícula").Cells(matriz(0), 6).Text
Me.TxtEtnia.Text = Worksheets("Matrícula").Cells(matriz(0), 9).Text
Me.TxtData.Text = Worksheets("Matrícula").Cells(matriz(0), Cool.Text
Me.TxtCurso.Text = Worksheets("Matrícula").Cells(matriz(0), 7).Text

Else

Me.TxtMatricula.Text = ""
Me.TxtNomePesq.Text = ""
Me.TxtEtnia.Text = ""
Me.TxtData.Text = ""
Me.TxtCurso.Text = ""
MsgBox "Nenhum resultado para o nome informado.", 16, "Pesquisa de alunos"
Me.TxtNome.Text = ""
Me.TxtNome.SetFocus
Exit Sub
End If
End With
End Sub

Abraço.....
Voltar ao Topo Ir em baixo
Ver perfil do usuário
mhenrique



Mensagens : 17
Data de inscrição : 14/09/2012
Idade : 23
Localização : Piracicaba - SP

MensagemAssunto: Re: Pesquisa por formulário   Sex Out 26, 2012 2:21 pm

Bom dia!

Aah entendi, colocando o With .... com o Range na coluna que eu preciso.. Funcionou certinho agora!

Cara, estou muito agradecido, muito obrigado pela ajuda! Very Happy Very Happy
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Pesquisa por formulário   Hoje à(s) 10:13 pm

Voltar ao Topo Ir em baixo
 
Pesquisa por formulário
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Filtro de Pesquisa em Formulário por uma Caixa de Texto.
» Pedido de engine de um formulário de contato
» Meu fórum não aparece nos buscadores de pesquisa
» Formulário de criações gráficas
» [Resolvido] Como fazer um formulário editável?

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: