Date Range

[ak255]

Hello,
I need to find out a way to make a date range out of a starting date and an ending date
i.e.

a1 6/25/2007
a2 7/4/2007

what i want then is for collumn b to have all the date inbetween those two dates written out

b1 6/25/2007
b2 6/26/2007
b3 6/27/2007 etc.

I am using this formula in a macro, so each date range is going to be different in size, so I need a formula that is flexible for all date ranges

Thanks!

 

[goldfish]

two small changes

Sub PlaceDates()
Dim DateCount As Long, StartDate As Long, EndDate As Long, FormulaString As String
StartDate = Int(Range("A1").value)
EndDate = Int(Range("A2").value)
FormulaString = Range("C2").FormulaR1C1
For DateCount = StartDate + 1 To EndDate
    Range("B:B")(DateCount - StartDate + 1) = DateCount
    Range("C:C")(DateCount - StartDate + 1).FormulaR1C1 = FormulaString
Next DateCount
Columns("B:B").NumberFormat = "m/d/yyyy"
End Sub

Changed C1 to C2 and added a "+1" after start date in the for loop. This will not effect B1 or C1, so you will probably want to change B1 to =A1.

HTH,
~Gold Fish