| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| delete duplicate rows, keep one | Excel Discussion (Misc queries) | |||
| Delete Duplicate Rows Macro Question | Excel Discussion (Misc queries) | |||
| Macro to copy duplicate rows (not delete) | Excel Programming | |||
| Macro to delete duplicate/triplicate rows | Excel Programming | |||
| Macro to delete duplicate/triplicate rows | Excel Programming | |||
Linear Mode
