How to compile a list of dates either weekly or monthly between two dates in excel using VBA?

[c_dogg]

I want to be able to set two dates in excel and then select a drop down box for either "weekly" or "monthly". Then I would like to be able to press a button to run a macro that will fill an excel sheet with every date either weekly or monthly.

I am able to currently generate every date between two dates, but would like to be able to change this depending on a drop down box in excel.

Sub WriteDates()
'
 Dim sc As Range
 Dim Stdt As Date
 Dim Edt As Date
 Dim dDate As Date
 Dim off As Integer
'
 Stdt = Range("B3") ' start date
 Edt = Range("B4") ' end date
 Set sc = Range("A8") ' start cell
'
 Range("A8").Select
 Range(Selection, Selection.End(xlToRight)).Select
 Selection.ClearContents
'
 off = 0
'

For dDate = Stdt To Edt
      If Format(dDate, "dd") = "01" Then
        sc.Offset(0, off) = Format(dDate, "mmmm yyyy")
        off = off + 1
      End If
Next dDate

'
sc.Resize(off, 1).NumberFormat = "mmmm yyyy"
'
End Sub

 

[c_dogg]

I would like to try something like this:

If Range("B5").Value = "Monthly" Then

And for it to accomplish the code above. Or

If Range("B5").Value = "Weekly" Then

And then for it to accomplish the above, but adding 7 days to the start date in a weekly fashion. I have tried this, but could not get it to work.

 

[c_dogg]

Answer below. Although I am pretty sure using

select

isn't good practice?

Sub WriteDates()
'
 Dim sc As Range
 Dim Stdt As Date
 Dim Edt As Date
 Dim dDate As Date
 Dim off As Integer
'
 Stdt = Range("B3") ' start date
 Edt = Range("B4") ' end date
 Set sc = Range("A8") ' start cell
'
 Range("A8").Select
 Range(Selection, Selection.End(xlToRight)).Select
 Selection.ClearContents
'
 off = 0
'
NextDate = Stdt

If Range("B5").Value = "Monthly" Then
For dDate = Stdt To Edt
      If Format(dDate, "dd") = "01" Then
        sc.Offset(0, off) = Format(dDate, "mmmm yyyy")
        off = off + 1
      End If
Next dDate

sc.Resize(1, off).NumberFormat = "mmmm yyyy"

Else
If Range("B5").Value = "Weekly" Then

Do Until NextDate > Edt

    ActiveCell.Value = NextDate
    ActiveCell.Offset(0, 1).Select
    NextDate = NextDate + 7

Loop
sc.Resize(1, 10000).NumberFormat = "dd/mm/yy"
End If
End If
'

'
End Sub