[RESOLVED] find.next... (??)

[Kubull]

Hey all,

Love the new look of the forum, Awesome!

straight to business...

I have a search script that i use to search two spacific columns in exel, the code (below) works well but stops dead when it finds just one search result. i would like it to be able to loop through to find more result IE: "Smith, john - Smith, Jane - Smith Blugh"

I've tried various attempts at: - Selection.FindNext (after:=ActiveCell).activate - and dim ExitLoop as boolean - Exit loop findnext...

but have drawn a blank... any help would be very much appreciated.

Cheers

Private Sub Cmd_OK_Click()
Dim MyText As String
Dim MyMsg As String
Dim MyType
Dim MyTitle As String

MyText = txtname.Value
MyText = TxtChange.Value
MyMsg = "No matches were found."
MyType = vbOKOnly + vbExclamation
MyTitle = "No Matches"

On Error GoTo ErrorHandler


    Application.Goto Reference:="Name"
        Selection.Find(What:=txtname, after:=ActiveCell, LookIn:=xlFormulas, _
            LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
            MatchCase:=False, SearchFormat:=False).Activate

If txtname.Value = "" Then


    Application.Goto Reference:="CO"
        Selection.Find(What:=TxtChange, after:=ActiveCell, LookIn:=xlFormulas, _
            LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
            MatchCase:=False, SearchFormat:=False).Activate
       
       If TxtChange.Value = "" Then

Range("A1").End(xlDown).Select
End If
Exit Sub
ErrorHandler:
MsgBox MyMsg, MyType, MyTitle
End If
End Sub

[Siddharth Rout]

Perhaps this will help

Section 3 has what you are looking for

Topic: .Find and .FindNext In Excel VBA

Link: http://siddharthrout.wordpress.com/2...-in-excel-vba/

[Kubull]

Thanks koolsid,

but i got lazy and just added in a few:

Selection.FindNext(After:=ActiveCell).Activate

Messy but does the job...