how to find next but a new word?

[kemas]

I have this code to search a word " cat"

Cells.Find(What:="cat", After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate

i want to search a new word inputing by user
not the word written in code " cat"

thanks

[Bob Phillips]

Dim inp As String
inp = InputBox("Search for what?")
    If inp = "" Then Exit Sub
    Cells.Find(What:=inp, After:=ActiveCell, _
               LookIn:=xlValues, LookAt:=xlPart, _
               SearchOrder:=xlByRows, SearchDirection:=xlNext, _
               MatchCase:=False, SearchFormat:=False).Activate

[kemas]

Thanks!
now I need to write my word every time
I want a button like findNext in excel

[kemas]

THANKS

NOW IT WORKS AS I NEED

SEE THIS

Sub Macro1()
Dim inp As String
3 inp = InputBox("Search for what?")
If inp = "" Then Exit Sub
For i = 1 To 10
On Error GoTo 1
Cells.Find(What:=inp, After:=ActiveCell, _
LookIn:=xlValues, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
answer = MsgBox("next?", vbYesNo)
  If answer = vbNo Then GoTo 3
Next i
1:
    MsgBox "NOT fOUND"
End Sub

[Bob Phillips]

I would do it without the Gotos

Sub Macro1()
Dim nextWord As Boolean
Dim inp As String
Dim answer As String
Dim firstaddress As String
Dim cell As Range
Do
    inp = InputBox("Search for what?")
    If inp <> "" Then
        Set cell = Cells.Find(What:=inp, After:=ActiveCell, _
        LookIn:=xlValues, LookAt:=xlPart, _
        SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
        If cell Is Nothing Then
            MsgBox "NOT fOUND"
        Else
            cell.Select
       End If
       answer = MsgBox("next?", vbYesNo)
    End If
    Loop Until inp = "" Or answer = vbNo
End Sub

[kemas]

No Xld
Not working

When we choose "Yes" to find next
it returns to input box

See this

[Bob Phillips]

You mean mine or yours? If mine, that seems right to me, only the user decides to exit.

[Blade Hunter]

No Xld
Not working

When we choose "Yes" to find next
it returns to input box

See this

Move this line:

inp = InputBox("Search for what?")

above the Do

and change this:

answer = MsgBox("next?", vbYesNo)

to this

If MsgBox("Next?",vbYesNo) = VBNo then end

xld, the OP wants the input box up once then the option to keep searching the same word.

[Bob Phillips]

No he doesn't. If you look at his code which he said works (but which I doubt does really) you will see that after he asks the question, he goes back to the inputbox.

[kemas]

OK!
now it's working as i want or near i want

the last code after changing is

Dim nextWord As Boolean
    Dim inp As String
    Dim answer As String
    Dim firstaddress As String
    Dim cell As Range
     inp = InputBox("Search for what?")
    Do
    If inp <> "" Then
        Set cell = Cells.Find(What:=inp, After:=ActiveCell, _
        LookIn:=xlValues, LookAt:=xlPart, _
        SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
        If cell Is Nothing Then
            MsgBox "NOT fOUND"
        Else
            cell.Select
        End If
        If MsgBox("Next?", vbYesNo) = vbNo Then End
   End If
    Loop Until inp = ""

but we still have differences between the two codes

my code : return to inputbox after choosing "no"
your code : end all

thanks

ur code was useful to me in this line

"  If MsgBox("Next?", vbYesNo) = vbNo Then End

it's new to me

thanks

[Bob Phillips]

OK!
now it's working as i want or near i want

<snip>

but we still have differences between the two codes

my code : return to inputbox after choosing "no"

My code can change to that, but how are you going to get out of the loop if you do that?

your code : end all

There is no End All in my code.

ur code was useful to me
in this line " If MsgBox("Next?", vbYesNo) = vbNo Then End

it's new to me

Again, that is not what I had in my code.

[kemas]

My code can change to that, but how are you going to get out of the loop if you do that?

when we return to inputbox we press cancel
remember : (Loop Until inp = "")

There is no End All in my code.
i said end not end all


Again, that is not what I had in my code.

[Blade Hunter]

No he doesn't. If you look at his code which he said works (but which I doubt does really) you will see that after he asks the question, he goes back to the inputbox.

I agree completely and the code posted does suggest the need for what you built but the post following that: http://www.vbaexpress.com/forum/show...24&postcount=6 lead me to believe the OP wanted something different.

[kemas]

thank u very much

i think we must stop that because the problem has solved

i'm sorry for that

and i think that this post was useful to me

thanks xld and Blade Hunter
and i hope my English is better to speak better

[Blade Hunter]

thank u very much

i think we must stop that because the problem has solved

i'm sorry for that

and i think that this post was useful to me

thanks xld and Blade Hunter
and i hope my English is better to speak better

No problem, glad you got it working