Help - Simple Macro (If Sum of Row>0, Then MsgBox, Else, Macro2)

[JonesyUK]

Hi All,

Need your help please:

My spreadsheet contains a Macro ("SendEmail") which, when activated, will send the spreadsheet to a specific email address. It works fine.

I would like to add a new Macro that Checks the following, BEFORE running the "SendEmail" Macro:

1) If Sum(C52:M53)<=1, MsgBox "Please Enter your Data in Rows 22 & 23"
2) If Sum(C97:M97)>0, MsgBox "Please Check your Data Breakdown"
3) If Sum(C52:M53) >1 AND Sum(C97:M97)=0, Then "SendEmail"

Many Thanks for your expertise....

 

[VoG]

Try

If WorksheetFunction.Sum(Range("C52:M53")) <= 1 Then
    MsgBox "Please Enter your Data in Rows 22 & 23"
    Exit Sub
End If
If WorksheetFunction.Sum(range("C97:M97")) > 0 Then
    MsgBox "Please Check your Data Breakdown"
    Exit Sub
End If
Call SendEmail

 

[JonesyUK]

Thanks for that... your first If statement works fine. However, it seems to ignore the second If statement. Does it matter that there are formulas in the cells in C97:M97?

 

[JonesyUK]

Not to worry - my mistake... works perfectly.... Thanks!