Excel FIND Command

  • Thread starter Thread starter KarenH
  • Start date Start date
K

KarenH

When I use the "find" command in Excel, the "found" cell or cells are barely
a shade different in color from the spreadsheet. It is almost impossible to
"see" the "found" cell. Is there a solution for this ? I don't think it was
this hard before Excel 2007.
 
Karen; this is a know issue in Excel 2007 and Excel do not have a setting to
change this. One workaround is to add a background from menu Page
Layout>Background; but again you will have to add for this to all sheets.
 
Karen,
You may consider to try the hereunder Macro.
This is one of the "simplest" way to accomplish what you are after.
The macro can be placed in your PERSONAL.XLS WorkBook in order to search in
any opened WB.
[Usually one adds custom keyboard shortcut to run the macro]
-----------------------------------------
Sub ColoredSearch()
SF = InputBox("Search for: ")
For Each CL In ActiveSheet.UsedRange
With CL
Set C = .Find(SF, LookIn:=xlValues)
If Not C Is Nothing Then
foundAddress = C.Address
Do
Range(C.Address).Select
TempCol = Selection.Interior.ColorIndex
Selection.Interior.ColorIndex = 6
MsgBox "Found in: " & C.Address
Selection.Interior.ColorIndex = TempCol
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> foundAddress
End If
End With
Next
End Sub
 
In "Excel 2007" it is called: PERSONAL.XLSX
http://support.microsoft.com/default.aspx/kb/822107
Micky


מיכ×ל (מיקי) ×בידן said:
Karen,
You may consider to try the hereunder Macro.
This is one of the "simplest" way to accomplish what you are after.
The macro can be placed in your PERSONAL.XLS WorkBook in order to search in
any opened WB.
[Usually one adds custom keyboard shortcut to run the macro]
-----------------------------------------
Sub ColoredSearch()
SF = InputBox("Search for: ")
For Each CL In ActiveSheet.UsedRange
With CL
Set C = .Find(SF, LookIn:=xlValues)
If Not C Is Nothing Then
foundAddress = C.Address
Do
Range(C.Address).Select
TempCol = Selection.Interior.ColorIndex
Selection.Interior.ColorIndex = 6
MsgBox "Found in: " & C.Address
Selection.Interior.ColorIndex = TempCol
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> foundAddress
End If
End With
Next
End Sub
--------------
Micky


KarenH said:
When I use the "find" command in Excel, the "found" cell or cells are barely
a shade different in color from the spreadsheet. It is almost impossible to
"see" the "found" cell. Is there a solution for this ? I don't think it was
this hard before Excel 2007.
Click to expand...
Click to expand...
 
Jacob said:
Karen; this is a know issue in Excel 2007 and Excel do not have a setting to
change this. One workaround is to add a background from menu Page
Layout>Background; but again you will have to add for this to all sheets.
Click to expand...
Known issue?
There's a big highlight border around the cell with the search term in
it when I use Find in Excel 2007. I haven't added any background to my
Excel sheets.

Bill
 
Back
Top