How to send the email if the date range is changing

**anikethkulkarni@gmai** · 03-07-2013, 02:10 PM

Hi All,

I am new to the VBA , I am working on a project to send mail.

Here is the my code:

Please Login or Register  to view this content.

So when I am refreshing my D:\VBA Testing\xyz.xlsm file some times date range is not changing as the data is not updated in data base.

So I have to stop sending the email if the data base is not updated.

I automated this by scheduling on task scheduler in windows by writing auto run option after opening work book.

I provided Start date in cell value A3 and end date is in A4 in sheet 1.

After refreshing if end date value in A4 doesn't change or end date value is not equal to current date - 1 then I have to exit from macro

**Leith Ross** · 03-07-2013, 02:18 PM

Hello anikethkulkarni@gmai
,

Welcome to the Forum!

You didn't mention how this date changes. Are you using the formula "=Now()" or something else to obtain this date?

**anikethkulkarni@gmai** · 03-07-2013, 02:44 PM

Hi Leith ,

Thanks for quick reply. The date changes after refreshing the pivot table. I used =TEXT(MAX(A8:A500), "DD-MM-YYYY") formula to display the date in A4 cell.

So if this value is < current date - 1 then the macro has to be exit as the data is not updated in data base.

You can download the my example file from following link

http://dl.dropbox.com/u/99922185/Sample_test.xls

Please help me.

In the attached file first i will refresh the raw data then pivot also refresh automatically . now if A4 value is current date - 1 i have to send the mail by saving it to .xls file in another location. or else i have to exit the macro.

Thanks again .

Aniketh Kulkarni

**Leith Ross** · 03-07-2013, 03:31 PM

Hello Aniketh,

Seems like we are experiencing heavy server loads. I wasn't able to reconnect till now. To ensure the worksheet calculations occur, copy and paste the macro code below into your ThisWorkbook module.

Please Login or Register  to view this content.

This will cause each sheet to calculate when the workbook is first opened.

**anikethkulkarni@gmai** · 03-07-2013, 04:33 PM

Hi Leith ,

Sorry to disturb you again and again i think there is a misunderstanding b/w us.

The above code is not working.

Following steps i have to do

1. Refresh the data by using macro ( i am using Activeworkbook.Refresh all)
2. Convert the report to Xls format and send that report as e mail
3. If the report is blank exit macro
4. If the report is not updated ( data is not changed ) then also exit macro.

Your help is much needed on this.

Thanks

Aniketh Kulkarni