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

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

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

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

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

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