Search in Multiple Sheets

[jneaves]

Hey, I have a workbook with many worksheets. I am trying to write a
macro to search all the worksheets for a unique value. I have a
userform to enter the value and assign it to a variable. I just need
to search all sheet for that string, and if that string exists in a
worksheet, activate that worksheet. Anyone done anything like this?
Can you help?

 

[JB]

Sub chercheFindMultiFeuillesValeur()
x = "ABCD"
For Each s In ActiveWorkbook.Sheets
With Sheets(s.Name).Cells
Set c = .Find(x, LookIn:=xlValues)
If Not c Is Nothing Then
premier = c.Address
Do
c.Interior.ColorIndex = 4
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> premier
End If
End With
Next s
End Sub

http://boisgontierjacques.free.fr/fichiers/FindMultiFeuilles2.xls

JB
http://boisgontierjacques.free.fr/

 

[Jim Rech]

Just FYI, if you have Excel 2002 or later the built-in Find feature can be
set to search the entire workbook.

--
Jim
| Hey, I have a workbook with many worksheets. I am trying to write a
| macro to search all the worksheets for a unique value. I have a
| userform to enter the value and assign it to a variable. I just need
| to search all sheet for that string, and if that string exists in a
| worksheet, activate that worksheet. Anyone done anything like this?
| Can you help?
|

 

[Guest]

See the answer posted in programming. Please do not mulit post. Check out
this link...

http://www.cpearson.com/excel/newposte.htm

 

[Dave Peterson]

xl2002 offers a find in workbook (under the Options button on the Edit|Find
dialog).

Then you can click on the line in the results window to go to that location.

I had to search for that site:

http://www.theupdown.com/

where you can "play" with investments.