Generating week commencing date for 52weeks.

**sritantry** · 06-15-2012, 02:38 PM

Hey guys I'm new to Macros and VB programming. I just wanted to Know if there can be a code written for generating week commencing dates for next 52 weeks if a random date is given as Start date.

For example 15 June 2012 is the Start date, +6 days would be end of first week, the macro should generate the 22 June 2012 -28 June 2012 as week 2, 29 June 2012 - 5 July 2012 and so on for next 52 weeks as the output.

**Leith Ross** · 06-15-2012, 03:16 PM

Hello sritantry,

Welcome to the Forum!

Let's say row 1 is used for column headers. The user inputs the random date in cell "A2". You would add the following formulas to cells B2, A3, and B3.

B2 =A2+6
A3 =A2+7
B3 =A3+6

Select cells A3:B3 and drag the formula down A52:B52 (50 more cells).

**sritantry** · 06-16-2012, 10:53 AM

Thank you Leith,

but I was looking for a VB script code, as i need to make further more additional enhancements to the above mentioned. Its like i need to calculate Pay which has quite some conditions.

**Leith Ross** · 06-16-2012, 06:35 PM

Hello sritantry,

This can be converted in VBA code. Can you tell me more about how the date will be input - worksheet cell, UserForm, InputBox? Where will the output be displayed?

**sritantry** · 06-17-2012, 01:36 AM

Hi Leith,

The input will be in the Worksheet cell and the out put should also be in worksheet cell. All data should be on the worksheet however the background would on the VB code.

For your quick reference I have attached the drat for which the code needs to be written.

Regards
Srikanth