Run-time error 1004 when running Advanced Filter for Unique Values in macro

**jacobadger** · 10-16-2012, 11:34 AM

I have recorded a series of macros that involve using the Advanced Filter to filter columns for unique values. The macros have worked perfectly in Excel 2003, but when I try to use them in Excel 2007 or 2010 I'm receiving the following error message: "Run-time error '1004': AdvancedFilter method of Range class failed". The funny thing is, the macro will run but stall once it reaches the AdvancedFilter code (which is the last line of code). If I hit ESC to stop the macro, Excel shows a filtered list as if the macro had run correctly, but returns the error above. I've let the macro run for 20 minutes to see if it's a time issue and it will continue to stall on the AdvancedFilter code indefinitely. Note, in order to go from running the macros in 2003 to 2007/2010 I've changed all references of 65,536 rows to 1,048,576 rows within the code. Here's the code for one of the macros where this is occurring:

    Columns("C:C").Select
    Selection.Insert Shift:=xlToRight
    Columns("C:C").Select
    Selection.Insert Shift:=xlToRight
    Range("B2").Select
    Sheets("MASTER").Select
    Columns("B:B").Select
    Selection.Copy
    Sheets("Firm Func.").Select
    Columns("C:C").Select
    ActiveSheet.Paste
    Sheets("MASTER").Select
    Columns("I:I").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Firm Func.").Select
    Columns("D:D").Select
    ActiveSheet.Paste
    Range("B2").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=IF(RC[2]>"""",RC[2],RC[1])"
    Range("B2").Select
    Selection.Copy
    Range("B3").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveSheet.Paste
    Columns("B:B").Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Columns("C:C").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlToLeft
    Columns("C:C").Select
    Selection.Delete Shift:=xlToLeft
    Columns("B:B").AdvancedFilter Action:=xlFilterInPlace, Unique:=True

Is there some change that needs to be made in order for this to work in Excel 2007/2010?

**Norie** · 10-16-2012, 11:37 AM

The problem could be because you are filtering an entire column.

Can't you set the range to filter to only cover the data in that column?

**jacobadger** · 10-16-2012, 11:46 AM

I have tried that and specifying a specific range (ex. B2:B250000), both return the same situation as described above: they stall indefinitely on that last line of code, but if I hit ESC Excel shows a filtered list and the 1004 Run-time error.

**Norie** · 10-16-2012, 11:52 AM

Does your data extend down to row 250000?

Does this work?

' replace Sheet1 with your sheet name
Intersect(Worksheets("Sheet1").UsedRange, Worksheets("Sheet1").Columns("C:C")).AdvancedFilter Action:=xlFilterInPlace, Unique:=True

**jacobadger** · 10-16-2012, 02:09 PM

Yes, it works. Thanks a million!

**Cutter** · 10-17-2012, 02:17 PM

@ jacobadger

Welcome to the forum.

Based on your last post it seems that you are satisfied with the solution(s) you've received but you haven't marked your thread as SOLVED. I'll do that for you now but please keep in mind for your future threads that Rule #9 requires you to do that yourself. If your problem has not been solved you can use Thread Tools (located above your first post) and choose "Mark this thread as unsolved".
Thanks.

Also, as a new member of the forum, you may not be aware that you can thank those who have helped you by clicking the small star icon located in the lower left corner of the post in which the help was given. By doing so you can add to the reputation(s) of those who helped.