Delete a row if blank cell

Hi,

I would like to delete a row if the a cell in a column is blank. For e.g. if
a cell in column E is blank I would like to delete the whole row. I would
like to do this in VBA code

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...l-new/200604/1

Here's one I got from the group some time ago.....sorry, don't remember who
or when..........

Public Sub DeleteBlanks()
With ActiveSheet
.Range(.Cells(1, ActiveCell.Column), _
.Cells(65536, ActiveCell.Column)).Select
End With
Selection.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
ActiveSheet.UsedRange
ActiveCell.Select
End Sub

Vaya con Dios,
Chuck, CABGx3



"mohd21uk via OfficeKB.com" wrote:

> Hi,
>
> I would like to delete a row if the a cell in a column is blank. For e.g. if
> a cell in column E is blank I would like to delete the whole row. I would
> like to do this in VBA code
>
> --
> Message posted via OfficeKB.com
> http://www.officekb.com/Uwe/Forums.a...l-new/200604/1
>

or

Sub DeleteBlankRowsInActiveColumn()
ac = ActiveCell.Column
lr = Cells(Rows.Count, ActiveCell.Column).End(xlUp).Row
Range(Cells(1, ac), Cells(lr, ac)). _
SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

--
Don Guillett
SalesAid Software
[email protected]
"mohd21uk via OfficeKB.com" <u20517@uwe> wrote in message
news:5eb7b0aab4723@uwe...
> Hi,
>
> I would like to delete a row if the a cell in a column is blank. For e.g.
> if
> a cell in column E is blank I would like to delete the whole row. I would
> like to do this in VBA code
>
> --
> Message posted via OfficeKB.com
> http://www.officekb.com/Uwe/Forums.a...l-new/200604/1

or

Sub DeleteBlankRowsInActiveColumn()
ac = ActiveCell.Column
lr = Cells(Rows.Count, ActiveCell.Column).End(xlUp).Row
Range(Cells(1, ac), Cells(lr, ac)). _
SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

--
Don Guillett
SalesAid Software
[email protected]
"mohd21uk via OfficeKB.com" <u20517@uwe> wrote in message
news:5eb7b0aab4723@uwe...
> Hi,
>
> I would like to delete a row if the a cell in a column is blank. For e.g.
> if
> a cell in column E is blank I would like to delete the whole row. I would
> like to do this in VBA code
>
> --
> Message posted via OfficeKB.com
> http://www.officekb.com/Uwe/Forums.a...l-new/200604/1