I have a list of names in a worksheet and I want to create a unique name list from this list on another sheet. I'm using the following code but it doesn't quite work. Any help please?
Option Explicit
Sub CreateUniqueList()
Dim lastrow As Long
lastrow = Cells(Rows.Count, "B").End(xlUp).Row
Worksheets("Weekly Archives").Range("B2:B" & lastrow).AdvancedFilter _
Action:=xlFilterCopy, _
CopyToRange:=ActiveSheet.Range("H2"), _
Unique:=True
End Sub
I should have added that it's huge list and I think code will be faster than a formula.
Try this code
Please Login or Register to view this content.
< ----- Please click the little star * next to add reputation if my post helps you
Visit Forum : From Here
Thank you Yasser that did the trick.
To speed up things a bit.
Please Login or Register to view this content.
Avoid using Select, Selection and Activate in your code. Use With ... End With instead.
You can show your appreciation for those that have helped you by clicking the * at the bottom left of any of their posts.
You're welcome. Glad I can offer some helpOriginally Posted by myobreportguru
Thank you very much for Mr. Bakerman for his great and awesome solution
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks