Highlight the data within Excel wrapped cell being searched once found.

[mb8marmed]

Is there a way to highlight the word or data being searched in Excel if the data is within the wrapped cell? I am using the Ctrl + F to find the data, though it will direct me to the wrapped cell, I still have to read all the data in there.

Hope you can give me an advice to this issue. Thank you in advance.

 

[Micron]

Looking for code? This is very basic in case the answer is no - and I have no idea if you need a function or a sub, or how you intend to call it. You could call this example as ColourFound("some text goes here"). It will probably error out if the string is not found but as noted, you may not be looking for code anyway.

Public Sub ColourFound(strToFind As String)
'colour text if found
Dim cel As Range
Dim intPos As Integer

Set cel = Cells.Find(what:=strToFind).Cells
intPos = InStr(1, cel, strToFind)
If intPos > 0 Then cel.Characters(Start:=intPos, Length:=Len(strToFind)).Font.Color = vbRed

End Sub

 

[mb8marmed]

Looking for code? This is very basic in case the answer is no - and I have no idea if you need a function or a sub, or how you intend to call it. You could call this example as ColourFound("some text goes here"). It will probably error out if the string is not found but as noted, you may not be looking for code anyway.

Public Sub ColourFound(strToFind As String)
'colour text if found
Dim cel As Range
Dim intPos As Integer

Set cel = Cells.Find(what:=strToFind).Cells
intPos = InStr(1, cel, strToFind)
If intPos > 0 Then cel.Characters(Start:=intPos, Length:=Len(strToFind)).Font.Color = vbRed

End Sub

Hi Micron, I am looking for a VBA code that will trigger Excel to highlight the wrapped string or word once it is found using Ctrl+F.

Thank you

 

[Micron]

Code would have to know what text that the Find and Replace dialog box has in its "Find What" textbox and I do not know how to get that or if it is even possible. Probably doable if you used your own userform since the userform would be available to other code. If you clicked a command button named CommandButton1 on the form and the text to find was in Textbox1 then perhaps something like (untested)

Sub CommandButton1_Click()
'colour text if found
Dim cel As Range
Dim intPos As Integer
Dim strToFind As String

strToFind = Me.Textbox1
Set cel = ActiveSheet.Cells.Find(what:=strToFind).Cells
intPos = InStr(1, cel, strToFind)
If intPos > 0 Then cel.Characters(Start:=intPos, Length:=Len(strToFind)).Font.Color = vbRed

End Sub

If you can create a keyboard combination that is not being used, you could load your userform with it (e.g. alt+y) they way the find dialog is loaded.