Code to list all dates between a range

[JackDanIce]

Hi,

I have the following code but it doesn't stop looping until it runs out of columns. Please can someone modify it so it stops at the last date?

    FirstDay = Day(Range("StartDate"))
    LastDay = Day(Range("EndDate"))
    
    FirstMonth = Month(Range("StartDate"))
    LastMonth = Month(Range("EndDate"))
    
    FirstYear = Year(Range("StartDate"))
    LastYear = Year(Range("EndDate"))
    
    LastDate = DateSerial(LastYear, LastMonth, LastDay)
    
    .Cells(5, 3).Value = Range("StartDate")
    k = 4
    Do Until .Cells(5, k) >= DateSerial(LastYear, LastMonth, LastDay)
        DateStamp = DateSerial(FirstYear, FirstMonth, FirstDay + k - 3)
        .Cells(5, k).Value = DateStamp
        k = k + 1
    Loop

Thank you,
Jack

 

[JackDanIce]

Ignore, just realised the test condition part of my loop is in the wrong place

 

[Sindhuja]

Hi,

Hope you can help me on this !!

I need to know the dates in between the dates and the dates should be in separate rows

if the dates range is 2/2/2015 to 2/7/2015 then mystart is 02/02/2015 and myend is 02/7/2015

till myend reaches I need to insert a row and fill the dates from 2/2/2015 to 2/7/2015.

Like this I have many rows to be filled... I need to check the whole column and fill in the dates.

-sindhuja