deleting unwanting rows

yerby · Mar 18th, 2002, 11:16 AM

I am having difficulty remembering the code to delete rows I do not require in a large spreadsheet. If the cell to the left of the active cell contains a certain word (say "NONE") I want to delete the entire row plus the three rows beneath.
Can anyone help

Thanks

Al Chara · Mar 18th, 2002, 11:26 AM

Try the following code:

If ActiveCell.Offset(0, -1).Value = "NONE" Then
Range(ActiveCell, ActiveCell.Offset(3, 0)).Select
Selection.EntireRow.Delete
End If

Hope this helps.
Kind regards, Al.

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

Mar 18th, 2002, 11:16 AM	#1
yerby New Member Join Date: Mar 2002 Posts: 20	I am having difficulty remembering the code to delete rows I do not require in a large spreadsheet. If the cell to the left of the active cell contains a certain word (say "NONE") I want to delete the entire row plus the three rows beneath. Can anyone help Thanks

Mar 18th, 2002, 11:26 AM	#2
Al Chara MrExcel MVP Join Date: Feb 2002 Location: Monterrey, Mexico Posts: 1,433	Try the following code: If ActiveCell.Offset(0, -1).Value = "NONE" Then Range(ActiveCell, ActiveCell.Offset(3, 0)).Select Selection.EntireRow.Delete End If Hope this helps. Kind regards, Al.