I'm looking for a macro/VB code that will evaluate a cell
and if it meets the criteria, will delete the row.

For example, if cell c5=0, then delete that row.

Can anyone help?

Dave here is one way,

Sub Delete_0()

' This macro deletes all rows on the active worksheet
' in column C where the valve is 0
Dim iRow As Long
Dim SpecValue As String

SpecValue = 0

If SpecValue = "" Then Exit Sub

For iRow = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
If Cells(iRow, 3) = SpecValue Then Rows(iRow).Delete
Next iRow

End Sub


--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2000 & 2003
** remove news from my email address to reply by email **
"Dave" wrote in message
...
I'm looking for a macro/VB code that will evaluate a cell
and if it meets the criteria, will delete the row.

For example, if cell c5=0, then delete that row.

Can anyone help?

Hi Dave,

Try:

Sub Tester()
Dim rng As Range
Set rng = Range("C5")
If rng.Value = 0 Then rng.EntireRow.Delete
End Sub


---
Regards,
Norman



"Dave" wrote in message
...
I'm looking for a macro/VB code that will evaluate a cell
and if it meets the criteria, will delete the row.

For example, if cell c5=0, then delete that row.

Can anyone help?

Here is one way

Sub RowZapper()
If Sheet1.Range("c5") = 0 Then
Sheet1.Range("c5").EntireRow.Delete
End If
End Sub

Christy;)

"Dave" wrote:

I'm looking for a macro/VB code that will evaluate a cell
and if it meets the criteria, will delete the row.

For example, if cell c5=0, then delete that row.

Can anyone help?

HI

Write code to iterrate through column C or per examle set C5 as activecell
then the following code will do the job


If ActiveCell.Value = "0" Then Selection.EntireRow.Delete

There are other varients of this code

Best N10


"Dave" wrote in message
...
I'm looking for a macro/VB code that will evaluate a cell
and if it meets the criteria, will delete the row.

For example, if cell c5=0, then delete that row.

Can anyone help?


---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.771 / Virus Database: 518 - Release Date: 28/09/2004