Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Botão de pesquisa
 
Notifications
Clear all

Botão de pesquisa

 
2024 - VBA & Macros
Post Recente por Cristy0505 12 anos atrás
7 Posts
3 Usuários
0 Reactions
1,458 Visualizações
RSS
 Cristy0505
(@cristy0505)
Posts: 28
Eminent Member
Topic starter
 

Bom dia.

Tenho o seguinte código:

Private Sub cmdpesq_Click()
Dim bPesq As Boolean
Dim i As Integer
Sheets("Mini dici").Select
bPesq = False
i = 8
Do Until Cells(i, 7) = ""
If Val(Cells(i, 7)) = Val(txtjp.Value) Then
bPesq = True
Exit Do
End If
i = i + 1
Loop
'Se não encontrou a matricula na planilha, mostrar aviso e sair da sub
If Not bPesq Then
MsgBox "Idograma não cadastrado."
txtjp.SetFocus
Exit Sub
End If
'Compoem os campos do Form com os valores das células
fon.Value = Cells(i, 8)
trad.Value = Cells(i, 9)

End Sub

Porém quando clico em Pesquisar ele retorna o resultado da linha 8, não importando o que eu digite, nem mesmo se a palavra não existir na planilha.

Alguém poderia me dizer o que eu fiz de errado e por quê tal bug está ocorrendo?

Grata.

(segue planilha em anexo)

"Only those who will risk going too far can possibly find out how far one can go."

 
Postado : 19/09/2012 7:10 am
 Pexis
(@pexis)
Posts: 112
Estimable Member
 

tira o val() dos 2
val serve pra converter string p/ numeros

Resposta útil? Clique na mãozinha ao lado do botão Citar.

 
Postado : 19/09/2012 9:02 am
 Cristy0505
(@cristy0505)
Posts: 28
Eminent Member
Topic starter
 

Boa tarde, obrigada pela atenção.

Você se refere à seguinte parte:

If Val(Cells(i, 7)) = Val(txtjp.Value) Then

?

Caso a resposta seja sim, eu removi depois me obrigou a tirar o IF, daí rodou e o mesmo erro continua ocorrendo. Não importa a palavra que eu difite no campo de pesquisa, ele continua retornando a resposta referente à linha 8...

"Only those who will risk going too far can possibly find out how far one can go."

 
Postado : 19/09/2012 9:17 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!
Olá Cristy0505....
Por favor os arquivos devem ser compactado!!!

Leia as regras!!!
viewtopic.php?f=7&t=203
Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 19/09/2012 9:24 am
 Cristy0505
(@cristy0505)
Posts: 28
Eminent Member
Topic starter
 

Eu compactei Alexandre.
Lembro no outro tópico vc pediu para compactar e enviar a planilha, mas mesmo compactado, ele tem 102 kb e não deixa upar, diz que ultrapassa o limite.

E tipo, não quero ser desagradável, mas todo tópico vc posta para ler as regras já presumindo que a pessoa não leu. Acho que seria interessante primeiro perguntar se a pessoa leu, porque como vc posta isso em todo tópico que crio, eu já tinha lido.

Quando era desocupada, tive várias comunidades no orkut, eu sei ler regras e entendo português brasileiro portanto sei interpretá-las e a primeira coisa que faço quando entro num fórum é ler as regras. Antes de postar pesquiso também tanto é que foi pesquisando no google que achei este fórum....

Saudações, que tenha um bom dia.

"Only those who will risk going too far can possibly find out how far one can go."

 
Postado : 19/09/2012 9:27 am
 Pexis
(@pexis)
Posts: 112
Estimable Member
 

testa aqui
tb fiz outra pesquisa no userform2 com vlookup, é mais simples de fazer

Resposta útil? Clique na mãozinha ao lado do botão Citar.

 
Postado : 19/09/2012 9:29 am
 Cristy0505
(@cristy0505)
Posts: 28
Eminent Member
Topic starter
 

testa aqui
tb fiz outra pesquisa no userform2 com vlookup, é mais simples de fazer

Não me deixa baixar... Quando chegar em casa (estou no trabalho), eu testo.

Muito obrigada pela atenção e pelo tempo desperdiçado tentando ajudar. Uma boa tarde!

"Only those who will risk going too far can possibly find out how far one can go."

 
Postado : 19/09/2012 9:33 am
Forum Jump:
  Tópico Anterior
Próximo Tópico