Excel VBA - Usar textbox para salvar números decimais

[diego_janjao]

Pessoal, boa noite.

 

Estou enfrentando um problema com uma textbox que deverá ser usada somente para números. 

Sempre que tento usar um número quebrado (ex.: 1235,17) ele salva o número como texto e isso impede que o form faça o cálculo no SOMASES.

Eu tentei um Format(me.textbox, "#.##0,00") mas não resolveu.

 

Vejam que todos foram gravados nas células como texto.

 

rec2019 (2).zip

[Edson Luiz Branco]

Boa tarde, Don Diego!

 

Ao invés de formatar a saída com a função Format, que retorna String tb, converta o valor da textbox para Single ou Double, por exemplo, usando CSng(Me.Textbox1.Value) ou idem para CDbl().

Ou então faça uma operação algébrica que não altere o valor, como multiplicar por 1, somar com 0 ou inverter 2 vezes o sinal. Exemplo:

1 * (Me.Textbox1.Value)

 

Se precisar formatar a saída, use a propriedade NumberFormat do obj. Range.

[diego_janjao]

@Edson Luiz Branco Obrigado! Mais uma vez, me ajudou corretamente.

[Elvio Junior]

@Edson Luiz Branco  salvou meu projeto tbem, agora em 2020. Muito obrigado.

[Caio Rodrigues Almeida]

Em 11/08/2018 às 16:35, Edson Luiz Branco disse:

1 * (Me.Textbox1.Value)

Eu tava quebrando a cabeça por conta que dava erro no SOMASE, solução simples e objetiva, nem precisa criar um evento no textbox, quando lanço ja vai em formato de numero pra planilha. Valeu!