Excel - Conditional deletion of rows

August 2017



Issue


I have a spreadsheet where column A is a project name then columns B, C and D are financial data for the specific project. What I would like to do is delete the entire row for the project only if columns B, C and D contain zero's. I can set up a filter and filter out zero's for 1 specific column, but in many of the rows only 1 or 2 of the 3 columns are zero's so that does not work.

Solution


Try with this macro (assuming that the first row contained the titles).

Public Sub DELETE_Rows_CellZero_Col_B_C_D()  
Dim x As Long  
Dim y As Long  
x = Range("C65536").End(xlUp).Row  

For y = x To 2 Step -1  

    If Cells(y, 2).Value = 0 And Cells(y, 3).Value = 0 And Cells(y, 4).Value = 0 Then  
      
        Rows(y).Delete  
      
    End If  

Next y  
End Sub

Related


Published by aakai1056. Latest update on October 6, 2012 at 05:15 AM by jak58.
This document, titled "Excel - Conditional deletion of rows," is available under the Creative Commons license. Any copy, reuse, or modification of the content should be sufficiently credited to CCM (ccm.net).