Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Deleting rows if cell is blank
I need to delete 2 rows if a cell is blank. At the moment I am using the following to delete the row which the blank cell is situated in. Range("C12:C81").SpecialCells(xlBlanks).EntireRow. Delete This works fine. However, I also need to delete a second row relative to the first row. i.e. Cell C12 is blank Row 12 is deleted Row 112 is deleted When deleting the first row (row 12) the second row to be deleted is now row 111. This process is repeated through the range C12:C81. Obviously as more rows are deleted, the relative row changes. HELP - Any suggestions will be much appreciated. Thanks in advance, Darren. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Deleting rows if cell is blank
Try this code...
Sheet1.Range("C12:C81").SpecialCells(xlBlanks).Off set(100, 0).EntireRow.Delete Sheet1.Range("C12:C81").SpecialCells(xlBlanks).Ent ireRow.Delete It offsets from your blank cells to your other range and deletes the rows. Make sure you run the offset first, otherwise you delet the blanks to offset from. HTH "Darren Elsom" wrote: I need to delete 2 rows if a cell is blank. At the moment I am using the following to delete the row which the blank cell is situated in. Range("C12:C81").SpecialCells(xlBlanks).EntireRow. Delete This works fine. However, I also need to delete a second row relative to the first row. i.e. Cell C12 is blank Row 12 is deleted Row 112 is deleted When deleting the first row (row 12) the second row to be deleted is now row 111. This process is repeated through the range C12:C81. Obviously as more rows are deleted, the relative row changes. HELP - Any suggestions will be much appreciated. Thanks in advance, Darren. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Deleting rows if cell is blank
The following seems to work for me:
With Range("C12:C81").SpecialCells(xlBlanks) .Offset(100,0).EntireRow.Delete .EntireRow.Delete End With On Fri, 4 Mar 2005 18:57:26 -0000, "Darren Elsom" wrote: I need to delete 2 rows if a cell is blank. At the moment I am using the following to delete the row which the blank cell is situated in. Range("C12:C81").SpecialCells(xlBlanks).EntireRow .Delete This works fine. However, I also need to delete a second row relative to the first row. i.e. Cell C12 is blank Row 12 is deleted Row 112 is deleted When deleting the first row (row 12) the second row to be deleted is now row 111. This process is repeated through the range C12:C81. Obviously as more rows are deleted, the relative row changes. HELP - Any suggestions will be much appreciated. Thanks in advance, Darren. |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Deleting rows if cell is blank
Thankyou both. I have tried bothways within my existing code and they
both do they trick. Thanks very much. Darren. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Need Help Deleting Blank Rows | Excel Worksheet Functions | |||
Deleting blank rows | Excel Worksheet Functions | |||
Deleting Blank Rows | New Users to Excel | |||
Deleting blank rows | Excel Programming | |||
Deleting blank rows | Excel Programming |