Thread: date list
View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Tom Ogilvy Tom Ogilvy is offline
external usenet poster
 
Posts: 27,285
Default date list

Sub fill1()
Dim dt1 As Date
Dim dt2 As Date
dt1 = DateValue("08/02/2003")
dt2 = DateValue("08/13/2003")

Range("A1").Value = dt1
Range("A1").NumberFormat = "dd/mm/yy"
i = 0
Do While dt1 + i < dt2
i = i + 1
Range("A1").Offset(i, 0).Value = dt1 + i
Range("A1").Offset(i, 0).NumberFormat = "dd/mm/yy"
Loop

End Sub


you could also do it in one step using fill.

Sub FillDates()
Dim dt1 As Date
Dim dt2 As Date
dt1 = DateValue("08/02/2003")
dt2 = DateValue("08/13/2003")
Selection(1).Select
ActiveCell.Value = dt1
ActiveCell.DataSeries Rowcol:=xlColumns, _
Type:=xlChronological, _
Date:=xlDay, _
Step:=1, _
Stop:=dt2, _
Trend:=False
End Sub


--
Regards,
Tom Ogilvy

libby q:-) wrote in message
...
Hi all

Given a start date eg 02/08/03 and an end date eg 13/08/03
is there any way of getting excel to list the dates
inbetween?

Many thanks in advance.