Data filtering from Ennumber of data's

[sampath]

Hello,

I have huge data's in sheet 1. Need to filter from huge data and delete the duplicate data's.

Kindly provide the macro for that.

Herewith I have enclosed the sample here.

Regards,
Sampath.S

 

[chirayu]

Sub RemoveDuplicateData()

Dim MyRange As String

Worksheets("Input").Select
Columns("A:A").Select
MyRange = Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row).Address
ActiveSheet.Range(MyRange).RemoveDuplicates Columns:=1, Header:=xlYes

End Sub

 

[sampath]

Hello Chirayu,

Thanks for your given coding,

I have one more requirement for the same excel, I have enclosed this sample excel with this mail.

Here, I need to filtering optioned based on company coding and quantity. Output will be shown in output sheet.

Kindly provide the macro code for the same.

Regards,
Sampath.S

 

[chirayu]

attached

 

[sampath]

Hello,

There is no coding in given attached file.
could you provide the coding for that output.

Regards,
Sampath.S

 

[chirayu]

Modified the code I gave before to work on output sheet. It will copy entire list from input to output then remove duplicates. The formulas are already there in file I last attached so you can just drag them to new range.

Sub RemoveDuplicateData()

Dim MyRange As String

Worksheets("Input").Select
Columns("A:A").Select
Selection.Copy
Worksheets("Output").Select
Columns("A:A").Select
ActiveSheet.Paste
Columns("A:A").Select
MyRange = Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row).Address
ActiveSheet.Range(MyRange).RemoveDuplicates Columns:=1, Header:=xlYes

End Sub