Creating A list of Dates Using VBA

[PatrickMilano21]

Hi,


I am looking to create a macro with a list of Dates and Times. I want to be able to have the user input the start date and start time (Ex. 9/7/2014 14:00) and an end time (Ex. 12/5/2015 3:00) and have excel fill a column with the dates starting at the start time every hour until it reaches the end time. Please help!! THank you


Example: Col 1

Row1: 9/7/2014 14:00
Row2: 9/8/2014 15:00
Row3: 9/9/2014 16:00
etc
etc.
Last Row: 12/5/2015 3:00

 

[ranman256]

Public Sub ExtrapolateDates()
Dim vDate, vEndDate
    
'cell A1 = start date
'cell B1 = End date
vDate = Range("A1").Value
vEndDate = Range("B1").Value


Range("A2").Select
While vDate < vEndDate
   vDate = DateAdd("h", 1, vDate)
   ActiveCell.Value = vDate
   
   ActiveCell.Offset(1, 0).Select  'next row
Wend
End Sub