Hi,
I have an excel with 4 columns with well formatted data table
A                     B                 C                  D
Nov 22,2015    Project-A      22 Days        4

I created a smaple excel- any suggestion to make it more presentable way :macro or powerpoint
Sample Excel here

Thanks

• Edited by mafab 20 hours 11 minutes ago

Add a header above the data, then use a Pivot table.

Execute the macro below in your sample file.

Andreas.

Sub Test()
  Range("A1").EntireRow.Insert
  Range("A1") = "Date"
  Range("B1") = "Name"
  Range("C1") = "Days"
  Range("D1") = "Remain"
  ActiveSheet.ListObjects.Add(xlSrcRange, Range("A1").CurrentRegion, , xlYes).Name = "MyTable"
  Range("MyTable[Days]").Replace What:=" Days", Replacement:=""
  ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:="MyTable").CreatePivotTable _
    TableDestination:=Range("A25").Address(ReferenceStyle:=xlR1C1), TableName:="MyPivot"
  With ActiveSheet.PivotTables("MyPivot")
    With .PivotFields("Name")
      .Orientation = xlColumnField
      .Position = 1
    End With
    .AddDataField .PivotFields("Days"), "Sum of Days", xlSum
    .AddDataField .PivotFields("Remain"), "Sum of Remain", xlSum
    With .DataPivotField
      .Orientation = xlRowField
      .Position = 1
    End With
    With .PivotFields("Date")
      .Orientation = xlPageField
      .Position = 1
    End With
  End With
End Sub

Re:  "...to make it more presentable..."

On the "My Required Display" sheet, I would reduce the number of colors used to 2  (from ~11)
A single color for headings and another color for the significant item in each column.

'---
Jim Cone
Portland, Oregon USA
free & commercial excel programs  (n/a xl2013)
https://jumpshare.com/b/O5FC6LaBQ6U3UPXjOmX2
-or-
http://jmp.sh/K95N3ee

• Edited by James Cone 6 hours 36 minutes ago