I need to convert row data to column accordingly date wise. I have attached work book for reference and easy understand.
In Column A is date and it will go no of rows .
In Column K Is Name and it will go accordingly date.
In Column AK Data will transfer to row basis accordingly to name Vs date.
I have made code below to avoid duplicate names only .so kindly add for changes in result sheet Accordingly to transfer .
I hope this clear.if any one will help me it will more useful for me.
Thanks in Advance.
Dim lastrow As Long Application.ScreenUpdating = False 'code name for master sheet With Sheets("sheet2") '// determine the last data row using column-E Company Name lastrow = .Cells(Rows.Count, "K").End(xlUp).Row '// turn of any existing filter .AutoFilterMode = False '// clear the paste range to receive unique list of company names in subsequent filter action .Range("B2").EntireColumn.ClearContents .Range("K3:k" & lastrow).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheets("Result").Range("K3"), Unique:=True .AutoFilterMode = False End With Application.ScreenUpdating = True