Delete empty rows with cell type 2

Giganews Newsgroups
Subject: Delete empty rows with cell type 2
Posted by:  FrankNL (FrankNL.27871a_1146649801.8393@excelforum-nospam.com)
Date: Wed, 3 May 2006

I'm using the following macro to copy the columns A:R to a new sheet. In
this new sheet the empty rows are deleted. These rows are determined by
any empty cells in column E.

Sub copypaste()

Columns("A:R").Select
Selection.Copy
Sheets("RowsDeleted").Select
Range("A1").Select
ActiveSheet.Paste

Columns("E:E").Select

On Error Resume Next
Selection.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
ActiveSheet.UsedRange

End Sub

The problem I'm having is that it only deletes the rows where the cell
in column E is a number (cell type 1), but I want it to also remove the
empty cells with cell type 2 (text).

I tried to use other columns but the have the same problem.

Does anybody have a solution?

thanks

--
FrankNL
------------------------------------------------------------------------
FrankNL's Profile:http://www.excelforum.com/member.php?action=getinfo&userid=34074
View this thread:http://www.excelforum.com/showthread.php?threadid=538376

Replies