Userforms - Display result of a calculation in a textbox

[Gary Hall]

I am creating a ueserform that shows asks the user to
enter a cost price and a selling price for an item.

Is ther a way of having another box (textbox?)which will
show the result of a calculation based upon the two
figures entered e.g Profit made in absolute and
percentage terms.

Thanks for your help

 

[Peter Atherton]

Garry

Code it as something like; Textbox3=textbox2-textbox1 and
Textbox4=textbox4/textbox3


Reagrds
Peter

 

[Tom Ogilvy]

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim dblCost as Double, dblPrice as Double
if len(trim(textbox1.text)) > 0 and len(trim(textbox2.text)) > 0 then
if isnumeric(textbox1.text) and isnumeric(textbox2.text) then
dblCost = cdbl(textbox1.text)
dblPrice = cdbl(textbox2.text)
if dblPrice <> 0 then
Textbox3.Text = Format(dblPrice-dblCost,"#,##0.00") & " - " & _
Format((dblPrice-dblCost)/dblPrice,"0.00%")
end if
end if
end if
End Sub

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim dblCost as Double, dblPrice as Double
if len(trim(textbox1.text)) > 0 and len(trim(textbox2.text)) > 0 then
if isnumeric(textbox1.text) and isnumeric(textbox2.text) then
dblCost = cdbl(textbox1.text)
dblPrice = cdbl(textbox2.text)
if dblPrice <> 0 then
Textbox3.Text = Format(dblPrice-dblCost,"#,##0.00") & " - " & _
Format((dblPrice-dblCost)/dblPrice,"0.00%")
end if
end if
end if
End Sub

 

[Gary Hall]

Peter,

I get an error message when I try to insert the code.

I am inserting it into the Control Spurce box. Is this
right?

Gary

 

[Peter Atherton]

Garry

The code for a form goes in a special Form Module. You
probabley have a Command button on the form to process it.
Double click this button to open the Form Module. and
enter your code there. It will be attached to
Private Sub Button_Click.

If you are adding the data to a list in a sheet you can do
the code in the module and enter the values into a new
line.

If you want a demo form write direct.

regards
Peter