| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Is there a easy way to delete blank lines to clean up worksheets?
I have a workbook that break down a list of accounts based on differ factors
& then puts them onto different worksheets. After it does this is leaves blank lines on the worksheets. Is there an easy way to delete the blank lines? |
|
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
|
Is there a easy way to delete blank lines to clean up worksheets?
Hi jdf5
Can you test one column for blanks ? http://www.rondebruin.nl/specialcells.htm Or must you check whole rows ? http://www.rondebruin.nl/delete.htm Use this then in the code example You must replace this five lines with the example below you want to use. If IsError(.Cells(Lrow, "A").Value) Then 'Do nothing, This avoid a error if there is a error in the cell ElseIf .Cells(Lrow, "A").Value = "ron" Then .Rows(Lrow).Delete 'This will delete each row with the Value "ron" in Column A, case sensitive. End If If Application.CountA(.Rows(Lrow)) = 0 Then .Rows(Lrow).Delete 'This will delete the row if the whole row is empty (all columns) -- Regards Ron De Bruin http://www.rondebruin.nl "jdf5" wrote in message ... I have a workbook that break down a list of accounts based on differ factors & then puts them onto different worksheets. After it does this is leaves blank lines on the worksheets. Is there an easy way to delete the blank lines? |
|
#3
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
|
Is there a easy way to delete blank lines to clean up worksheets?
Btw : manual you can select the column that you want to check and use
F5Special Blanks Ctrl - Choose entire row -- Regards Ron De Bruin http://www.rondebruin.nl "Ron de Bruin" wrote in message ... Hi jdf5 Can you test one column for blanks ? http://www.rondebruin.nl/specialcells.htm Or must you check whole rows ? http://www.rondebruin.nl/delete.htm Use this then in the code example You must replace this five lines with the example below you want to use. If IsError(.Cells(Lrow, "A").Value) Then 'Do nothing, This avoid a error if there is a error in the cell ElseIf .Cells(Lrow, "A").Value = "ron" Then .Rows(Lrow).Delete 'This will delete each row with the Value "ron" in Column A, case sensitive. End If If Application.CountA(.Rows(Lrow)) = 0 Then .Rows(Lrow).Delete 'This will delete the row if the whole row is empty (all columns) -- Regards Ron De Bruin http://www.rondebruin.nl "jdf5" wrote in message ... I have a workbook that break down a list of accounts based on differ factors & then puts them onto different worksheets. After it does this is leaves blank lines on the worksheets. Is there an easy way to delete the blank lines? |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Add or Delete Rows in Protected worksheets | Excel Discussion (Misc queries) | |||
| How can I delete a row from all worksheets in a workbook easily? | Excel Worksheet Functions | |||
| how do I print grid lines for blank rows | Excel Discussion (Misc queries) | |||
| how do I print grid lines for blank rows | Excel Discussion (Misc queries) | |||
| How do I delete filtered lines in Excel 2000? | Excel Worksheet Functions | |||
Linear Mode
