DELETING BLANK ROWS

[Robert Lowe]

Hello,

I there an easy way to delete all rows if a certain colum is blank?
I have 5000 rows and wish to delete all, f colum b is blank.

Thank you

 

[Frank Kabel]

Hi
try the following macro:
Sub delete_rows()
Dim lastrow As Long
Dim row_index As Long
Application.ScreenUpdating = False
lastrow = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
For row_index = lastrow - 1 To 1 Step -1
If Cells(row_index, 2).Value = "" then
rows(row_index).delete
End If
Next
Application.ScreenUpdating = True
End Sub

also have a look at:
http://www.xldynamic.com/source/xld.Deleting.html

 

[Ron de Bruin]

Try this Robert

Sub DeleteBlankRows()
On Error Resume Next 'In case there are no blank rows
Columns("B").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
On Error GoTo 0
End Sub

 

[Robert Lowe]

Thank you both, they work great!

Regards
Robert