View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.misc
Dave Peterson[_2_] Dave Peterson[_2_] is offline
external usenet poster
 
Posts: 420
Default How calculate a difference btwn 2 TextBox and insert the resultin the appropriate cell

Since you're using textboxes, I think you'd be wise to check to see if the
values are numeric:

if isnumeric(me.textbox2.value) _
and isnumeric(me.textbox3.value) then
me.textbox5.value = me.textbox2.value - me.textbox3.value
else
me.textbox5.value = "Please enter numbers!"
end if

You may want to even format that result:
me.textbox5.value = format(me.textbox2.value - me.textbox3.value, "0.00")

(untested and uncompiled -- watch for typos)


On 11/19/2011 01:34, John wrote:
Hello to eveybody,
How may I calculate a difference btwn [TextBox2]-[TextBox3] in a UserForm, show
the result in [TextBox5] and insert the result in the appropriate cell D of the
PaperReceipt worksheet when I click on a button?

The [TextBox3] initially has the same value has [TextBox2] but in the TextBox I
need sometime to change the number.
Thanks in advance.
Regards
John


In the UserForm there is a combo and the code behind is:

Private Sub mSearch(ByVal vValore As Variant)
Dim rng As Range
With sh
'search value column D
Set rng = _
.Range("D:D").Find( _
What:=vValore, _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlRows, _
SearchDirection:=xlNext, _
MatchCase:=True)
End With
'chek result
If rng Is Nothing Then
'if no
MsgBox "Data nof found"
'clean TextBox
Call mClear TextBox
Else
Me.TextBox2.Text = rng.Offset(0, 3).Value
Me.TextBox3.Text = rng.Offset(0, 3).Value
Me.TextBox4.Text = rng.Offset(0, 2).Value
End If
Set rng = Nothing
End Sub


--
Dave Peterson