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"
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")
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)
Edson...Obrigado pela ajuda...abraço
Em 90% dos casos em que não se anexa o arquivo, ocorrem mal-entendidos, gerando perda de tempo de ambos os lados.