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

Dúvida sobre a função VLOOKUP no VBA

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Polchera
Acabou de chegar
Acabou de chegar
Mensagens: 1
Registrado em: Dom Jul 04, 2021 10:37 am

Dúvida sobre a função VLOOKUP no VBA

Mensagem por Polchera »

Como posso subtrair o resultado de uma função VLOOKUP, do resultado e outra função VLOOKUP? Tipo assim:

Range("I28:I38") = Application.WorksheetFunction.VLookup(Range("D28:D38"), Sheets(1).Range("C:H"), 5, 0) - VLookup(Range("D28:D38"), Sheets(1).Range("C:H"), 4, 0)


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
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Dúvida sobre a função VLOOKUP no VBA

Mensagem por webmaster »

Não vejo nada de errado no código. Tentou inspecionar as variáveis?


Avatar do usuário
NRAlbukas
Colaborador
Colaborador
Mensagens: 24
Registrado em: Qua Jun 16, 2021 12:10 pm
Contato:

Re: Dúvida sobre a função VLOOKUP no VBA

Mensagem por NRAlbukas »

Polchera escreveu: Qua Jul 28, 2021 4:11 pm Como posso subtrair o resultado de uma função VLOOKUP, do resultado e outra função VLOOKUP? Tipo assim:

Range("I28:I38") = Application.WorksheetFunction.VLookup(Range("D28:D38"), Sheets(1).Range("C:H"), 5, 0) - VLookup(Range("D28:D38"), Sheets(1).Range("C:H"), 4, 0)
Boa noite amigo!! :mrgreen:

O VLookup é bem fresco kaka :lol: , chato de se mexer muitas vezes.

Este código subtrai o valor dum VLookup doutro:

Código: Selecionar todos

Dim store1, store2

For i = 28 To 38

store1 = WorksheetFunction.VLookup(Range("a" & i), Range("e:h"), 4, 0)
store2 = WorksheetFunction.VLookup(Range("a" & i), Range("e:h"), 3, 0)

Range("I" & i) = store1 - store2

Next
Tambem é possível usa-lo contraido: ;)

Código: Selecionar todos

For i = 28 To 38
store1 = WorksheetFunction.VLookup(Range("a" & i), Range("e:h"), 4, 0): store2 = WorksheetFunction.VLookup(Range("a" & i), Range("e:h"), 3, 0): Range("I" & i) = store1 - store2: Next
Se sua questão foi resolvida favor colocar "[RESOLVIDO]" no título deste tópico ;)


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Dúvida sobre a função VLOOKUP no VBA

Mensagem por Reinaldo »

Procv(Vlookup) o primeiro "termo" da procura deve ser uma única célula ou valor e não uma range
++>Range("D28:D38")++> Range("D28")


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