Notifications

Clear all

Usar Procv no VBA para achar respectivos valores

2024 - VBA & Macros

Post Recente por Fernando Fernandes 13 anos atrás

13 Posts

2 Usuários

0 Reactions

3,150 Visualizações

RSS

m_araujo

(@m_araujo)

Posts: 159

Estimable Member

Topic starter

Bom dia pessoal,
alguem ai teria como me ajuda sobre um codigo no vba
seguinte eu tenho alguns campos em um Form no VBA
esses campos são chamados de IMPUREZA , UMIDADE, AVARIADOS
Nesses campos eu digito um valor por exemplo 14,5 em UMIDADE, quero fazer uma busca em uma planilha chamada de CLASSIFICAÇÃO
nela vou varres o CAMPO UMIDADEe acha o GRAU O DESCONTO desse valor digitado ai, segue partes da planilha para ter uma nossão
VLR GRAU_DESCONTO
UMIDADE 14,00 0,00
UMIDADE 14,10 0,50
UMIDADE 14,20 0,70
UMIDADE 14,30 0,90
UMIDADE 14,40 1,00
UMIDADE 14,50 1,15 aqui no caso eu teria um GRAU DE DESCONTO de 1,15% e esse valor seria multiplicado por outro valor
UMIDADE 14,60 1,25
'-------------------------------------------
VLR GRAU_DESCONTO
AVARIADO 8,00 0,00
AVARIADO 8,10 0,10
AVARIADO 8,20 0,20
AVARIADO 8,30 0,30
AVARIADO 8,40 0,40
AVARIADO 8,50 0,50
AVARIADO 8,60 0,60

'----------------------------
VLR GRAU_DESCONTO
IMPUREZA 1,00 0,00
IMPUREZA 1,10 0,10
IMPUREZA 1,20 0,10

Espero que me entende obrigado tenha um bom dia

Marcelo Araujo
"O conhecimento é algo que se passa de um para o outro
lembre-se ninguem nasceu sabendo. rs rs"

Postado : 04/01/2012 8:08 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Da pra disponibilizar a planilha?
Fica mais fácil de visualizar.

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

Postado : 04/01/2012 8:10 am

m_araujo

(@m_araujo)

Posts: 159

Estimable Member

Topic starter

Sim segue em anexo

Marcelo Araujo
"O conhecimento é algo que se passa de um para o outro
lembre-se ninguem nasceu sabendo. rs rs"

Postado : 04/01/2012 11:01 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

O que eu faria,
na guia classificação faria uma procv em alguma célula oculta, onde o valor recebido seria o valor digitado da textbox, isso já retornaria o valor referente na procv, ai com esse valor da pra vc fazer o restante dos calculo que você precisa,.

Se não conseguir só avisar

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

Postado : 05/01/2012 6:07 am

m_araujo

(@m_araujo)

Posts: 159

Estimable Member

Topic starter

O que eu faria,
na guia classificação faria uma procv em alguma célula oculta, onde o valor recebido seria o valor digitado da textbox, isso já retornaria o valor referente na procv, ai com esse valor da pra vc fazer o restante dos calculo que você precisa,.

Se não conseguir só avisar

Opa Caio Boa tarde tudo bem ?
Bom seguinte cara no excel eu uso o procv ja eu so nao consigo e fazer como vc esta me falando pois não sou baum tanto em excel vba não, so no excel eu me garanto agora no vba ja complica sou novo na area poderia me ajudar???
grato pela atenção

Marcelo Araujo
"O conhecimento é algo que se passa de um para o outro
lembre-se ninguem nasceu sabendo. rs rs"

Postado : 05/01/2012 12:52 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Boa noite!!

Olha um exemplo...
Em A2 tenho um valor que o código vai procurar na base da coluna "C" até "H" e trazer a 2º coluna...

Sub Procv()

On Error Resume Next
Range("B2").Value = WorksheetFunction.VLookup(Range("A2"), Range("C:H"), 2, False)

End Sub

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

Postado : 05/01/2012 5:19 pm

m_araujo

(@m_araujo)

Posts: 159

Estimable Member

Topic starter

Boa noite!!

Olha um exemplo...
Em A2 tenho um valor que o código vai procurar na base da coluna "C" até "H" e trazer a 2º coluna...
Sub Procv()

On Error Resume Next
Range("B2").Value = WorksheetFunction.VLookup(Range("A2"), Range("C:H"), 2, False)

End Sub

Opa Alexandre bom dia tudo bem? cara obrigado por responder minha duvida, so que eu ainda não compreendir bem como faço isso no vba poderia me explicar melho com meu exemplo no topico obrigado

Marcelo Araujo
"O conhecimento é algo que se passa de um para o outro
lembre-se ninguem nasceu sabendo. rs rs"

Postado : 06/01/2012 8:11 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Boa noite!!!

Veja na pratica o exemplo que criei...

Baixe o anexo..

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

Postado : 06/01/2012 6:57 pm

m_araujo

(@m_araujo)

Posts: 159

Estimable Member

Topic starter

Boa noite!!!

Veja na pratica o exemplo que criei...

Baixe o anexo..

Bom dia Alexandre, Cara obrigado mesmo viu funcionou que uma bleza obrigado mais uma vez
so mais uma coisinha o valor buscado sempre ta ficando redondo tipo digito 17,50 e a busca era pra trazer 5,50 mais ta trazendo 6,0
rs rs mais acho q isso eu consigo resolver se tiver alguma dica fico grato desde ja.

At
Marcelo Araujo

Marcelo Araujo
"O conhecimento é algo que se passa de um para o outro
lembre-se ninguem nasceu sabendo. rs rs"

Postado : 07/01/2012 6:49 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Boa tarde!!

Bom testei aqui e buscou normal.

De um valor 12,23 retornou na TextBox o valor de 12,23.

Segue um exemplo ..veja.
Me.TextBox1 = Format(Me.TextBox1, "000.00")

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

Postado : 07/01/2012 2:41 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Em tempo...

No tratamento de números é recomendado a função de conversão CDbl(), visto que a propriedade do TextBox é Text.

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

Postado : 07/01/2012 3:01 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Boa noite!!!

Obrigado JoseA...

..M_araujo..tente ai e retorne.

Segue uma breve explicação...
Fonte http://www.juliobattisti.com.br/excel12 ... icao16.htm

Função CDbl

A função CDbl converte uma variável ou resultado de um expressão, para o subtipo Double. O tipo Doublé é utilizado para números grandes com casas decimais. O argumento desta função não pode ser do tipo texto, caso contrário será gerada uma mensagem de erro, em tempo de execução.

Att..