MsgBox problem

[Yulyo]

Hello all,
I have a problem with my VBA, maybe you can help me.


Everything is working fine, but even if XXX!D13 =0, i still recieve an empty message with "ok" button. How can i change the vba, so that in case XXX!D13 is zero, not to have any message.

This is my VBA:

Dim msg AsString
If Worksheets("XXX").Range("D13")>0Then
msg ="ATENTION!"& vbCrLf &"OLD = "& Worksheets("XXX").Range("D13")&" PCS !"
EndIf


If Worksheets("XXX").Range("E13")>0Then
msg = msg & vbCrLf &"ATENTION!"& vbCrLf &"REQUEST = "& Worksheets("XXX").Range("E13")&" PCS !"
EndIf
MsgBox msg

 

[NARAYANK991]

Hi ,

The problem is that the last line of code :

MsgBox msg

is always executed , whether D13 or E13 are greater than zero or not.

Change that last line of code to :

If msg <> vbNullString Then MsgBox msg

 

[MickG]

Maybe!!

If msg <> "" Then MsgBox msg

 

[Yulyo]

Thank you both for your answers. It's almost working right now.

So if D13 & E13 = 0, i have no message;
If D13 & E13 > 0, i have a message
The only problem is that, for example, if D13=0 and E13=1, the message won't appear at all...

 

[NARAYANK991]

Hi ,

How so ?

Your two IF statements are following one after the other.

For the case that you have posted , because D13 is 0 , msg will remain blank after the first IF statement has executed.

However , because E13 is greater than 0 , the IF statement will ensure that msg now contains the desired message string , and this will be displayed by the MsgBox statement.