Delete Row If Column A=""

[Xirrus1983]

I need a macro that will delete an entire row if column A="" from a formula.

It needs to start at A15 down. Thank you if anyone can assist me.

 

[VaraK]

Try this:

Sub delrows()
Dim l As Long

l = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row

For l = l To 15 Step -1
If Sheets("Sheet1").Cells(l, 1) = "" Then
Cells(l, 1).EntireRow.Delete
End If
Next l
End Sub

 

[Xirrus1983]

How do I apply this to multiple sheets?

 

[VaraK]

Hi

This applies to all the sheets in your current workbook. Checks if any row in column A is blank from A15 and deletes the entire row. It performs for all the sheets in your workbook.

Sub delrows()
Dim l As Long
Dim i As Integer
i = ThisWorkbook.Worksheets.Count
For i = 1 To i
l = Sheets(i).Range("A" & Rows.Count).End(xlUp).Row
    For l = l To 15 Step -1
    If Sheets(i).Cells(l, 1) = "" Then
    Sheets(i).Cells(l, 1).EntireRow.Delete
    End If
    Next l
Next i
End Sub

Hope this helps.