code to delete "0" values

[thewiseguy]

Hi everyone,

I would like a code that will delete rows (from 14-450) only if they have a "0" value in column c.


Can anyone help?


tia

-m

 

[Jonmo1]

Sub DeleteRows()
For i = 450 To 14 Step -1
    If Cells(i, "C").Value = "0" Then Rows(i).EntireRow.Delete
Next i
End Sub

 

[VoG]

Try

Sub dl()
Dim i As Integer
Application.ScreenUpdating = False
Application.Calculation = xlManual
For i = 450 To 14 Step -1
    If Cells(i, 3).Value = 0 Then Rows(i).Delete
Next i
Application.ScreenUpdating = True
Application.Calculation = xlAutomatic
End Sub

 

[thewiseguy]

Sub DeleteRows()
For i = 450 To 14 Step -1
    If Cells(i, "C").Value = "0" Then Rows(i).EntireRow.Delete
Next i
End Sub

great, thank you!!

 

[Beate Schmitz]

Hello,

<div style="background-color:#FFFFFF; border-width:2px; border-style: groove; border-color:#ff9966; padding:4px;"><nobr><span style="font-family:Courier New,Arial; font-size:9pt ;" ><span style="color:#000080"; >Sub</span> delete_zerorows_in_C()
    <span style="color:#000080"; >With</span> Range(<span style="color:#800000"; >"C14:C450"</span>)
        .Replace 0, True, xlWhole
        .SpecialCells(xlCellTypeConstants, 4).EntireRow.Delete
    <span style="color:#000080"; >End</span> <span style="color:#000080"; >With</span>
<span style="color:#000080"; >End</span> <span style="color:#000080"; >Sub</span>

</span></nobr></div>