Este fórum está sendo desativado

[wesleyribeiro123]

Galera
Estou com seguinte problema com o Formulário criado conforme imagem.
Ao somar os valores dos TextBox eles vem como se eu estivesse contatenando textos, ou seja:
Total1 = 2,5
Total2 = 2,5
Total3 = 2,5
...
Total Geral = 2,52,52,5
Na verdade gostaria que fosse feito o correto, ou seja, Total Geral = 7,5
Tentei usar as funções de conversão VAL (porém ela trata os números como inteiros) CDec e CDbl (porém é retornado erro de Tipos Incompatíveis, tratados como texto).

Como faço essa soma se mesmo convertendo ele retorna erro ou concatena como texto?

[almirjorge]

Wesley, vê se o arquivo anexo te ajuda.

[osvaldomp]

Olá, Wesley.

A expressão abaixo deveria resolver, se não, sugiro que você disponibilize uma amostra do seu arquivo (não imagem).

CDbl(TextBox1.Value)

[wesleyribeiro123]

Wesley, vê se o arquivo anexo te ajuda.

Almirjorge
Boa tarde,

Obrigado pela atenção. Cara seguinte, vejo 2 problemas aqui na tua solução! Primeiro você não está somando os TextBox está lançando os valores na planilha e somando as células!!! O segundo problema é que se eu digitar 2,5 e 3,5 ele retorna 5, para retornar 6 eu devo digitar 2.5 e 3.5, ou seja, o VBA não está reconhecendo nosso padrão de virgula para casas decimais.

Mais a ideia é quase esta... Continua aqui na procura de uma solução!!!

[osvaldomp]

Aproveitando o exemplo do almirjorge:

Código: Selecionar todos

Private Sub CommandButton1_Click()
 TextBox6.Text = CDbl(TextBox1.Value) + CDbl(TextBox2.Value) + CDbl(TextBox3.Value) + CDbl(TextBox4.Value) + CDbl(TextBox5.Value)
End Sub

obs. se alguma TextBox não contiver valor numérico provocará erro

[gfranco]

Boa tarde.
Segue minha contribuição.

[Feka]

É só você somar com zero que ele transformará a variável em valor numérico.
Soma = (TEXT1.Value + 0) + (TEXT2.Value + 0))

[wesleyribeiro123]

Putz, uma coisa extremamente simples e resolveu perfeitamente meu problema, rsrs
Muito obrigado FEKA, vou guarda essa solução!!!

Obrigado a todos pelo empenho em me ajudar!!!
Grande abraço.