How to write code for find a word in excel?

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Mx - 15 Sep 2007 02:23 GMT

For example , there is two textbox and one command button.
If i press the command button the text entered in the first textbox
will find in xlworkbook and shown in second textbox with a msgbox ?
All sugestions are welcomed.

Reply to this Message

Gary''s Student - 15 Sep 2007 12:44 GMT

Attach the following macro to a Forms button:

Sub mx_sub()
Dim s As String, t As String
t = Chr(10) & Chr(10)
s = Application.InputBox("Enter the Word: ")
For Each r In ActiveSheet.UsedRange
With r
If InStr(1, .Value, s) > 0 Then
MsgBox ("Found the Word in cell " & .Address & t & .Value)
Exit Sub
End If
End With
Next
MsgBox ("Did not find the Word")
End Sub

Signature

Gary''s Student - gsnu2007

> For example , there is two textbox and one command button.
> If i press the command button the text entered in the first textbox
> will find in xlworkbook and shown in second textbox with a msgbox ?
> All sugestions are welcomed.

Reply to this Message

Mx - 18 Sep 2007 04:45 GMT

Dear,

Thanks to Reply my question? Could explain how the code works?

Ya sure I try your coding and i get my result.

Once again thank you.

_ Jawahar S_

Reply to this Message