Moving data from multiple rows into multiple columns for the same ID number

[Malkavian694]

The data I have looks like
ID. Date. Status
1. 1/1/18. Complete
1. 6/30/18. Complete
1. 12/31/18. Refused
2. 1/15/18. Refused
3. 4/30/18. Complete
4. 2/1/18. Refused
4. 4/1/18. Complete

I want to get it to look like this
ID. Complete 1 Complete 2. Refused
1. 1/1/18. 6/30/18. 12/31/18
2. 1/15/18
3. 4/30/18
4. 4/1/18. 2/1/18

Does anyone have any suggestions?

 

[synergy16]

if this is just an excel sheet a vlookup would work for you

 

[billszysz]

I do not know how many "refused" can exist with the same ID....so, i assumed that can be more than one "Refused" with the same ID.

let
    Source = Excel.CurrentWorkbook(){[Name="Tabela1"]}[Content],
    #"Changed Type" = Table.TransformColumnTypes(Source,{{"ID", Int64.Type}, {"Date", type date}, {"Status", type text}}),
    #"Grouped Rows" = Table.Group(#"Changed Type", {"ID", "Status"}, {{"tbl", each _, type table [ID=number, Date=date, Status=text]}, {"Count", each Table.RowCount(_)  }}),
    #"Added Custom" = Table.AddColumn(#"Grouped Rows", "AddIdx", (x) => Table.TransformColumns(Table.AddIndexColumn(x[tbl], "Idx", 1, 1), {{"Idx", each x[Status] & " " & Text.From(_)}}  )  ),
    MaxComplete = List.Max(Table.SelectRows(#"Added Custom", each ([Status] = "Complete"))[Count]),
    MaxRefused = List.Max(Table.SelectRows(#"Added Custom", each ([Status] = "Refused"))[Count]),
    #"Removed Other Columns" = Table.SelectColumns(#"Added Custom",{"AddIdx"}),
    Combine = Table.Combine(#"Removed Other Columns"[AddIdx]),
    #"Removed Columns" = Table.RemoveColumns(Combine,{"Status"}),
    #"Pivoted Column" = Table.Pivot(#"Removed Columns", List.Transform({1..MaxComplete}, each "Complete " & Text.From(_)) & List.Transform({1..MaxRefused}, each "Refused " & Text.From(_)), "Idx", "Date")
in
    #"Pivoted Column"