Página 1 de 1

Erro em Application.VLookup

Enviado: 31 Mai 2022 às 20:26
por Hellhammer
Estou com um problema para fazer o VLookup encontrar os dados na seguinte situação.

Quando eu pego o valor de uma célula e coloco na variável resultadoTrabalho o VLookup não encontra o valor, mesmo tendo o valor procurado. Se no lugar do resultadoTrabalho eu troco por Range("Célula com o valor") daí funciona, como eu posso resolver isso?

Não entendo quase nada de VBA.
Código: Selecionar todos
Sub Prazo()
Set intervalo = Range("Feriados!B3:C10000")
Dim resultadoTrabalho As Variant
Dim resultadoprov As Variant

resultadoTrabalho = Range("C4") + 1

resultadoprov = Application.VLookup(resultadoTrabalho, intervalo, 1, False)
End Sub

Re: Erro em Application.VLookup

Enviado: 31 Mai 2022 às 20:56
por osvaldomp
Experimente:

resultadoTrabalho = Range("C4") .Value+ 1

Re: Erro em Application.VLookup

Enviado: 01 Jun 2022 às 07:44
por Hellhammer
Eu já tinha tentando com o .Value, mas também não funciona.

Re: Erro em Application.VLookup

Enviado: 01 Jun 2022 às 08:43
por osvaldomp
Hellhammer escreveu: 01 Jun 2022 às 07:44 Eu já tinha tentando com o .Value ... :?: :o
Disponibilize diretamente qui no fórum uma amostra do seu arquivo Excel com o código instalado.