Keep 6 months of dates from Today to (Today + 6 Months)
 

I would like to create a macro that will make sure the Sheet1 worksheet in
Column (A) Dates always has 6 months of data. The dates are sorted in
ascending
order. There should not be dates less than today's date in Column (A) Dates
field.
When dates are deleted, dates will need to add to the Column (A) Dates to
ensure
there is 6 months of dates in the worksheet.

Listed below is example.

Please help me complete this task.

Thanks,


Example:
Today is: 10/09/07
Column (A) Dates should be: 9/18/07 - 3/18/07
Delete Rows with Dates : 9/18/07 - 10/08/07
Added Rows Dates : 3/19/07 - 4/09/07

Net Results in Column (A) Dates: Today Date - (Today Date + 6 months)
or
Net Results in Column (A) Dates: 10/09/07 - 4/09/07

Keep 6 months of dates from Today to (Today + 6 Months)
 

Here are some websites that provide an abundance of information
on using dates on a worksheet. Perhaps you can find an answer
to your problem at one of these.

http://www.cpearson.com/excel/datetime.htm

http://support.microsoft.com/kb/214094

http://www.mrexcel.com/archive/Dates/index.html

"Joe K." wrote:


I would like to create a macro that will make sure the Sheet1 worksheet in
Column (A) Dates always has 6 months of data. The dates are sorted in
ascending
order. There should not be dates less than today's date in Column (A) Dates
field.
When dates are deleted, dates will need to add to the Column (A) Dates to
ensure
there is 6 months of dates in the worksheet.

Listed below is example.

Please help me complete this task.

Thanks,


Example:
Today is: 10/09/07
Column (A) Dates should be: 9/18/07 - 3/18/07
Delete Rows with Dates : 9/18/07 - 10/08/07
Added Rows Dates : 3/19/07 - 4/09/07

Net Results in Column (A) Dates: Today Date - (Today Date + 6 months)
or
Net Results in Column (A) Dates: 10/09/07 - 4/09/07