Simple Calculation

Hi,

becouse I newbie this question might sound little stupid

In VBA I created UserForm where I inserted three TextBoxes:
- TextSkupajDDV
- TextBrezDDV
- TextSkupajZDDV

I created formula that would check if the statemant is right:

Private Function IzracunDDV()

If (TextSkupajDDV + TextBrezDDV= TextSkupajZDDV) Then
IzracunDDV = False
Exit Function
End If

Application.ScreenUpdating = True
IzracunDDV = True
End Function

Can you please tell me what I did wrong, becouse it is not currect

Hi,

what are you trying to test?

In your code you basically are saying this:

If textbox1 + textbox 2 = textbox1 then ...

this test will only return true if either textbox 1 or textbox 2 are empty
(of it they're numeric, equal to zero)

are you trying to see if one is empty?

HTH

Philip

"Lucifix" wrote:

>
> Hi,
>
> becouse I newbie this question might sound little stupid
>
> In VBA I created UserForm where I inserted three TextBoxes:
> - TextSkupajDDV
> - TextBrezDDV
> - TextSkupajZDDV
>
> I created formula that would check if the statemant is right:
>
> > Private Function IzracunDDV()
> >
> > If (TextSkupajDDV + TextBrezDDV= TextSkupajZDDV) Then
> > IzracunDDV = False
> > Exit Function
> > End If
> >
> > Application.ScreenUpdating = True
> > IzracunDDV = True
> > End Function
>
> Can you please tell me what I did wrong, becouse it is not currect
>
>
> --
> Lucifix
> ------------------------------------------------------------------------
> Lucifix's Profile: http://www.excelforum.com/member.php...o&userid=29179
> View this thread: http://www.excelforum.com/showthread...hreadid=495452
>
>

I would like check if formula is correct:
If textbox1 + textbox 2 = textbox1 then ...
If 2 + 1 = 3 then...

Thank you.

Hi,

Well, then you need code like this:

if textbox1 + textbox2 = textbox3 then ...

NOT

if textbox1+textbox2=textbox1

you were testing the values of 2 textboxes againts one of them - this will
NEVER be correct unless one of the textboxes is empty or =0 !

HTH

Philip

"Lucifix" wrote:

>
> I would like check if formula is correct:
> If textbox1 + textbox 2 = textbox1 then ...
> If 2 + 1 = 3 then...
>
> Thank you.
>
>
> --
> Lucifix
> ------------------------------------------------------------------------
> Lucifix's Profile: http://www.excelforum.com/member.php...o&userid=29179
> View this thread: http://www.excelforum.com/showthread...hreadid=495452
>
>

But what is different then this:

Private Function IzracunDDV() As Boolean

If TextSkupajDDV + TextBrezDDV = TextSkupajZDDV Then
IzracunDDV = False
Exit Function
End If

Application.ScreenUpdating = True
IzracunDDV = True
End Function

Lets say that I would like to insert in fields:
TextSkupajDDV -> 2
TextBrezDDV -> 1
TextSkupajZDDV -> 3

This function will say that this is not correct, which isn't true.
2 + 1 = 3

What would be right function then?

Thank you for helping me.
Lucifix

Try
CODE >>>
Private Function IzracunDDV() As Boolean

If VBA.CInt(TextSkupajDDV.Value) _
+ VBA.CInt(TextBrezDDV.Value) = VBA.CInt(TextSkupajZDDV.Value) Then
IzracunDDV = True
Exit Function
End If

Application.ScreenUpdating = True
IzracunDDV = False
End Function
<<<< END CODE

to check that 3 numbers are the same you need to force them to be numbers.

The default property of a textbox is the Text property, so in fact, if you
don't get the Value property explicitly, then the test you are performing is
like this:

text1 + text2 = "12"

is "12" = "3"

answer, FALSE

But if you take the textbox value property (which is still a string BTW)
then cast it to an integer using CINT then you get this test:

1 +3 = 3

One more thing, you are returning "IzracunDDV = False" if the condition is
found to be true - is that correct?

HTH

Philip
"Lucifix" wrote:

>
> But what is different then this:
>
> Private Function IzracunDDV() As Boolean
>
> If TextSkupajDDV + TextBrezDDV = TextSkupajZDDV Then
> IzracunDDV = False
> Exit Function
> End If
>
> Application.ScreenUpdating = True
> IzracunDDV = True
> End Function
>
> Lets say that I would like to insert in fields:
> TextSkupajDDV -> 2
> TextBrezDDV -> 1
> TextSkupajZDDV -> 3
>
> This function will say that this is not correct, which isn't true.
> 2 + 1 = 3
>
> What would be right function then?
>
> Thank you for helping me.
> Lucifix
>
>
> --
> Lucifix
> ------------------------------------------------------------------------
> Lucifix's Profile: http://www.excelforum.com/member.php...o&userid=29179
> View this thread: http://www.excelforum.com/showthread...hreadid=495452
>
>