generating text box value based on equation from other boxes
 

I've got an invoicing macro that totals 4 amount boxes and a amount
paid box (input boxes on the form). I'm trying to get the total box to
update based on the amounts in this box, but i keep getting a type
mismatch, here's what i have for the change events on the five inpute
boxes

Private Sub FirstAmtBox_Exit(ByVal Cancel As MSForms.ReturnBoolean)
BalanceDueAmountBox.Value = ((FirstAmtBox.Value * 1) +
(SecondAmtBox.Value * 1) + _
(ThirdAmtBox.Value * 1) + (FourthAmtBox.Value * 1) -
(AmtPaidBox.Value * 1))
End Sub

any suggestions?

generating text box value based on equation from other boxes
 

Hello Craig,

Try this...

Private Sub FirstAmtBox_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim AmountDue
AmountDue = CCur(FirstAmtBox.Text ) +
CCur(SecondAmtBox.Text ) + _
CCur(ThirdAmtBox.Text ) + CCur(FourthAmtBox.Text) -
CCur(AmtPaidBox.Text)
BalanceDueAmountBox.Text = Format(AmountDue, "Currency")
End Sub

Sincerely,
Leith Ross


--
Leith Ross
------------------------------------------------------------------------
Leith Ross's Profile: http://www.excelforum.com/member.php...o&userid=18465
View this thread: http://www.excelforum.com/showthread...hreadid=544532

generating text box value based on equation from other boxes
 

Your code seems to run fine. You might want to check that you have named
your textboxes correctly as using a wrong name will cause a new variable
to be declared. This new variable will be given the Variant type,
causing the type mismatch error.


--
C01d
------------------------------------------------------------------------
C01d's Profile: http://www.excelforum.com/member.php...o&userid=34422
View this thread: http://www.excelforum.com/showthread...hreadid=544532