Hi,
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.
Code
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
Display More