Excel Converter para texto no VBA

[Taylor Piber]

Olá,

 

Preciso de uma ajuda com VBA, a situação é o seguinte, eu preciso fazer uma Vlookup, o valor é buscado de uma caixa de texto e retorno o valor em outra caixa de texto, o problema é que o valor procurado é um numero dentro de uma planilha de excel

e o que eu digito dentro de uma textbox vira texto automaticamente, logo a formula não funciona, e fiz testes usando textos e ocorre tudo certo, porém preciso que seja numero, pois vou pegar um numero do sistema. alguem pode me ajudar com a conversão.

 

 

Private Sub TextBox1_AfterUpdate()

Dim req As Double

req = Application.WorksheetFunction.VLookup(TextBox1, Sheets("SC").Range("b1:f1200"), 2, False)

TextBox2 = req

End Sub

 

[Denis Bopp]

Tente TextBox1.Value

ou

val(TextBox1.Value)

[Taylor Piber]

@Denis Bopp  Foi minhas primeiras tentativas, mas o valor que eu pego na planilha não está correto, não consigo puxar em nenhum formato. 

se eu misturar texto com numero a formula funciona

[Midori]

@Taylor Piber Se o valor a ser procurado na planilha está no formato numérico então você deve fazer como o @Denis Bopp comentou e converter o primeiro argumento do Vlookup para número.

 

Tentou desta forma?

 

req = Application.WorksheetFunction.VLookup(Val(TextBox1), Sheets("SC").Range("b1:f1200"), 2, False)

 

  Em 16/07/2021 às 19:13, Taylor Piber disse:

se eu misturar texto com numero a formula funciona

Expandir  

Se os valores da mesma coluna estão em formatos diferentes talvez seja melhor você deixar a coluna com a mesma formatação (converter tudo para número, p.ex). Ou terá que considerar isso no código na hora da busca.