blank text boxes

[mmix803]

I am new to vba and I have a simple userform in excel. First textbox is qty1txt * second textbox is rate1txt = amount1txt. On the next line is forth textbox is qty2txt * fifthtextbox is rate2txt = amount2txt. Then I have a command button (Calculate total) in my totaltxt textbox. Some times I do not have information and want to have blank textboxes of qty2txt, rate2txt and amount2txt, but I still need a total. This is what I have so far. Any help would be appreciated. Thank you

Option Explicit

Private Sub CommandButton1_Click()

totaltxt.Value = (qty1txt.Value) * (rate1txt.Value) + (qty2txt.Value) * (rate2txt.Value)

End Sub


Private Sub rate1txt_Change()

'calculate the product

amount1txt.Value = (qty1txt.Value) * (rate1txt.Value)

End Sub


Private Sub rate2txt_Change()

'calculate the product

amount2txt.Value = (qty2txt.Value) * (rate2txt.Value)

End Sub

 

[rowebca]

You have to change this:

amount2txt.Value = val(qty2txt.Value) * val(rate2txt.Value)

I added Val there so the blank will be 0. You should add for each textbox Val or forced the field to be number (0 in case of empty).
I hope I understood correctly.

Regards,
GB

 

[mmix803]

Thank you. Works like a charm and no error.

 

[mmix803]

I want to add currency to the rate2txt text box. But with the Val function will not recognize the currency and the amount2txt box is zero.

 

[rowebca]

If you want to enter like [ $12 ] in the rate2txt field than add this :

Private Sub rate2txt_Change()
if rate2txt.Value = vbNullString then
amount2txt.Value = 0
else
amount2txt.Value = val(qty2txt.Value) * val(replace(rate2txt.Value,"$",""))
end if
End Sub

I hope I understood correctly what you want.

Regards,
GB

 

[mmix803]

If you want to enter like [ $12 ] in the rate2txt field than add this :

Private Sub rate2txt_Change()
if rate2txt.Value = vbNullString then
amount2txt.Value = 0
else
amount2txt.Value = val(qty2txt.Value) * val(replace(rate2txt.Value,"$",""))
end if
End Sub

I hope I understood correctly what you want.

Regards,
GB

 

[mmix803]

That did not work there was not any currency showing. Sorry

 

[rowebca]

I said something else in my reply, I said if you literally enter $12 in the rate2txt field that will work.

Regards,
GB

 

[smozgur]

Thank you. Works like a charm and no error.

The marked solution has been changed accordingly. In your future questions, please mark the post as the solution that actually answered your question, instead of your feedback message as it will help future readers. No further action is required for this thread.