Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
delete empty rows in workbook
Hi...
Ive got a problem with clearing rows. I want tp clear all the data in a row if a cel in clomn B is emptry. I want to do that for the entire workbook. The workbook im working in has about hundred sheets. It will take me hours to clear all the rows manually. So far i got this code: Sub ClearRows() Dim rng As Range Dim rowcounter As Integer Dim sheetcounter As Integer sheetcounter = 0 Do Until sheetcounter = 100 Sheet(sheetcounter).Activate On Error Resume Next Set rng = Columns(2).SpecialCells(xlBlanks) On Error GoTo 0 If Not rng Is Nothing Then rng.EntireRow.ClearContents End If sheetcounter = sheetcounter + 1 Loop End Sub Can anyone please tell me what im doing wrong?? (using 2003) Thanks |
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
delete empty rows in workbook
Hi
If they are blank use this example http://www.rondebruin.nl/specialcells.htm If this not working post back -- Regards Ron de Bruin http://www.rondebruin.nl "TooN" wrote in message ... Hi... Ive got a problem with clearing rows. I want tp clear all the data in a row if a cel in clomn B is emptry. I want to do that for the entire workbook. The workbook im working in has about hundred sheets. It will take me hours to clear all the rows manually. So far i got this code: Sub ClearRows() Dim rng As Range Dim rowcounter As Integer Dim sheetcounter As Integer sheetcounter = 0 Do Until sheetcounter = 100 Sheet(sheetcounter).Activate On Error Resume Next Set rng = Columns(2).SpecialCells(xlBlanks) On Error GoTo 0 If Not rng Is Nothing Then rng.EntireRow.ClearContents End If sheetcounter = sheetcounter + 1 Loop End Sub Can anyone please tell me what im doing wrong?? (using 2003) Thanks |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Excel shared workbook copies rows by itself | Excel Worksheet Functions | |||
resetting last cell | Excel Discussion (Misc queries) | |||
delete extra columns and rows | Excel Discussion (Misc queries) | |||
How to delete rows when List toolbar's "delete" isnt highlighted? | Excel Worksheet Functions | |||
How to delete blank rows | Excel Discussion (Misc queries) |