Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
How calculate a difference btwn 2 TextBox and insert the result inthe appropriate cell
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 |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
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 |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
How calculate a difference btwn 2 TextBox and insert the resultin the appropriate cell
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 |
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
How calculate a difference btwn 2 TextBox and insert the resultin the appropriate cell
rng.value = me.textbox5.value
or maybe: with rng .numberformat = "0.00" .value = me.textbox5.value end with On 11/19/2011 10:43, John wrote: 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 |
#5
Posted to microsoft.public.excel.misc
|
|||
|
|||
How calculate a difference btwn 2 TextBox and insert the resultin the appropriate cell
Thanks for all your support. Solved. Regards John |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Time difference btwn entries | Excel Worksheet Functions | |||
Calculate Textbox value based on another textbox value.doc | Excel Discussion (Misc queries) | |||
Calculate Textbox value based on another textbox value | Excel Discussion (Misc queries) | |||
CALCULATE DIFFERENCE BETWEEN 2 TIMES - RESULT IN MINUTES | Excel Discussion (Misc queries) | |||
formatt to Calculate difference in now() and date in cell, | Excel Discussion (Misc queries) |