Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete Rows With Specific Text
I want to run a macro that will search through rows 1 to 1000, and will
delete a section of rows when it finds the following Look for in column "A" the word "FURN" when it is located it will delete that row along with three rows beneath it and one row above it. It will stop at row 1000. Any suggestions? Thanks Sean |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete Rows With Specific Text
Hi Sean
You can test this on a copy of your workbook Sub FindExample1() Dim str As String Dim Rng As Range Dim I As Long Application.ScreenUpdating = False str = "FURN" Do Set Rng = Range("A:A").Find(What:=str, _ After:=Range("A" & Rows.Count), _ LookIn:=xlFormulas, _ LookAt:=xlWhole, _ SearchOrder:=xlByRows, _ SearchDirection:=xlNext, _ MatchCase:=False) If Not Rng Is Nothing Then Rng.Offset(-1, 0).Resize(5).EntireRow.Delete Loop While Not (Rng Is Nothing) Application.ScreenUpdating = True End Sub -- Regards Ron de Bruin http://www.rondebruin.nl "Sean" wrote in message ... I want to run a macro that will search through rows 1 to 1000, and will delete a section of rows when it finds the following Look for in column "A" the word "FURN" when it is located it will delete that row along with three rows beneath it and one row above it. It will stop at row 1000. Any suggestions? Thanks Sean |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Delete rows with specific text | New Users to Excel | |||
Delete Rows Without Specific Text | Excel Worksheet Functions | |||
select and delete specific rows | Excel Discussion (Misc queries) | |||
Delete rows with specific text | Excel Programming | |||
Macro to delete specific rows | Excel Programming |