Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Activate Find Results
I need code simply to activate all the cells found containing a text string
within a range of cells. For example, activate all cells containing "Bioscience" in range A1:A350, including those that might say "Bioscience Industry". Thanks! -- Steve C |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Activate Find Results
Only one cell can be active at any given instance.
"Steve C" wrote in message ... I need code simply to activate all the cells found containing a text string within a range of cells. For example, activate all cells containing "Bioscience" in range A1:A350, including those that might say "Bioscience Industry". Thanks! -- Steve C |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Activate Find Results
Assuming you mean Select when you say Activate, this code will select all
cells with Bioscience in them (although I'm willing to bet you don't really need to select them in order to do whatever you plan to do next)... Sub GetBioscienceCells() Dim C As Range Dim FoundCells As Range Dim FirstAddress As String With Worksheets("Sheet2").Range("A2:H200") '<== Set sheet & range here Set C = .Find("Bioscience", LookIn:=xlValues, _ LookAt:=xlPart, MatchCase:=False) If Not C Is Nothing Then FirstAddress = C.Address Do If FoundCells Is Nothing Then Set FoundCells = C Else Set FoundCells = Union(C, FoundCells) End If Set C = .FindNext(C) Loop While Not C Is Nothing And C.Address < FirstAddress If Not FoundCells Is Nothing Then FoundCells.Select End If End With End Sub -- Rick (MVP - Excel) "Steve C" wrote in message ... I need code simply to activate all the cells found containing a text string within a range of cells. For example, activate all cells containing "Bioscience" in range A1:A350, including those that might say "Bioscience Industry". Thanks! -- Steve C |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Activate Find Results
you can use Conditional Formatting to highlight cells with specific vales,
or use autofilter to parse a table for specific values "Steve C" wrote in message ... I need code simply to activate all the cells found containing a text string within a range of cells. For example, activate all cells containing "Bioscience" in range A1:A350, including those that might say "Bioscience Industry". Thanks! -- Steve C |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Activate Find Results
Yes, I meant Select (my bad for poor choice of words). Your code does
exactly what I was looking for. Thanks to all who responded. -- Steve C "Rick Rothstein" wrote: Assuming you mean Select when you say Activate, this code will select all cells with Bioscience in them (although I'm willing to bet you don't really need to select them in order to do whatever you plan to do next)... Sub GetBioscienceCells() Dim C As Range Dim FoundCells As Range Dim FirstAddress As String With Worksheets("Sheet2").Range("A2:H200") '<== Set sheet & range here Set C = .Find("Bioscience", LookIn:=xlValues, _ LookAt:=xlPart, MatchCase:=False) If Not C Is Nothing Then FirstAddress = C.Address Do If FoundCells Is Nothing Then Set FoundCells = C Else Set FoundCells = Union(C, FoundCells) End If Set C = .FindNext(C) Loop While Not C Is Nothing And C.Address < FirstAddress If Not FoundCells Is Nothing Then FoundCells.Select End If End With End Sub -- Rick (MVP - Excel) "Steve C" wrote in message ... I need code simply to activate all the cells found containing a text string within a range of cells. For example, activate all cells containing "Bioscience" in range A1:A350, including those that might say "Bioscience Industry". Thanks! -- Steve C |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Find and replace results can the appearance of find be different? | Excel Discussion (Misc queries) | |||
where to put results of find operation in find and replace functio | Excel Worksheet Functions | |||
Find a cell with a special value and activate it | Excel Programming | |||
Find Cell Value and Activate | Excel Programming | |||
Using a Macro to find a value in a range and activate it | Excel Programming |