I'm trying to create an if statement that will delete entire rows where the
value in Column N is less than .01 or efectively zero for my purposes. The
little bit i've figured out will delete the row but only if the whole row is
blank. If any one can help me all the better.
Thank you,
Karl

======================
Option Explicit

Sub step_backwards()


Dim myLastRow As Long
Dim r As Long
Dim c As Range


myLastRow = ActiveSheet.Cells(10000, 1).End(xlUp).Row


For r = myLastRow To 1 Step -1
Set c = ActiveSheet.Range("a" & r)
If c.Value = "" Then
c.EntireRow.Delete
End If
Next r


End Sub
=========================
it looks for blanks in column A. change that if you need to.
hope it helps

susan




On Jul 21, 10:05*am, KWhamill <KWham...@discussions.microsoft.com>
wrote:
> I'm trying to create an if statement that will delete entire rows where the
> value in Column N is less than .01 or efectively zero for my purposes. The
> little bit i've figured out will delete the row but only if the whole rowis
> blank. If any one can help me all the better.
> Thank you,
> Karl

ALWAYS post your efforts for comments

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(E-Mail Removed)
"KWhamill" <(E-Mail Removed)> wrote in message
news:93699F6D-962F-46EA-AB30-(E-Mail Removed)...
> I'm trying to create an if statement that will delete entire rows where
> the
> value in Column N is less than .01 or efectively zero for my purposes. The
> little bit i've figured out will delete the row but only if the whole row
> is
> blank. If any one can help me all the better.
> Thank you,
> Karl

Thank you that was great Now i see what i was doing wrong.
R,
Karl

"Susan" wrote:

> ======================
> Option Explicit
>
> Sub step_backwards()
>
>
> Dim myLastRow As Long
> Dim r As Long
> Dim c As Range
>
>
> myLastRow = ActiveSheet.Cells(10000, 1).End(xlUp).Row
>
>
> For r = myLastRow To 1 Step -1
> Set c = ActiveSheet.Range("a" & r)
> If c.Value = "" Then
> c.EntireRow.Delete
> End If
> Next r
>
>
> End Sub
> =========================
> it looks for blanks in column A. change that if you need to.
> hope it helps
>
> susan
>
>
>
>
> On Jul 21, 10:05 am, KWhamill <KWham...@discussions.microsoft.com>
> wrote:
> > I'm trying to create an if statement that will delete entire rows where the
> > value in Column N is less than .01 or efectively zero for my purposes. The
> > little bit i've figured out will delete the row but only if the whole row is
> > blank. If any one can help me all the better.
> > Thank you,
> > Karl
>
>