Macro : To find word and Select rest after this cell and delete rest

**Zortabello** · 07-08-2010, 05:38 AM

Hello from moscow..I am the beginer.

recorded a macro like this.
i want to find a word..then select after this word 10 row and delete it.
How can i do this?

anyone can help?

thanks in advance.

Cells.Find(What:="5012039795", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    Range("B47,A47:I62").Select

**Wizz** · 07-08-2010, 08:06 AM

Hi Zortabello,
Use following code:

On Error Resume Next   'This line makes VBA to ignore errors. (If the .Find option finds no match, it would otherwise pop up a msg box)

Cells.Find(What:="5012039799", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Offset(10, 0).EntireRow.Delete

On Error Resume 0    'This line makes VBA to pop up error mesages again

Macro : To find word and Select rest after this cell and delete rest

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Macro : To find word and Select rest after this cell and delete rest

Re: Macro : To find word and Select rest after this cell and delete rest

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions