Only Keep Rows if Columns C and D and E are NOT Blank (simultaneously), delete all others

[VBAProIWish]

Hello All,

I have a worksheet and I only want to keep rows that have data in columns C, D and E.

If possible, I would like the search to go down to the last row of data in column A.

Thanks much for any help anyone can provide.

 

[L. Howard]

Try this. Copied to a standard module.

Howard

Option Explicit

Sub a_Bottom_Up_Loop_Example()

    Dim Lastrow As Long
    Dim Lrow As Long
 
        Lastrow = Cells(Rows.Count, "A").End(xlUp).Row

        For Lrow = Lastrow To 1 Step -1
        
            With Range("C" & Lrow & ":E" & Lrow)

                If Not IsError(.Value) Then

                    If Application.WorksheetFunction. _
                       CountA(Range("C" & Lrow & ":E" & Lrow)) _
                       = 0 Then .EntireRow.Delete

                End If

            End With

        Next Lrow
        
End Sub

 

[VBAProIWish]

I was able to modify this to do what I needed.

Thanks much!

Option Explicit

Sub a_Bottom_Up_Loop_Example()

    Dim Lastrow As Long
    Dim Lrow As Long
 
        Lastrow = Cells(Rows.Count, "A").End(xlUp).Row

        For Lrow = Lastrow To 1 Step -1
        
            With Range("C" & Lrow & ":E" & Lrow)

                If Not IsError(.Value) Then

                    If Application.WorksheetFunction. _
                       CountA(Range("C" & Lrow & ":E" & Lrow)) _
                       = 0 Then .EntireRow.Delete

                End If

            End With

        Next Lrow
        
End Sub