Conditional row deletion based on value in a row

[Craig]

I am trying to create a macro that will delete all rows in a worksheet that
have the value 0 in column B. The macro should only delete rows where the
value equals 0, and not rows where the value contains 0 (for example, 10).

Ideally I'd like to have this in a form that I could edit in the future, so
that if down the road I wanted to change the macro to delete all rows where
column F contained the value "Elephant", I could do so without starting from
scratch.
thank you,
Craig

[Bob Umlas]

Try this (untested)
Sub DeleteThem()
For i=Range("B65536").end(xlup).row to 1 step -1
if cells(i,2).value = 0 then rows(i).Delete
Next
End Sub

Sub DeleteElephantfromF()
For i=Range("F65536").end(xlup).row to 1 step -1
if cells(i,6).value = "Elephant" then rows(i).Delete
Next
End Sub

HTH
Bob Umlas
Excel MVP

"Craig" <[email protected]> wrote in message
news:[email protected]...
> I am trying to create a macro that will delete all rows in a worksheet
that
> have the value 0 in column B. The macro should only delete rows where the
> value equals 0, and not rows where the value contains 0 (for example, 10).
>
> Ideally I'd like to have this in a form that I could edit in the future,
so
> that if down the road I wanted to change the macro to delete all rows
where
> column F contained the value "Elephant", I could do so without starting
from
> scratch.
> thank you,
> Craig

[Chip Pearson]

Craig,

Try code like the following:

Dim LastRow As Long
Dim RowNdx As Long
LastRow = Cells(Rows.Count, "B").End(xlUp).Row
For RowNdx = LastRow To 1 Step -1
If Cells(RowNdx, "B").Value = 0 Then
Rows(RowNdx).Delete
End If
Next RowNdx

--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com




"Craig" <[email protected]> wrote in message
news:[email protected]...
>I am trying to create a macro that will delete all rows in a
>worksheet that
> have the value 0 in column B. The macro should only delete rows
> where the
> value equals 0, and not rows where the value contains 0 (for
> example, 10).
>
> Ideally I'd like to have this in a form that I could edit in
> the future, so
> that if down the road I wanted to change the macro to delete
> all rows where
> column F contained the value "Elephant", I could do so without
> starting from
> scratch.
> thank you,
> Craig

[Dave Peterson]

One way is to apply Data|Filter|Autofilter to that column.

Then filtering to show the cells with the value you want to delete.

Then deleting those visible rows.

Record a macro when you do it and you'll have code you can modify.

Craig wrote:
>
> I am trying to create a macro that will delete all rows in a worksheet that
> have the value 0 in column B. The macro should only delete rows where the
> value equals 0, and not rows where the value contains 0 (for example, 10).
>
> Ideally I'd like to have this in a form that I could edit in the future, so
> that if down the road I wanted to change the macro to delete all rows where
> column F contained the value "Elephant", I could do so without starting from
> scratch.
> thank you,
> Craig

--

Dave Peterson