Somar TextBox

Question

Tenho uma planilha e preciso de ajuda para o seguinte:

1º) Preciso que a mesma me dê a soma das textbox números 3, 6, 9, 12 e 15 na TextBox57 (Valor Total). Agora acontece o seguinte, as textbox 3, 6, 9, 12 e 15 não são preenchidas diretamente nelas são resultados de outras textbox. Exemplo: A textbox 3 é o resultado da multiplicação da textbox 1 e 2; A textbox 6 é o resultado da multiplicação da textbox 4 e 5, e assim por diante. Daí eu preciso que quando vai inserindo valores nas textbox 2, 5, 8, 11 e 14 vai dando a auto soma na textbox57.

2º) Não são todas as vezes que serão prenchidas "todas" as textbox, isto é, cada vez de inserir na planilha através do botão Inserir, geralmente são de 2 a 3 valores, daí preciso fazer a adaptação pra não dar erro nas textbox vazias.

Celso

Answer 1

Celso,

Vo de dar o caminho, voce precisa trabalhar os detalhes depois:

Private Sub TextBox3_Change()
Dim c As Control
Dim soma As Double
For Each c In Me.Controls
  If TypeName(c) = "TextBox" Then
    If c.Name = "TextBox3" Or c.Name = "TextBox2" Then
      soma = soma + CDbl(c)
    End If
  End If
  
Next
TextBox50.Text = soma
End Sub

Voce vai colocar esta mesma sub no evento TextBoxN_Change, de todos os textbox que devem ser somados ao serem alterados.

logicamente, vai implementar a sua regra.

---

Caio Vitullo