Findnext method

Hi,


This FindNext method works for me ...

Option Explicit

Sub Test1()
    Dim ptipn As String, r1 As Range, r2 As Range, r3 As Range
    Dim response As VbMsgBoxResult, r1Addy As String
Start:
    ptipn = InputBox("Enter PTI Part number:", "Lookup Value")
    If ptipn = vbNullString Then Exit Sub
    Set r1 = Range("B:B")
    Set r2 = r1.Find(ptipn)
    If r2 Is Nothing Then
        response = MsgBox("The Part number " & _
        ptipn & " was not found. Would you like to try again?", vbQuestion + vbYesNo)
        If response = vbYes Then
            GoTo Start
        ElseIf response = vbNo Then
            End
        End If
    Else
        r1Addy = r2.Address
        Set r3 = r2
        Do
            Set r2 = r1.FindNext(r2)
            Set r3 = Union(r3, r2)
        Loop Until r2.Address = r1Addy
    End If
    If Not r3 Is Nothing Then
        'do something with those found here
        r3.Select
    End If
End Sub

HTH

Yeah, and that's basically how the above works. It will compare the first address it comes across and when the Loop comes back to the starting point (that first address) it will exit the Loop. I guess you could ask to start again, but it would be redundant, as you would have just performed the same commands. So I don't understand the why, but in essence yes, add it right after the loop.

And glad it works for you. You should have seen my first code!! Oh, was it ugly! LOL!

Right off hand, I'd say take your two Sub routines (Testfile1 and Testfile2) and put them into a Standard Module ( Insert | Module ), not in a worksheet module. And without seeing your Testfile1 and/or Testfile2 routines, I'm not sure what else it may be. But definitely put them into a standard module first.

Also, is that your entire filename? You are appending prior to the name, saving to H? Which I'm assuming is a network drive.. ? If that is the directory, don't forget your last backslash.