Notifications
Clear all

Procv no Vba não Retorna o Valor

35 Posts
2 Usuários
0 Reactions
9,798 Visualizações
(@m_araujo)
Posts: 159
Estimable Member
Topic starter
 

Bom dia a todos pessoa poderia me infomar onde esta o erro
dessa formula.

TxtContrato.Value = Application.VLookup(CbContratante1.Value)(Plan28.Range("A2:I1000"), 1, 0)

Já tentei usar de diversas formas
uma delas foi

TxtContrato.Value = Application.VLookup(Clng(CbContratante1.Value), Plan28.Range("A2:I1000"), 1, 0)

não adiantou nada
tentei novamente

TxtContrato = Application.WorksheetFunction.VLookup(Clng(CbContratante1),Plan28.Range("A2:I1000"), 1, 0)

não retorna erro alguem somente não me retorna o valor da plan28 da coluna A2
poderia me informa onda estou errando :shock:

Obrigado!

At.
Araujo

 
Postado : 21/03/2012 4:07 am
(@m_araujo)
Posts: 159
Estimable Member
Topic starter
 

Bom dia White tudo bem??
cara fiz exatamente como me pedio
e me retornou um erro aqui
seguinte : Erro em tempo de execução '-2147352571 (800200005)': Não foi possivel definir a propriedade Value. Tipo não correspondete
então eu mudei pra text e deu o erro TIPO INCOMPATIVEIS.
obrigado

 
Postado : 23/03/2012 5:49 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Araujo, não sei o que vcoê ajustou, mas o erro ainda é por problema de incompatibilidade do Tipo da Variável, o White alertou, mas acho que você alterou outra coisa, de uma olhada no link abaixo sobre Tipos de Variáveis.

Se queremos realmente aprender a lidar com VBA, vale a pena perder algumas horas e ler o curso inteiro.
Lição 14: Funções do VBA – Funções de Tipo – Parte 1
http://www.juliobattisti.com.br/excel12 ... icao14.htm

Simulei um Modelo utilizando a função Vlookup e a UDF de Pesquisa, atraves de formulário e no evento change da aba, analise e veja como proceder, pode ser que estejamos entendo errado sua questão.

Vlookup e UDF para Pesquisa

[]s

 
Postado : 23/03/2012 9:09 am
(@m_araujo)
Posts: 159
Estimable Member
Topic starter
 

Boa tarde Mauro e White vale pela ajuda mais eu descobrir o erro de incompatiblidade
eu estava colocando

TxtContrato.Text = Application.VLookup(CbContratante1.Text, Plan28.Range("A2:I1000"), 4, 0)

que na verdade deveria ser assim

TxtContrato.Text = Application.VLookup(CbContratante1.Text, Plan28.Range("C2:I1000"), 2, 0)

correto
funcionou que uma blza
obrigado pela pascienca e a dedicação de todos voces vlw mesmo obrigado

 
Postado : 23/03/2012 10:15 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Ok, grato pelo retorno, estamos aqui para colaborar e compartilhar o conhecimento!!!

 
Postado : 23/03/2012 11:05 am
(@m_araujo)
Posts: 159
Estimable Member
Topic starter
 

Araujo, não sei o que vcoê ajustou, mas o erro ainda é por problema de incompatibilidade do Tipo da Variável, o White alertou, mas acho que você alterou outra coisa, de uma olhada no link abaixo sobre Tipos de Variáveis.
[]s

Mauro Cara ficou perfeito hem
ajustei a sua dica ai ao meu projeto e ficou uma beleza eu tinha mudar ja estava funcionando mais ainda contia erro de incompatiblidade como vc havia mencionado ai então quero dizer que sua ajuda foi de bom grado hem
quero agradecer tambem ao White vlw que tambem ajudou e muito obrigado hem forte abraço

 
Postado : 23/03/2012 12:02 pm
Página 3 / 3