Looping Find

**Gus80** · 06-05-2008, 01:37 AM

Hi everyone

Hopefully this is just a quick one.

I currently have this code searching for "--------" and deleting the entire row once it has found it.

Columns("A:A").Find(What:="--------", After:=ActiveCell, LookIn:=xlFormulas, _
            LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
            MatchCase:=False, SearchFormat:=False).Activate
        Selection.EntireRow.Delete

I would like to loop this so that it finds all instances of "--------" and deletes each row that it is found on then stops once all "--------" have been found and deleted.

If anyone can point me in the right direction, it would be greatly appreciated.

Thanks

**VBA Noob** · 06-05-2008, 02:07 AM

Maybe

Also should

xlformulas be changed to Values and
xlPart to Xlwhole

Dim Fnd As Range
Do
    Set Fnd = Columns("A:A").Find(What:="--------", After:=Range("A1"), _
    LookIn:=xlFormulas, LookAt:=xlPart)
               
    If Fnd Is Nothing Then
        Exit Do
    Else
        Fnd.EntireRow.Delete
    End If
Loop

VBA Noob

**beeawwb** · 06-05-2008, 02:45 AM

Edit: Never mind, solution done above.

-Bob

**Gus80** · 06-05-2008, 06:34 PM

Great

Thankyou very much - works perfectly

Looping Find

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Looping Find

Thread Information

Users Browsing this Thread

Similar Threads

[SOLVED] match 3 hold digits

Programming a Find Loop?

find, meet condition, sum range, deduce, find next

Using find function to find entries in multiple cells

FIND / SEARCH find nonnumeric

Bookmarks

Bookmarks

Posting Permissions