adding date ranges

[philmatth]

Hi,

I need to add date ranges that are the dates of every Friday to Sunday for the next 5 years in the date from and date to columns. I also need to add other date ranges such as Friday to Saturday.

Is there a quick way of doing this please?

 

[VoG]

Try

Sub MyDates()
Dim d As Date
Dim i As Long
d = DateValue(InputBox("Enter first Friday date"))
For i = 0 To 260
    Range("C" & Rows.Count).End(xlUp).Offset(1).Value = d + 7 * i
    Range("D" & Rows.Count).End(xlUp).Offset(1).Value = (d + 7 * i) + 2
Next i
End Sub

 

[philmatth]

Brilliant - thank you!

It also generates the fri-sat dates with a tweak on the +2 value. Just for future input, what value takes it to 2016? How do I alter that for future years after 2016?

Very impressed!

 

[VoG]

That is the 260 = 5 years x 52 weeks in a year.

 

[philmatth]

Of course! I looked at that value and it didn't click.

Thank you very much for your time.