macro to delete duplicate rows using Filter
 

I am trying to create a macro to delete the duplicate rows in a sheet using
the Filter Unique Records Function. The following is the macro I have tried.
I keep getting an error at "ActiveSheet.Paste".

The duplicate data will not always be in side-by-side rows, and I cannot
sort the data without loosing the original order of the data.

Cells.Select
Application.CutCopyMode = False
ActiveSheet.ShowAllData
Selection.ClearContents
ActiveSheet.Paste
Application.CommandBars("Task Pane").Visible = False
Range("A1").Select


I would really appreciate any suggestions.

Thanks,

Lost In Alabama

macro to delete duplicate rows using Filter
 

Yo get an aeeror on ActiveSheet.Paste because there is nothing to Paste!

HTH
--
AP

"Lost in Alabama" a écrit dans le
message de ...
I am trying to create a macro to delete the duplicate rows in a sheet
using
the Filter Unique Records Function. The following is the macro I have
tried.
I keep getting an error at "ActiveSheet.Paste".

The duplicate data will not always be in side-by-side rows, and I cannot
sort the data without loosing the original order of the data.

Cells.Select
Application.CutCopyMode = False
ActiveSheet.ShowAllData
Selection.ClearContents
ActiveSheet.Paste
Application.CommandBars("Task Pane").Visible = False
Range("A1").Select


I would really appreciate any suggestions.

Thanks,

Lost In Alabama

macro to delete duplicate rows using Filter
 

So how do I select the copied sheet in the Clipboard...I have tried this, but
still get an error:

Cells.Select
Application.CutCopyMode = False
ActiveSheet.ShowAllData
Selection.ClearContents
Application.CommandBars("Task Pane").Visible = True
ActiveSheet.Paste
Application.CommandBars("Task Pane").Visible = False
Range("A1").Select

"Ardus Petus" wrote:

Yo get an aeeror on ActiveSheet.Paste because there is nothing to Paste!

HTH
--
AP

"Lost in Alabama" a écrit dans le
message de ...
I am trying to create a macro to delete the duplicate rows in a sheet
using
the Filter Unique Records Function. The following is the macro I have
tried.
I keep getting an error at "ActiveSheet.Paste".

The duplicate data will not always be in side-by-side rows, and I cannot
sort the data without loosing the original order of the data.

Cells.Select
Application.CutCopyMode = False
ActiveSheet.ShowAllData
Selection.ClearContents
ActiveSheet.Paste
Application.CommandBars("Task Pane").Visible = False
Range("A1").Select


I would really appreciate any suggestions.

Thanks,

Lost In Alabama