Remove duplicate and Sort

I have this code to remove duplicate but I want the result to be sorted. Can anyone help me to revised this code? Thank you.


Sub RemoveDups(rngDups As Range, Optional rngTarget As Range)
If rngTarget Is Nothing Then
rngDups.RemoveDuplicates Columns:=1, Header:=xlNo
Else
rngDups.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=rngTarget, Unique:=True
End If
End Sub

Sub Test()
Call RemoveDups(ActiveSheet.Range("A1:A100"), ActiveSheet.Range("D1"))
End Sub

Hi Gemini528,

I believe that the macro recording feature will help you out on sorting function, only thing you gonna need to fix in there is the range - I suggest a counta function on certain column to get the proper range - as it seems you can do some coding I believe you´ll handle it, if not just let us know surely one can give you the code here on forum.

best regards

Soul

Thanks Soul for your prompt reply. I am a newbie and no knowledge on VBA. I also got that code on this forum and it works fine for my need. However, i need it sorted out. Please provide the code. Thank you so much for your help.

Thanks APO, It’s working but column “A” has a formula and it has to be converted first to a value before it can be sorted. Also, sorted should start from “D2” (because of the heading) and the macro should be triggered by selecting the sheet. Thank you.

Hi Gemini528,

ah, sorry, thought that the piece you´ve showed us was your work. Well, nvm, I can see Apo is taking care of this one, so I wont steal his credit and let him to finish up this one.

Have a nice day

Best regards

Soul

Hi..

Try this..

Please Login or Register  to view this content.

Thanks APO. It works fine for my needs for now. Kudos to you...

BTW. I just added reputation for you.

Originally Posted by apo

Hi..

Try this..

Please Login or Register  to view this content.

Great.. i am glad you got it working for you..

Hi APO,

Again, I need your help….

I have a data sheet (sheet1) that I put transaction on it and I need macro to query and list all the transaction made on specific DATE and SKU NO. (sheet2). I am using a formula combination of INDEX and SMALL but it is very slow to display and search for 20,000 rows. Also, I have to copy it up to the last cell that meets those criteria. Hope you can come up with a macro to run it faster. Again, Thank you.

SHEET1 (DATA)
B8 – SKU No.
C8 – Transaction date.
D8 – Transaction type
E8 – Transaction Qty
F8 – Location
G8 – Comment

SHEET2 (RESULT)
Variables (Transaction Date AND SKU No.)
A2 – Transaction date (search for transaction date)
A3 – SKU NO. (search for SKU number)

Once found, It will display
A6 – Transaction Type
B6 – Transaction Qty
C6 – Location
D6 – Comment

Hi..

You should start a new thread for this.. as it is not really related to your OP..

One good reason for this is that many people search for answers on this forum and a relevant thread title helps a lot (your current thread title of "Remove Duplicate and Sort" is a classic example..)

For a better chance of more people helping.. attach a Workbook so those helping don't have to spend the time re creating your scenario/layout..

Thanks APO, I will do that. You're really fast in answering queries...