delete blank rows with functions

[daphoenix]

I have blank rows that I want to remove from the worksheet, i use the
following code to do that, but it does not delete the rows in which the cells
of the row have a function. I have a function that returns a value, if it
does not return the value it is blank.

Public Sub DeleteBlankRows()
On Error Resume Next
Columns(2).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
On Error GoTo 0
End Sub


I would like to know if there is a way to delete those rows with the blank
functions?

 

[Ron de Bruin]

Hi daphoenix

You can loop and test for ""
http://www.rondebruin.nl/delete.htm

See the examples below the first macro

You can use

If .Value = "" Then .EntireRow.Delete
'This will delete each row if the cell is empty or have a formula that evaluates to ""

Or use EasyFilter
There is a option in the add-in to filter for "" and delete the rows
http://www.rondebruin.nl/easyfilter.htm