Delete rows on Cell

  • Thread starter Thread starter wal50
  • Start date Start date
W

wal50

this group led me to C. Pearson's site and this most helpful macro:

Public Sub DeleteRowOnBlankCell()

On Error Resume Next
Selection.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
ActiveSheet.UsedRange

End Sub

How can I modify this to delete on Cell = 0?
I looked at other postings and they are all limited to specific columns. I
would like to have a general solution so that whichever column is selected is
used.
Thanks in advance,
wal50
 
Sub zero_killer()
Set killrow = Nothing
For Each rr In Selection
If IsEmpty(rr) Then
Else
If rr.Value = 0 Then
If killrow Is Nothing Then
Set killrow = rr
Else
Set killrow = Union(killrow, rr)
End If
End If
End If
Next

If killrow Is Nothing Then
Else
killrow.EntireRow.Delete
End If
End Sub
 
Public Sub DeleteRowOnCell()
Dim coltocheck As Range
Set coltocheck = Application.InputBox(prompt:= _
"Select A Column", Type:=8)
With coltocheck
Do
Set c = .Find(0, LookIn:=xlValues, LookAt:=xlWhole, _
MatchCase:=False)
If c Is Nothing Then Exit Do
c.EntireRow.Delete
Loop
End With
End Sub


Gord Dibben MS Excel MVP
 
Back
Top