| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
runtime 1004 error on deleting rows with blank cells
Hi
I get a runtime 1004 application or object defined error when I run this. I want to delete the rows with blanks in column "M". TIA -------------code--------- Public Sub deleteRows() Dim rngToDelete As Range With ActiveSheet On Error Resume Next Set rngToDelete = .Range(.Range("M1"), .Cells(Rows.Count, "M").End(xlUp)).SpecialCells(xlCellTypeBlanks) On Error GoTo 0 End With If Not rngToDelete Is Nothing Then rngToDelete.EntireRow.Delete End Sub |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
runtime 1004 error on deleting rows with blank cells
Janis,
I gave you the code in your previous post, Sub deleteit() Set myRange = Range("M1", Range("M65536").End(xlUp)) myRange.SpecialCells(xlCellTypeBlanks).EntireRow.D elete End Sub Right click the sheet tab, view code and paste it in. Mike "Janis" wrote: Hi I get a runtime 1004 application or object defined error when I run this. I want to delete the rows with blanks in column "M". TIA -------------code--------- Public Sub deleteRows() Dim rngToDelete As Range With ActiveSheet On Error Resume Next Set rngToDelete = .Range(.Range("M1"), .Cells(Rows.Count, "M").End(xlUp)).SpecialCells(xlCellTypeBlanks) On Error GoTo 0 End With If Not rngToDelete Is Nothing Then rngToDelete.EntireRow.Delete End Sub |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
runtime 1004 error on deleting rows with blank cells
Hi Mike
I will use yours, thanks, I used the other one because I thought it might need the error checking. jr. "Mike H" wrote: Janis, I gave you the code in your previous post, Sub deleteit() Set myRange = Range("M1", Range("M65536").End(xlUp)) myRange.SpecialCells(xlCellTypeBlanks).EntireRow.D elete End Sub Right click the sheet tab, view code and paste it in. Mike "Janis" wrote: Hi I get a runtime 1004 application or object defined error when I run this. I want to delete the rows with blanks in column "M". TIA -------------code--------- Public Sub deleteRows() Dim rngToDelete As Range With ActiveSheet On Error Resume Next Set rngToDelete = .Range(.Range("M1"), .Cells(Rows.Count, "M").End(xlUp)).SpecialCells(xlCellTypeBlanks) On Error GoTo 0 End With If Not rngToDelete Is Nothing Then rngToDelete.EntireRow.Delete End Sub |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
runtime 1004 error on deleting rows with blank cells
Maybe it doesn't need error checking since it only removes the blank cells
and if there is none it won't delete anything. thanks, "Mike H" wrote: Janis, I gave you the code in your previous post, Sub deleteit() Set myRange = Range("M1", Range("M65536").End(xlUp)) myRange.SpecialCells(xlCellTypeBlanks).EntireRow.D elete End Sub Right click the sheet tab, view code and paste it in. Mike "Janis" wrote: Hi I get a runtime 1004 application or object defined error when I run this. I want to delete the rows with blanks in column "M". TIA -------------code--------- Public Sub deleteRows() Dim rngToDelete As Range With ActiveSheet On Error Resume Next Set rngToDelete = .Range(.Range("M1"), .Cells(Rows.Count, "M").End(xlUp)).SpecialCells(xlCellTypeBlanks) On Error GoTo 0 End With If Not rngToDelete Is Nothing Then rngToDelete.EntireRow.Delete End Sub |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
runtime 1004 error on deleting rows with blank cells
My thoughts exactly
"Janis" wrote: Maybe it doesn't need error checking since it only removes the blank cells and if there is none it won't delete anything. thanks, "Mike H" wrote: Janis, I gave you the code in your previous post, Sub deleteit() Set myRange = Range("M1", Range("M65536").End(xlUp)) myRange.SpecialCells(xlCellTypeBlanks).EntireRow.D elete End Sub Right click the sheet tab, view code and paste it in. Mike "Janis" wrote: Hi I get a runtime 1004 application or object defined error when I run this. I want to delete the rows with blanks in column "M". TIA -------------code--------- Public Sub deleteRows() Dim rngToDelete As Range With ActiveSheet On Error Resume Next Set rngToDelete = .Range(.Range("M1"), .Cells(Rows.Count, "M").End(xlUp)).SpecialCells(xlCellTypeBlanks) On Error GoTo 0 End With If Not rngToDelete Is Nothing Then rngToDelete.EntireRow.Delete End Sub |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
runtime 1004 error on deleting rows with blank cells
Mike:
I got an erorr 400 while running this code: Option Explicit Public Sub deleteRows() Dim rngToDelete As Range Set rngToDelete = Range("M1", Range("M65536").End(xlUp)) rngToDelete.SpecialCells(xlCellTypeBlanks).EntireR ow.Delete End Sub "Mike H" wrote: Janis, I gave you the code in your previous post, Sub deleteit() Set myRange = Range("M1", Range("M65536").End(xlUp)) myRange.SpecialCells(xlCellTypeBlanks).EntireRow.D elete End Sub Right click the sheet tab, view code and paste it in. Mike "Janis" wrote: Hi I get a runtime 1004 application or object defined error when I run this. I want to delete the rows with blanks in column "M". TIA -------------code--------- Public Sub deleteRows() Dim rngToDelete As Range With ActiveSheet On Error Resume Next Set rngToDelete = .Range(.Range("M1"), .Cells(Rows.Count, "M").End(xlUp)).SpecialCells(xlCellTypeBlanks) On Error GoTo 0 End With If Not rngToDelete Is Nothing Then rngToDelete.EntireRow.Delete End Sub |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| runtime error '1004' application or object defined error | Excel Programming | |||
| unable to protect cells in macro sheet b/c runtime error 1004 | Excel Worksheet Functions | |||
| Hiding Rows Error - "Runtime Error 1004 - Unable to set the hidden property of the range class" | Excel Programming | |||
| Runtime Error 1004??? | Excel Programming | |||
| Excel 2003 Macro Error - Runtime error 1004 | Excel Discussion (Misc queries) | |||
Linear Mode
