Delete row based on cell value present in same row and different colums

[reachmanoj27]

Hi everyone,

i need delete the row based on cell value which is in multiple columns, criteria is delete the row if the value is Zero in all the columns from A to L.

thank you

 

[JLGWhiz]

Sub deleteZero()
Dim lr As Long, i As Long, num As Boolean
With ActiveSheet
    lr = .Cells.Find("*", , xlFormulas, xlPart, xlByRows, xlPrevious).Row
    For i = lr To 2 Step -1
        For j = 1 To 12
            num = True
            If Not IsNumeric(.Cells(i, j).Value) Then
                num = False
                Exit For
            End If
        Next
        If num = True And Application.Sum(.Cells(i, 1).Resize(1, 12)) = 0 Then Rows(i).Delete
    Next
End With
End Sub

 

[Mick Peters]

Hi reahman0j27,
I am no expert but have put together some VBA using help from many others. I usually manage to adapt what I see. so here is something I have adapted that may help, This will clear a row if there is a 0 in any of the columns A through L unless there is another number. EG if there is a 0 in cell A5 and nothing else in any of row 5 as far across as L then the row will be deleted as the total is 0 if there is a 0 in A6 but B6 contains a 1 then that row will not get deleted. However if all rows are blank then the row also will not be deleted.

Sub Clear_Rows()
'Sub ClearRows()
 Dim cell As Range
 For Each cell In Range("A:L")
If UCase(cell.Value) = 0 Then
cell.EntireRow.Delete
 End If
 Next
 End Sub

I hope this helps
Mick.