Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Somar textbox vazia
 
Notifications
Clear all

[Resolvido] Somar textbox vazia

 
2024 - VBA & Macros
Post Recente por Anderson 4 anos atrás
5 Posts
3 Usuários
2 Reactions
1,191 Visualizações
RSS
 NERI S
(@neri-s)
Posts: 0
New Member
Topic starter
 

Amigos...tenho uma soma de textboxes (são 8) e algumas estão vazias. Para evitar erro de soma faço assim:

If textbox1.value ="" then textbox1.value = 0

E faço este comando para todas. 

Porém queria ver se não há outra forma (acredito que tenha) de fazer, pois com o comando acima ele preenche de zero se estiver vazia.

O que eu pensei que poderia existir, é uma fórmula de somar as textboxes e caso tiver alguma vazia entre elas, deveria considerar zero, porém não colocar zero na textbox. a questão é: enche de zero e fica "poluído"

 
Postado : 07/01/2021 11:19 am
 NERI S
(@neri-s)
Posts: 0
New Member
Topic starter
 

Consegui assim:

Dim T1 As Double
Dim T2 As Double
Dim T3 As Double
Dim T4 As Double
Dim T5 As Double
Dim T6 As Double
Dim T7 As Double
Dim T8 As Double

If txtdespesas1.Value <> "" Then T1 = txtdespesas1.Value
If txtdespesas2.Value <> "" Then T2 = txtdespesas2.Value
If txtdespesas3.Value <> "" Then T3 = txtdespesas3.Value
If txtdespesas4.Value <> "" Then T4 = txtdespesas4.Value
If txtdespesas5.Value <> "" Then T5 = txtdespesas5.Value
If txtdespesas6.Value <> "" Then T6 = txtdespesas6.Value
If txtdespesas7.Value <> "" Then T7 = txtdespesas7.Value
If txtdespesas8.Value <> "" Then T8 = txtdespesas8.Value

txttotalDespesas.Value = (T1 + T2 + T3 + T4 + T5 + T6 + T7 + T8)
txttotalDespesas.Value = Format(txttotalDespesas.Value, "#,##0.00")

 

 
Postado : 07/01/2021 11:32 am
 EdsonBR
(@edsonbr)
Posts: 0
New Member
 
  Dim i As Long, totalDesp As Currency
  For i = 1 To 8
    With Me.Controls("txtdespesas" & i)
      If IsNumeric(.Value) Then totalDesp = totalDesp + CCur(.Value)
    End With
  Next i
  Me.txttotalDespesas.Value = FormatCurrency(totalDesp, 2)
 
 
Postado : 07/01/2021 12:08 pm
NERI S and teleguiado reacted
 NERI S
(@neri-s)
Posts: 0
New Member
Topic starter
 

Edson...Obrigado pela ajuda...abraço

 
Postado : 07/01/2021 12:40 pm
 Anderson
(@anderson)
Posts: 0
New Member
 

@neri-s

https://youtu.be/9PXwI03jQ7w

 
Postado : 07/01/2021 2:02 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico