Hi

I have several Textboxs in a userform
main Textbox shows the total of the values entered into textboxs

my problem is : the total does not appear in the main Textbox untill
fill in
all other Textboxs............somtimes i want to fill in only fe
textboxes, so
the total does not appear in the Textbox that shows the total......

here is the codes i used in the userform:

PHP code
-------------------
Sub MyCalc()
If IsNumeric(tot.Text) Then
If IsNumeric(txtConsu.Text) Then
If IsNumeric(txtMaint.Text) Then
If IsNumeric(txtClea.Text) Then
If IsNumeric(carmaint.Text) Then
If IsNumeric(TransM.Text) Then
If IsNumeric(machm.Text) Then

bal.Value = CDbl(tot.Value) - (CDbl(txtConsu.Value) _
+ CDbl(txtMaint.Value) + CDbl(txtClea.Value) _
+ CDbl(carmaint.Value) + CDbl(TransM.Value) _
+ CDbl(machm.Value))
End If
End If
End If
End If
End If
End If
End If
END Sub

Private Sub tot_Change()
MyCalc
End Sub
Private Sub txtConsu_Change()
MyCalc
End Sub
Private Sub txtMaint_Change()
MyCalc
End Sub

Private Sub txtClea_Change()
MyCalc
End Sub

Private Sub carmaint_Change()
MyCalc
End Sub

Private Sub TransM_Change()
MyCalc
End Sub

Private Sub machm_Change()
MyCalc
End Su
-------------------


I highly appreciate any help ;) ;)
yours


--
helmekk

-----------------------------------------------------------------------
helmekki's Profile: http://www.excelforum.com/member.php...nfo&userid=693
View this thread: http://www.excelforum.com/showthread.php?threadid=27002

Lots of ways you could handle this, but here's an easy one.

Private Sub MyCalc()
Dim dTotal As Double
On Error Resume Next
dTotal = dTotal + CDbl(TextBox1.Text)
dTotal = dTotal + CDbl(TextBox2.Text)
dTotal = dTotal + CDbl(TextBox3.Text)
'change the names of the boxes above and add the rest here
On Error GoTo 0
Label1.Caption = dTotal
End Sub

Robin Hammond
www.enhanceddatasystems.com

"helmekki" wrote in message
...

Hi

I have several Textboxs in a userform
main Textbox shows the total of the values entered into textboxs

my problem is : the total does not appear in the main Textbox untill i
fill in
all other Textboxs............somtimes i want to fill in only few
textboxes, so
the total does not appear in the Textbox that shows the total......

here is the codes i used in the userform:

Formula:
--------------------
Sub MyCalc()
If IsNumeric(tot.Text) Then
If IsNumeric(txtConsu.Text) Then
If IsNumeric(txtMaint.Text) Then
If IsNumeric(txtClea.Text) Then
If IsNumeric(carmaint.Text) Then
If IsNumeric(TransM.Text) Then
If IsNumeric(machm.Text) Then

bal.Value = CDbl(tot.Value) - (CDbl(txtConsu.Value) _
+ CDbl(txtMaint.Value) + CDbl(txtClea.Value) _
+ CDbl(carmaint.Value) + CDbl(TransM.Value) _
+ CDbl(machm.Value))
End If
End If
End If
End If
End If
End If
End If
END Sub

Private Sub tot_Change()
MyCalc
End Sub
Private Sub txtConsu_Change()
MyCalc
End Sub
Private Sub txtMaint_Change()
MyCalc
End Sub

Private Sub txtClea_Change()
MyCalc
End Sub

Private Sub carmaint_Change()
MyCalc
End Sub

Private Sub TransM_Change()
MyCalc
End Sub

Private Sub machm_Change()
MyCalc
End Sub
--------------------


I highly appreciate any help ;) ;)
yours
h


--
helmekki


------------------------------------------------------------------------
helmekki's Profile:
http://www.excelforum.com/member.php...fo&userid=6939
View this thread: http://www.excelforum.com/showthread...hreadid=270022