Hey guys,
so far I have this code:
I would need to expand this code that it does not only filter but also transposes the values it catches from Sheet1.
.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheets("Sheet1").Range("A3"), Unique:=True
I would be really glad if someone could help me !
Thank you a lot in advance!
Last edited by jeffreybrown; 12-03-2012 at 01:54 PM. Reason: Please use code tags...Thanks.
only one code line to understand problem ?
If solved remember to mark Thread as solved
You are right
Here the total code:
Const shAll As String = "All Data"
Const shAna As String = "Analysis"
With Sheets(shAll)
With .Range("B7", .Cells(Rows.Count, "b").End(xlUp))
.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheets(shAna).Range("A8"), Unique:=True
End With
End With
End If
How can I expand this code that it does not only copy the certain range with unique values only but it also transposes it starting in Cell C3
Thank you guys
Replace A8 with C3
But at the moment it is creating a vertical list and I would like to have a horizontal list.
attach a sample file with current and desired table
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks