eu usei esse faz um tempo, mas é só soltar esse codigo dentro do botão calcular

'Calcular textbox
Dim valor01, valor02, valor03, valor04, valor05, valor06 As Double

If Me.valor01 <> "" And Me.valor02 <> "" And Me.valor03 <> ""  And Me.valor04 <> ""   And Me.valor05 <> ""   And Me.valor06 <> ""  Then


valor01 = Me.valor01 'Valor Textbox 1
valor02 = Me.valor02 'Valor Textbox 2
valor03 = Me.valor03 'Valor Textbox 3
valor04 = Me.valor04 'Valor Textbox 4
valor05 = Me.valor05 'Valor Textbox 5
valor06 = Me.valor06 'Valor Textbox 6


Me.valortotal = valor01 + valor02 + valor03 + valor04 + valor05 + valor06

End If

Alguém pode me dar a solução.

Utilize ponto de interrogação quando for uma pergunta:

Alguém pode me dar a solução?

Yatagan,
talvez eu tenha feito algo errado pois não deu certo.

O resultado está ficando assim:

valor01 = 10
valor02= 10
valor03 = 10
valor 04=10
valor 05=10
valor 06=10

valoratual=101010101010

Não está somando, está juntando. Por que será?

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

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

Klarc, estou montando um programa e nele tem varias textbox. Queria que quando preenchesse as textbox(valor01, valor02,valor03,valor04,valor05,valor06) já aparecesse o resultado na textbox valortotal, sem precisar acionar um botão de comando para isso. Não sei, se minha explicação foi clara. No programa tenho o botão novo e salvar, quando aperto novo vou preenchendo as textbox, quando vou preenchendo queria que o resultado já aparecesse. Depois que preencho tudo aperto salvar. Está bem montado, porém essa questão do valortotal está difícil, entendeu?

Option Explicit



Private Sub TextBox1_Change()
Call somar

End Sub

Private Sub TextBox2_Change()
Call somar

End Sub

Private Sub TextBox3_Change()
Call somar

End Sub

Private Sub TextBox4_Change()
Call somar

End Sub

Private Sub TextBox5_Change()
Call somar

End Sub

Private Sub TextBox6_Change()
Call somar

End Sub

Private Sub TextBox7_Change()
Call somar
End Sub

Sub somar()
On Error Resume Next
TextBox7.Text = CDbl(TextBox1.Value) + CDbl(TextBox2.Value) + CDbl(TextBox3.Value) + CDbl(TextBox4.Value) + CDbl(TextBox5.Value) + CDbl(TextBox6.Value)

End Sub

Segue minha contribuição!

Colega Eltonc09, Bom dia!

Veja se é isso o que precisa... Abrç!

Obs. Layout foi aproveitada da contribuição enviada pelo nosso colega Carlos Rafael...

xlarruda é isso mesmo, porém tem um pequeno detalhe...

Quando digito um número com vírgula, a soma não é feita no final. Ex: Textbox1=700,50

Porém percebi se uso ponto ela funciona, se ao invés de colocar 700,50 ... eu usar 700.50 faz a soma considerando o decimal.

Mas quero que funcione com vírgula, como faço?

Sub somar()

On Error Resume Next
Dim ct As Object
Dim soma As Double
soma = 0
For Each ct In Me.Controls
If TypeName(ct) = "TextBox" Then
If ct.Name <> "TextBox7" Then
If ct.Text <> "" Then

soma = soma + CDbl(ct.Value)
End If
End If
End If
Next ct
Me.TextBox7.Text = soma


End Sub
Private Sub TextBox1_Change()
Call somar
End Sub

Private Sub TextBox2_Change()
Call somar


End Sub

Private Sub TextBox3_Change()
Call somar

End Sub

Private Sub TextBox4_Change()
Call somar

End Sub

Private Sub TextBox5_Change()
Call somar


End Sub

Private Sub TextBox6_Change()
Call somar


End Sub



Private Sub UserForm_Initialize()
Me.TextBox7.Text = 0
End Sub

Obrigado pela ajuda, está funcionando.

Aproveitando a ajuda e o conhecimento de vocês que é muito maior que o meu.

Klarc, consigo colocar formatação nessas textbox?

Exemplo textbox1= 5.350,75 (separando com ponto)

ou até mesmo colocando a moeda na frente quando digito o número. Textbox1 = R$ 5.350,75.

Pode me ajudar?

Este vídeo explica:

https://www.youtube.com/watch?v=XBqty-LiRnA

Boa tarde pessoal,

já li alguns tópicos sobre o assunto aqui porém ainda não consegui resolver o problema.

Quero somar automaticamente 6 Textbox e aparecer o resulta na sétima Textbox. O Klarc28 me disponibilizou
uma planilha que faz isso e está em anexo.

Porém no programa que estou montando existem outras textbox que contém valores, e que não quero que sejam somadas,
porém estão sendo somadas também.

Portanto, quero que a textbox7, some só as 6 textbox específicas e não todas as textbox que meu projeto tem.

Podem me ajudar?

Desde já agradeço.