Fórum Excel Bácico, Avançado e Vba
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
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  Últimas imagensÚltimas imagens  ProcurarProcurar  RegistarRegistar  Entrar  

 

 Pesquisa por formulário

Ir para baixo 
3 participantes
AutorMensagem
mhenrique

mhenrique


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

Pesquisa por formulário Empty
MensagemAssunto: Pesquisa por formulário   Pesquisa por formulário EmptyTer 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
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


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

Pesquisa por formulário Empty
MensagemAssunto: Re: Pesquisa por formulário   Pesquisa por formulário EmptyQua 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
Ir para o topo Ir para baixo
mhenrique

mhenrique


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

Pesquisa por formulário Empty
MensagemAssunto: Re: Pesquisa por formulário   Pesquisa por formulário EmptyQui 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
Ir para o topo Ir para baixo
McJota




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

Pesquisa por formulário Empty
MensagemAssunto: Pesquisa Por Formulário   Pesquisa por formulário EmptySex 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.....
Ir para o topo Ir para baixo
mhenrique

mhenrique


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

Pesquisa por formulário Empty
MensagemAssunto: Re: Pesquisa por formulário   Pesquisa por formulário EmptySex 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
Ir para o topo Ir para baixo
Conteúdo patrocinado





Pesquisa por formulário Empty
MensagemAssunto: Re: Pesquisa por formulário   Pesquisa por formulário Empty

Ir para o topo Ir para baixo
 
Pesquisa por formulário
Ir para o topo 
Página 1 de 1
 Tópicos semelhantes
-
» Formulário de pesquisa e exclusão
» Formulário de Pesquisa ListBox + 10 TextBox
» pesquisa vba/excel
» Pesquisa continuada no cadastro
» Pesquisa em 3 colunas valores duplicados.

Permissões neste sub-fórumNão podes responder a tópicos
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: