Timeline - loop through all dates between first and last given and add date to column if n

Your example implies that there is only every on set of hours/names on each day. Is that the case?

If so, you could just put a full list of dates on your second sheet, then use VLOOKUP to find the matching values in the first sheet.

But maybe I'm missing something

If that's not what you need, could you attach an example.

The attached file seems to do what you want. Let me know if you need any explanations.

Hope this helps.

Pete

Thank you for fast response but that doesnt do exactly i wanted.

That solution doesnt automatically stop in the last day.
I want the last day to be in the last row of the results, regardless of the last date automatically.

shirleyxls good point, it isnt the case there could be more than one name to a given date. i will reformulate my initial question.

Pete_UK I'm afraid your solution won't work anymore. There could be more than one entry for a given date. I was looking for a VBA macro, which I believe it's the only way to do that.

You should not edit an earlier post - it makes nonsense of the replies that your received earlier.

Pete

Originally Posted by carlos_cs

...I was looking for a VBA macro, which I believe it's the only way to do that...

The attached file shows how it can be done using a few formulae.

Hope this helps.

Pete

Thank you a lot! I also managed to get a vba answer i would like to share with you:

Sub timeline()

Dim i As Long
Dim ws As Worksheet
Dim ts As Worksheet

Set ws = Sheets("Sheet15") 'Change to your Output Sheet
Set ts = Sheets("Sheet14") 'Change to your data sheet

With ws
i = ts.Range("A" & ts.Rows.Count).End(xlUp).Row
ts.Range("A1:C" & i).Copy .Range("A1")
.Range("A1:C" & i).Sort Key1:=.Range("A2"), Order1:=xlAscending, _
key2:=.Range("C2"), Order2:=xlAscending, _
Header:=xlYes
Do Until i = 2
If .Cells(i, 1).Value2 = .Cells(i - 1, 1).Value2 Or .Cells(i, 1).Value2 = .Cells(i - 1, 1).Value2 + 1 Then
i = i - 1
Else
.Rows(i).Insert
.Cells(i, 1).Value = .Cells(i + 1, 1).Value2 - 1
.Cells(i, 2).Value = 0#
.Cells(i, 3).Value = "--"
End If
Loop
End With

End Sub