View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.misc
Bob Phillips[_3_] Bob Phillips[_3_] is offline
external usenet poster
 
Posts: 2,420
Default Breaking out Dates from a Date Range

Public Sub ProcessData()
Dim i As Long
Dim LastRow As Long
Dim NumRows As Long

With ActiveSheet

LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
For i = LastRow To 1 Step -1

If .Cells(i, "B").Value < .Cells(i, "C").Value Then

NumRows = .Cells(i, "C").Value - .Cells(i, "B").Value
.Rows(i + 1).Resize(NumRows - 1).Insert
.Cells(i + 1, "A").Resize(NumRows).Value = .Cells(i,
"A").Value
.Cells(i, "B").AutoFill .Cells(i, "B").Resize(NumRows + 1)
.Cells(i, "C").ClearContents
End If
Next i

End With

End Sub


--
__________________________________
HTH

Bob

"WPNX777" wrote in message
...
Not sure how to do this or if it can be done. Im am trying to manipulate
data from a Project Management download. In my spreadsheet i have 3
columns;
a task, a Start Date and a End Date (EX: Build House; Start 1/1/08; End
2/1/08).

Is there a way that Excel can look at the start and end dates and then
populate that task for each day it will be done as seperate line items?
(EX
Build HOuse on 1/1/08, 2nd row = Build House on 1/2/08, 3rd row = Build
House
on 1/3/08,,,etc).

I dont want to do this manually. Please Help. Thanks.