Vba or Fomulas to give me 4 dates from a start date and duration

[tonywatsonhelp]

Hi Everyone,

Hoping someone can help with this,

I would like to input a start date and durration and get 4 dates equal weeks apart from that info.

So for example

D2= Start Date, (I input 01/July/2019)
D3= Duration in weeks (I Input 4 weeks)

So I would get the following dates in range G10:G13

G10 = 01/July/2019
G11 = 07/July/2019
G12 = 14/July/2019
G13 = 21/July/2019


that's all I need but I need it for any duration, so if its 7 weeks same thing etc.
please help if you can as I'm stuck
Thanks
Tony

 

[mumps]

Place this macro in the worksheet code module, not in a standard module. Enter a date in D2 and then a number in D3 and press the RETURN key.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("D3")) Is Nothing Then Exit Sub
    Dim x As Long, y As Long: y = 6
    Range("G10") = Target.Offset(-1, 0)
    For x = 2 To Target.Value
        Range("G" & x + 9) = Target.Offset(-1, 0) + y
        y = y + 7
    Next x
End Sub

 

[Fluff]

How about

Book1
	D	E	F	G
2	01/07/2019			01/07/2019
3	4			08/07/2019
4				15/07/2019
5				22/07/2019
Sheet1

Cell Formulas
Range	Formula
G2	=$D$2+($D$3*7/4*(ROW(A1)-1))

 

[tonywatsonhelp]

Thanks Fluff, that formula works perfectly,
Great VBA Mumps but gave me a date per week not divided by 4, but still be of use to me so thanks.
Big thank you

Tony

 

[Fluff]

You're welcome & thanks for the feedback