Macro to check row data and call another macro

[IKHAN]

Summary : I am pulling data from a third party application from excel 2010, runs every 30 mins and then calls outlook email macro to send me email.(using Ron de Bruin Code Outlook object model (body) )


problem:Mail is being sent out even if no data in row 10 onwards.


Need help with macro to check excel spreadsheet if no data is available in Specific ROW10 ,R11 , R12 ,R13,R14,R15....UPTO R20 , not to call outlook email macro.


Have a header file in ROW in excel in Row9(A9:L9)


Macro 1 (automatic runs every 30 mins)- pulls data from third party application into excel 2010,calls

Macro 2 - Ron de Bruin Code Outlook object model (body) ) and sends email out.

 

[Hui]

Ikhan


You could do something like:

[pre]

myRange = Range("A10:XFD20")
If Application.WorksheetFunction.Sum(myRange) <> 0 Then Call Macro2

[/pre]

 

[IKHAN]

Thanks for prompt reply ...I did add your code at the end of macro1 before end sub..get a error msg..myrange variable not defined.

 

[Luke M]

Tweaking Hui's code:

[pre]

Dim myRange as Range
Set myRange = Range("A10:XFD20")
If Application.WorksheetFunction.Sum(myRange) <> 0 Then Call Macro2

[/pre]

 

[IKHAN]

thank u very much..works like charm

 

[Hui]

Thanx Luke


I had removed the Option Explicit line for another project and missed that