Code to get unique values

[kishorkhanal]

I want unique values from DailyJobs worksheet cells B4:B2199 to FixErrors worksheet cells B4:B2199. Please suggest a better option or correct the following code.

Sub CopyUniques()
Worksheets("DailyJobs").Columns("B").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Worksheets("FixErrors").Range("B4"), Unique:=True
End Sub

 

[Norie]

What's wrong with the current code?

It looks fine to me.

 

[Lewiy]

Try this:<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>

<o:p></o:p>

Sub CopyUniques()<o:p></o:p>
Dim Limit As Long, c As Long, i As Long<o:p></o:p>
Dim Jobs As Worksheet, iErrors As Worksheet<o:p></o:p>
Set Jobs = Sheets("DailyJobs")<o:p></o:p>
Set iErrors = Sheets("FixErrors")<o:p></o:p>
Limit = Jobs.Cells(Rows.Count, 2).End(xlUp).Row<o:p></o:p>
i = 1<o:p></o:p>
For c = Limit To 1 Step -1<o:p></o:p>
    If WorksheetFunction.CountIf(Jobs.Columns(2), Jobs.Cells(c, 2)) = 1 Then<o:p></o:p>
        Jobs.Rows(c).Copy Destination:=iErrors.Rows(i)<o:p></o:p>
        i = i + 1<o:p></o:p>
    End If<o:p></o:p>
Next c<o:p></o:p>
End Sub<o:p></o:p>

<o></o>

 

[cornflakegirl]

This thread appears to be a duplicate http://www.mrexcel.com/forum/showthread.php?t=329736

 

[kishorkhanal]

What's wrong with the current code?

It looks fine to me.

It does not work.

 

[kishorkhanal]

This thread appears to be a duplicate http://www.mrexcel.com/forum/showthread.php?t=329736

I did not get the solution for my question in my previous thread, so I created a new thread again. Can I not do this? Let me know.

 

[kishorkhanal]

Try this:<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>

<o:p></o:p>

Sub CopyUniques()<o:p></o:p>
Dim Limit As Long, c As Long, i As Long<o:p></o:p>
Dim Jobs As Worksheet, iErrors As Worksheet<o:p></o:p>
Set Jobs = Sheets("DailyJobs")<o:p></o:p>
Set iErrors = Sheets("FixErrors")<o:p></o:p>
Limit = Jobs.Cells(Rows.Count, 2).End(xlUp).Row<o:p></o:p>
i = 1<o:p></o:p>
For c = Limit To 1 Step -1<o:p></o:p>
    If WorksheetFunction.CountIf(Jobs.Columns(2), Jobs.Cells(c, 2)) = 1 Then<o:p></o:p>
        Jobs.Rows(c).Copy Destination:=iErrors.Rows(i)<o:p></o:p>
        i = i + 1<o:p></o:p>
    End If<o:p></o:p>
Next c<o:p></o:p>
End Sub<o:p></o:p>

<o></o>

When I run this code, my excel file freezes. Any suggestions please?