delete rows with null values in "M" column
janis,
the code you have is a complicated way of doing what you want but basically
it searches your rand for Null (empty) cells and buils then into a new range
called
rngtodelete
At the end it deletes the lot in one hit
Much simpler
Sub deleteit()
Set myRange = Range("M1", Range("M65536").End(xlUp))
myRange.SpecialCells(xlCellTypeBlanks).EntireRow.D elete
End Sub
Mike
"Janis" wrote:
I'm trying to delete the rows where the cell "M" has a null or blank value.
I borrowed this script and it compiles. The question I have is what is the
test
if range to delete
Is NOthing
then....
mean. Does that stand for null??
Also what is the union of the rng to delete?
Do I just do
if IsNull(rng)
set rng to delete = rng
I realize they are trying to be careful but I don't quite understand what is
going on.
thanks
---------------code---------------------------
Sub deleteRows()
Dim Rng As Range
Dim rngToSearch As Range
Dim rngToDelete As Range
With ActiveSheet
Set rngToSearch = .Range(.Range("M1"), .Cells(Rows.Count, "M").End(xlUp))
End With
For Each Rng In rngToSearch
If IsNull(Rng) Then
If rngToDelete Is Nothing Then
Set rngToDelete = Rng
Else
Set rngToDelete = Union(rngToDelete, Rng)
End If
End If
Next Rng
If Not rngToDelete Is Nothing Then rngToDelete.EntireRow.Delete
|