[Resolvido] Somar textbox vazia

2024 - VBA & Macros

Post Recente por Anderson 4 anos atrás

5 Posts

3 Usuários

2 Reactions

1,193 Visualizações

RSS

NERI S

(@neri-s)

Posts: 0

Estimable 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

Estimable 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: 1057

Noble 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)