textbox codes

[Guest]

i have three TextBoxes
txtPrice,txtQty and txtTotal

i want codes for these textboxes,when a user put the price in txtPrice and
Quantity in txtQty,the txtTotal wil automatically show the the value i.e.
price*Qty=Total
is there anyone who can help me

thanks

 

[Ron de Bruin]

Try this

Change the names to your TextBox names

With UserForm1
.TextBox3.Text = CDbl(.TextBox1.Text) * _
CDbl(.TextBox2.Text)
End With

 

[Bob Phillips]

Private Sub txtPrice_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
txtTotal.Text = txtPrice.Text * txtQty.Text
On Error GoTo 0
End Sub

Private Sub txtQty_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
txtTotal.Text = txtPrice.Text * txtQty.Text
On Error GoTo 0
End Sub


--

HTH

Bob Phillips

(replace xxxx in the email address with gmail if mailing direct)

 

[Guest]

Many thanks for your reply,
kindly let me know where to put tese codes, there are many events in
textBox, like change,dblClick etc etc ????

 

[Gary Keramidas]

and just adding to the bob's suggestion, if you want the total to change on
every number entry without leaving the textbox.

Private Sub txtPrice_Change()
On Error Resume Next
txtTotal.Text = txtPrice.Text * txtQty.Text
On Error GoTo 0

End Sub

Private Sub txtQty_Change()
On Error Resume Next
txtTotal.Text = txtPrice.Text * txtQty.Text
On Error GoTo 0

End Sub

 

[Ron de Bruin]

See Bob's reply (Exit event)

You see that I use CDbl but in this case it is not needed but if you want to use
textbox1 + testbox2 you must use it

 

[Guest]

Many Thanks Ron