How can I delete certain rows of my worksheet that has a specific value in a
specific column. For example, delete all rows that have a value of '0' in
column 'C'??

Mike

apply an autofilter to column C, filter on 0, and then just delete the
visible rows.

--
__________________________________
HTH

Bob

"mike" <(E-Mail Removed)> wrote in message
news:34FA01A9-8AA5-477A-8859-(E-Mail Removed)...
> How can I delete certain rows of my worksheet that has a specific value in
> a
> specific column. For example, delete all rows that have a value of '0' in
> column 'C'??
>
> Mike

The following works for one "0". You can build a loop around this and use
FindNext() to locate others.

Option Explicit
Sub find()

Dim c As Range
Set c = Range("C:C").find(What:="0")
Rows(c.Row).Delete

End Sub


"mike" wrote:

> How can I delete certain rows of my worksheet that has a specific value in a
> specific column. For example, delete all rows that have a value of '0' in
> column 'C'??
>
> Mike

PS. I like bob's idea better (just refreshed the page)

"mike" wrote:

> How can I delete certain rows of my worksheet that has a specific value in a
> specific column. For example, delete all rows that have a value of '0' in
> column 'C'??
>
> Mike

That still deleted everything.



"StumpedAgain" wrote:

> PS. I like bob's idea better (just refreshed the page)
>
> "mike" wrote:
>
> > How can I delete certain rows of my worksheet that has a specific value in a
> > specific column. For example, delete all rows that have a value of '0' in
> > column 'C'??
> >
> > Mike

I gues I could just sort and delete, that's even simpler. I don't really need
to preserve thorder.

"StumpedAgain" wrote:

> PS. I like bob's idea better (just refreshed the page)
>
> "mike" wrote:
>
> > How can I delete certain rows of my worksheet that has a specific value in a
> > specific column. For example, delete all rows that have a value of '0' in
> > column 'C'??
> >
> > Mike

This shoudl do the trick.

Sub DeleteRows()

Dim i As Long
Dim LastRow As Long

LastRow = Sheets("Sheet1").Cells(Rows.Count, "C").End(xlUp).Row

For i = LastRow To 1 Step -1
If Range("C" & i) = 0 Then
Range("C" & i).EntireRow.Delete
End If
Next i

End Sub

--
Cheers,
Ryan


"mike" wrote:

> How can I delete certain rows of my worksheet that has a specific value in a
> specific column. For example, delete all rows that have a value of '0' in
> column 'C'??
>
> Mike

Sub DeleteRows_With_Zero()
FindString = "0"
Set b = Range("C:C").Find(what:=FindString, lookat:=xlWhole)
While Not (b Is Nothing)
b.entirerow.Delete
Set b = Range("C:C").Find(what:=FindString, lookat:=xlWhole)
Wend
End Sub


Gord Dibben MS Excel MVP

On Tue, 24 Jun 2008 13:44:00 -0700, mike <(E-Mail Removed)> wrote:

>How can I delete certain rows of my worksheet that has a specific value in a
>specific column. For example, delete all rows that have a value of '0' in
>column 'C'??
>
>Mike