delete empty rows

Parra · Apr 5th, 2002, 05:21 PM

I have a macro that deletes empty rows and it works fine, however. I don't think it will delete a cell that has a boarder. Is there any way to delete a empty row even though it has a boarder. I am not a big wiz on macros.

Please help, Thanks

Tom Schreiner · Apr 5th, 2002, 06:16 PM

Post your code. I have no clue why your macro would ignore a cell with a border.
Tom

Drmwvr7266 · Apr 8th, 2002, 11:54 AM

Quote:

On 2002-04-05 16:21, Parra wrote:
I have a macro that deletes empty rows and it works fine, however. I don't think it will delete a cell that has a boarder. Is there any way to delete a empty row even though it has a boarder. I am not a big wiz on macros.

Please help, Thanks

I cannot help you with your code problem. However, I am interested in how you delete those blank rows. We are presently hiding rows in order to make a form work. Deleting them would make it ideal. Any help in this matter greatly appreciated.

Parra · Apr 8th, 2002, 12:27 PM

Below is the code. Someone from this website gave it to me and it works great. I am just having problems integrating it with another macro.

Sub DeleteEmptyRows()
LastRow = ActiveSheet.UsedRange.Row - 1 + _
ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For r = LastRow To 1 Step -1
If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r
End Sub

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Apr 5th, 2002, 05:21 PM	#1
Parra Board Regular Join Date: Feb 2002 Location: Los Angeles, CA Posts: 752	I have a macro that deletes empty rows and it works fine, however. I don't think it will delete a cell that has a boarder. Is there any way to delete a empty row even though it has a boarder. I am not a big wiz on macros. Please help, Thanks

Apr 5th, 2002, 06:16 PM	#2
Tom Schreiner Board Regular Join Date: Mar 2002 Location: Cincinnati, Ohio, USA Posts: 6,824	Post your code. I have no clue why your macro would ignore a cell with a border. Tom

Apr 8th, 2002, 12:27 PM	#4
Parra Board Regular Join Date: Feb 2002 Location: Los Angeles, CA Posts: 752	Below is the code. Someone from this website gave it to me and it works great. I am just having problems integrating it with another macro. Sub DeleteEmptyRows() LastRow = ActiveSheet.UsedRange.Row - 1 + _ ActiveSheet.UsedRange.Rows.Count Application.ScreenUpdating = False For r = LastRow To 1 Step -1 If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete Next r End Sub