Hello,
I found this code doing a google search that does almost what I want but I need to add a step. This macro with let you specify a value and create an Excel range selection of all cells containing the specified value. The extra step I need is an offset select from of all the selected cells. I am searching and finding the value "Note:". I can get this to work if there is only one cell found with "Note:" but I mostly have multiple cells with "Note:" and need the offset at all those locations.
Any help would be much appreciated. Thank you in advance.
I found this code doing a google search that does almost what I want but I need to add a step. This macro with let you specify a value and create an Excel range selection of all cells containing the specified value. The extra step I need is an offset select from of all the selected cells. I am searching and finding the value "Note:". I can get this to work if there is only one cell found with "Note:" but I mostly have multiple cells with "Note:" and need the offset at all those locations.
Any help would be much appreciated. Thank you in advance.
VBA Code:
Sub Offset_From_Note()
'
' Offset_From_Note Macro
'
'
Dim fnd As String, FirstFound As String
Dim FoundCell As Range, rng As Range
Dim myRange As Range, LastCell As Range
'What value do you want to find (must be in string form)?
fnd = "Note:"
Set myRange = ActiveSheet.UsedRange
Set LastCell = myRange.Cells(myRange.Cells.Count)
Set FoundCell = myRange.Find(what:=fnd, after:=LastCell)
'Test to see if anything was found
If Not FoundCell Is Nothing Then
FirstFound = FoundCell.Address
Else
GoTo NothingFound
End If
Set rng = FoundCell
'Loop until cycled through all unique finds
Do Until FoundCell Is Nothing
'Find next cell with fnd value
Set FoundCell = myRange.FindNext(after:=FoundCell)
'Add found cell to rng range variable
Set rng = Union(rng, FoundCell)
'Test to see if cycled through to first found cell
If FoundCell.Address = FirstFound Then Exit Do
Loop
'Select Cells Containing Find Value
rng.Select
Range(ActiveCell.Offset(-1, -7), ActiveCell.Offset(-1, 1)).Select
Exit Sub
'Error Handler
NothingFound:
MsgBox "No values were found in this worksheet"
End Sub