Simple - Del empties

[LiAD]

Hi,

I would like a code to delete empty rows based on column E (row 4 of the
table).

Using the recorded I apply a filter, use the filter to show the blank cells
from col E. At this point I dont know how to ask VB to select the first row
in table - it could be any row from 1 to 66500 depending on the contents.

How I get it to select the first empty row rather than having to ask it to
select a certain row as in the code below? Once selected I want to delete
all rows from there to the end.

Thanks

Sub DELROWS()
'
Rows("2:2").Select
Selection.AutoFilter
Selection.AutoFilter Field:=4, Criteria1:="="
Rows("9:9").Select
Range("B9").Activate
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.delete Shift:=xlUp
Selection.AutoFilter Field:=4
Rows("2:2").Select
Selection.AutoFilter
Range("B1").Select
End Sub

 

[Patrick Molloy]

for rw = range("E65000").Exd(xlup).Row to 4 step -1
if cells(rw,"E")="" then
rows(rw),delete
end if
next

 

[Rick Rothstein]

Does this line of code do what you want?

Range("E4:E" & Rows.Count).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

 

[LiAD]

Perfect and simple.

Thanks

Does this line of code do what you want?

Range("E4:E" & Rows.Count).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

 

[Patrick Molloy]

nice Rick - I should have thought of that!

Does this line of code do what you want?

Range("E4:E" & Rows.Count).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

 

[Patrick Molloy]

change
if cells(rw,"E")="" then
to
if cells(rw,"E").Interior.Colorindex = ???? then

to delete rows where cells are shaded ???

??? is a LONG number