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,450 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)

 
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

 
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...

 
Postado : 19/09/2012 9:17 am
 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

 
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.

 
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

 
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!

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