How calculate a difference btwn 2 TextBox and insert the result inthe appropriate cell

[John]

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").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]

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)

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").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

 

[John]

Il 19/11/2011 13:50, Dave Peterson ha scritto:

me.textbox5.value = format(me.textbox2.value - me.textbox3.value, "0.00")

Thanks Dave,
it is OK.
One more question if you allowed me:
how may update the source (the cell in column D) in the worksheet with
the Me.TextBox5.value?

Thanks and Regards
John

 

[Dave Peterson]

rng.value = me.textbox5.value

or maybe:
with rng
.numberformat = "0.00"
.value = me.textbox5.value
end with

 

[John]

Thanks for all your support. Solved.
Regards
John