Macro to Autofill Dates between Start Date and End Date

[lewis1]

Hi, I have looked around the net, but I can't find a clear answer for the following.

I have a Start Date, eg: 08/23/2013 in Cell "D5", and
End Date; eg: 08/22/2018 in Cell "D7"

I would like a Macro which starts in Cell "D12" autofills column "D" with all the dates between and including the start and end date.

The name of the sheet I would like the macro to run on is named "Calendar"

Thanks!
Lewis.

 

[diddi]

heres half the solution...

Sub FillCal()
    Dim StartD As Date, EndD As Date
    
    StartD = Range("D5")
    EndD = Range("D7")
    
    For Row = 10 To EndD - StartD
        Cells(Row, 4) = StartD + Row - 1
        If Day(Cells(Row, 4)) > 14 And Day(Cells(Row, 4)) < 22 Then
            If Weekday(Cells(Row, 4)) = 4 Then Cells(Row, 5) = "3rd Wednesday"
        End If
    Next Row
    
End Sub

 

[diddi]

and heres part 2

Sub FillCal()
    Dim StartD As Date, EndD As Date
    
    StartD = Range("D5")
    EndD = Range("D7")
    
    For Row = 10 To EndD - StartD
        Cells(Row, 4) = StartD + Row - 1
        If Day(Cells(Row, 4)) > 14 And Day(Cells(Row, 4)) < 22 Then
            If Weekday(Cells(Row, 4)) = 4 Then Cells(Row, 5) = "3rd Wednesday"
        End If
        If Day(Cells(Row, 4)) = 1 Then
            If Weekday(Cells(Row, 4)) > 2 Then
                Cells(Row - 1, 6) = "Last weekday"
            ElseIf Weekday(Cells(Row, 4)) = 1 Then
                Cells(Row - 2, 6) = "Last weekday"
            ElseIf Weekday(Cells(Row, 4)) = 2 Then
                Cells(Row - 3, 6) = "Last weekday"
            End If
        End If
    Next Row
    
End Sub

 

[AndreDo]

This is what I am starting with..

Actually with the below, I am only returning 11 results for

[TABLE="width: 132"]
<tbody>[TR]
[TD]Start Date[/TD]
[TD]8/23/2013[/TD]
[/TR]
[TR]
[TD]Days[/TD]
[TD] 20.00[/TD]
[/TR]
[TR]
[TD]End Date[/TD]
[TD] 9/12/2013[/TD]
[/TR]
</tbody>[/TABLE]

Sub FillCal()
    Dim StartD As Date, EndD As Date
    
    StartD = Range("D5")
    EndD = Range("D7")
    
    For Row = 10 To EndD - StartD
        Cells(Row, 4) = StartD + Row - 1
    Next Row
    
End Sub

Hi Team, this does exactly what i'm trying to do but how do I make the code to populate only month end dates? I can seem to figure this out for the last three days