DELETE ROWS BASED ON BLANK CELLS IN COL "A"

[Eddie G.]

I am trying to use some existing code to do this but I am having no luck. I need a macro that will search all of column A and delete rows if the cells in COL A are blank. thanks....

 

[julia55]

Re: DELETE ROWS BASED ON BLANK CELLS IN COL "A"

This is fairly quick:

Sub deltime2()
[a:a].SpecialCells(xlCellTypeBlanks).EntireRow.delete
End Sub

Hope this helps.

I tried using this code for multiple sheets and it doesn't work. I got it to run on just one sheet, but it won't work on multiple sheets. Any suggestions?

Code:
Sheets("IMPORTANT").Select
Call deltime2
Sheets("Overview").Select
Call deltime2

 

[SaladProblems]

Re: DELETE ROWS BASED ON BLANK CELLS IN COL "A"

I think you need .activate instead of .select

Sheets("IMPORTANT").Activate
deltime2
Sheets("Overview").Activate
deltime2

That being said, do you want to do this on every sheet? You could make it loop through every sheet and perform the action without ever having to select/activate a range.

 

[julia55]

Re: DELETE ROWS BASED ON BLANK CELLS IN COL "A"

I would like to do it on every sheet. Not sure how to loop through sheets though. Still learning vba.

 

[SaladProblems]

Re: DELETE ROWS BASED ON BLANK CELLS IN COL "A"

Sub Clean()

Dim WS As Worksheet

For Each WS In ActiveWorkbook.Worksheets
        
    WS.Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    On Error Resume Next
    
    Next

End Sub

See if this works. Be sure to save your data first, just in case.