Compare cells

[mtpsuresh]

Hi,

Can anyone help me out pls.

I am trying to compare two values

if application.worksheetfunction.sum(Range("A1:A2") <>Range("A3").value
then
msgbox "NotEqual"
end if

For Eg:
A1= 676821.92
A2=40936.43
A3=717758.35
it says it is not equal. But if i add VBA.VAL on both side of the
expressions, it doesnt display any message. I really dont get this.

 

[Guest]

Sub equal()
If Range("a1").Value + Range("a2").Value <> Range("A3").Value Then
MsgBox "Not Equal"
Else
MsgBox "Equal"
End If
End Sub


Vaya con Dios,
Chuck, CABGx3

 

[mtpsuresh]

Thanks Vaya con Dios.

But still it thows the same message. But if i add trim() on both sides
it doesnt display the message.

Thanks for your response.