Vídeo recomendado
https://youtu.be/diWPPPhW-9E

[RESOLVIDO] unção vlookup via VBA

Esclarecimentos e dúvidas sob o Modelo de Aplicativo de Cadastro em VBA no Microsoft Excel publicado no site e blog http://www.tomasvasquez.com.br
reinaldo.silva
Manda bem
Manda bem
Mensagens: 137
Registrado em: Ter Mai 11, 2010 12:00 pm

[RESOLVIDO] unção vlookup via VBA

Mensagem por reinaldo.silva »

Caros, como devo escrever um código para que toda vez que a coluna H for alterada a coluna K faça uma procura numa outra planilha e me traz o resultado dependendo da H.
No execel normalmente eu uso =VLOOKUP(F17;Postadores!A1:B18;20), mas queria usar o VBA para que outros usuários não apaguem a função...

Valeu pela atenção como sempre
Editado pela última vez por reinaldo.silva em Qui Set 02, 2010 12:40 pm, em um total de 1 vez.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
joseA
Jedi
Jedi
Mensagens: 1048
Registrado em: Qui Out 22, 2009 7:22 am
Localização: Cel. Fabriciano - MG

Re: função vlookup via VBA

Mensagem por joseA »

:shock:
Veja um exemplo.

Obs.: Deverias ter postado em "Geral" e não em "Modelo de Aplicativo de Cadastro em VBA no Microsoft Excel".
Anexos
Botao de Busca(VLOOKUP) for VBA.zip
(14.17 KiB) Baixado 564 vezes


reinaldo.silva
Manda bem
Manda bem
Mensagens: 137
Registrado em: Ter Mai 11, 2010 12:00 pm

Re: função vlookup via VBA

Mensagem por reinaldo.silva »

Obrigado José e pode deixar que nas próximas tomarei mais cuidado...

Vou testesar e qualquer coisa te aviso...mais uma vez obrigado


reinaldo.silva
Manda bem
Manda bem
Mensagens: 137
Registrado em: Ter Mai 11, 2010 12:00 pm

Re: função vlookup via VBA

Mensagem por reinaldo.silva »

Caro José, obrigado pelo código de exemplo ele é muito legal e vou usa-lo em outras projetos...

Mas para o que eu queria não me ajudou...eu quero o resultado na própria planilha tipo assim:

Na plan1 eu digito na coluna H o código 001 e na coluna K me traz o resultado que esta na plan2

Cara eu poderia aplicar a função no próprio planilha mas eu precisava usar o VBa.

Cara muito obrigado pela atenção


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


reinaldo.silva
Manda bem
Manda bem
Mensagens: 137
Registrado em: Ter Mai 11, 2010 12:00 pm

Re: função vlookup via VBA

Mensagem por reinaldo.silva »

reinaldo escreveu:Caro José, obrigado pelo código de exemplo ele é muito legal e vou usa-lo em outras projetos...

Mas para o que eu queria não me ajudou...eu quero o resultado na própria planilha tipo assim:

Na plan1 eu digito na coluna H o código 001 e na coluna K me traz o resultado que esta na plan2

Cara eu poderia aplicar a função no próprio planilha mas eu precisava usar o VBa.

Cara muito obrigado pela atenção
Caros amigos do forum...
Seguindo para esta solução que não estou conseguindo, segue um exemplo de data, mas para o vlookup eu não consigo adaptar se agluém puder dar uma olhada na lógica do código talvez consiga escrever...
Segue o código usado para data...

Private Sub Worksheet_Change(ByVal Target As Range)
Dim LLoop As Integer

Dim LTargetRange1 As String
Dim LDestRange1 As String

LLoop = 2

While LLoop <= 700
'Link coluna A to B
LTargetRange1 = "h" & CStr(LLoop)
LDestRange1 = "j" & CStr(LLoop)

If Not Intersect(Range(LTargetRange1), Target) Is Nothing Then
If Len(Range(LTargetRange1).Value) > 0 Then
Range(LDestRange1).Value = Date & " às " & Time

Else
Range(LDestRange1).Value = Null
End If
End If

LLoop = LLoop + 1
Wend


Avatar do usuário
joseA
Jedi
Jedi
Mensagens: 1048
Registrado em: Qui Out 22, 2009 7:22 am
Localização: Cel. Fabriciano - MG

Re: função vlookup via VBA

Mensagem por joseA »

Veja mais um exemplo com aplicação da Função em VBA.

:shock:
Anexos
ReinaldoPROCV.rar
(10.32 KiB) Baixado 469 vezes


Avatar do usuário
Mauro Coutinho
Jedi
Jedi
Mensagens: 1561
Registrado em: Sáb Mar 13, 2010 8:10 pm
Localização: São José dos Pinhais - Pr

Re: função vlookup via VBA

Mensagem por Mauro Coutinho »

José, belos exemplos, esse último só falta acrescentar quando o resultado da pesquisa for Nulo e tambem se na Origem se Deletar o que já havia sido digitado.

Com base nos modelos que postou criei mais um para termos mais uma opção, alias isso é que não falta é só ter imaginação.

Abraços
Anexos
Reinaldo_VLOOKP_mvc.rar
Função Vlookup Col H para Col K
(12.09 KiB) Baixado 522 vezes


Avatar do usuário
joseA
Jedi
Jedi
Mensagens: 1048
Registrado em: Qui Out 22, 2009 7:22 am
Localização: Cel. Fabriciano - MG

Re: função vlookup via VBA

Mensagem por joseA »

Realmente um belo exemplo Mauro, perfeito.

:P

Na verdade adaptei rapidamente um modelo, que tinha para exemplificar a aplicação, pois estava sem muito tempo. Agora, o seu exemplo ficou demais. Já faz parte do meu arquivo.


reinaldo.silva
Manda bem
Manda bem
Mensagens: 137
Registrado em: Ter Mai 11, 2010 12:00 pm

Re: função vlookup via VBA

Mensagem por reinaldo.silva »

Mauro e Jose...cara vcs são o máximo...tenho até vontade de chorar de emoção kkkk

Era isso mesmo que eu queria...ficou perfeito

Muito obrigado a todos


Avatar do usuário
joseA
Jedi
Jedi
Mensagens: 1048
Registrado em: Qui Out 22, 2009 7:22 am
Localização: Cel. Fabriciano - MG

Re: função vlookup via VBA

Mensagem por joseA »

De minha parte disponha, mas vejo que o exemplo que mais atenderia sua solicitação é o do Mauro.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder