• Hi All

    Please note that at the Chandoo.org Forums there is Zero Tolerance to Spam

    Post Spam and you Will Be Deleted as a User

    Hui...

  • When starting a new post, to receive a quicker and more targeted answer, Please include a sample file in the initial post.

Delete Row Based on range of cells

Hi,

File is attached.

I am looking for a quick and easy way to delete all rows that can zero for every cell in column B through column G. For example, I would want to delete rows 9, 27, 31, and 35 easier. There is no financial data there and it would be nice to have shorter data sets over time. Please help! Thanks!
 

Attachments

Belleke

Well-Known Member
Hi,
Try
Code:
Sub belle()
Dim J As Long, i As Long, wf As WorksheetFunction
J = Cells(Rows.Count, "A").End(xlUp).Row
    Set wf = Application.WorksheetFunction
For i = J To 2 Step -1
    If wf.CountIf(Range("B" & i & ":G" & i), 0) = 6 Then
        Range("B" & i).EntireRow.Delete
    End If
Next i
End Sub
 
Top