Macro to activate message if cell D1 is zero

[Howardc1001]

I have a macro to email a sheet with a message , which works fine



However, should cell D1 be zero, then sheet must not be attached, an message in body of email to state

Please Login or Register  to view this content.

Please Login or Register  to view this content.

I have attached sample data

Your assistance in this regard is most appreciated

[davesexcel]

You can add an if statement

Please Login or Register  to view this content.

[Howardc1001]

thanks for the help Dave. If the value in D1 is zero, how do I amend message so that only the message below displays in the body ?
If <> 0 then current message to display in body

[Howardc1001]

Hi Dave

I tried to amend the code so that if D1 = zero, then the applicable sheet is not to be attached and strbody1 message to appear in body

When running the macro Email BR1 where D1 = 0 , the applicable sheet is attached and strbody1 does not appear in the body-strbody message appears



Kindly check & amend my code


Your assistance is most appreciated

Please Login or Register  to view this content.

[bakerman2]

Are you sure you are on the correct sheet, because the code in itself works just fine.

[Howardc1001]

Hi Bakerman2

Thanks for the reply.
Sub Email_BR1() works fine as the value in D1 on sheet("Br1") <> 0

however, Sub Email_BR2() , pertaining to sheet("Br2"), where the value in D1 = 0, there should be no attachment and the message in the body should pertaining to strbody1 and NOT STRbody

Kind test and amend code

[bakerman2]

Specify the sheet for range D1 so Sheets("BR2").Range("D1").value.

[Howardc1001]

I see where my problem is


I need to refer to the sheet on my macro, otherwise If I am not on the activate sheet macro does not work correctly

[Howardc1001]

Thanks, I realised that on checking my code

[bakerman2]

You're welcome.