Highlighting different, multiple words in a cell range by making them Bold and Coloured.

[DataQuestioner]

This is a request to Rick Rothstein and Peter_SSs who created the following VBA script in another Thread to do with underlining key words in a cell range >

I'm looking for a similar solution except I would like the "Words" sheet "Data" to be converted to Bold and Red text.
My Sheet with the cell range to be searched is called "SearchText" and the contents will always be in Column "A".
My Sheet with the words to be searched is called "SearchWords".




Sub UnderlineKeyWords_v2()
Dim AllMatches As Object
Dim itm As Variant, KeyWords As Variant, Keyword As Variant, Data As Variant
Dim tmp(1 To 2000) As Long
Dim DataRng As Range
Dim s As String
Dim i As Long, j As Long, k As Long

Const DataSht As String = "Data" '<- Name of sheet where underlining is done
Const myCol As String = "K" '<- Column of interest on DataSht

Application.ScreenUpdating = False
With Sheets("Words")
KeyWords = .Range("A1", .Cells(Rows.Count, "A").End(xlUp)).Value
End With
For i = 1 To UBound(KeyWords, 1)
KeyWords(i, 1) = "\b" & KeyWords(i, 1) & "\b"
Next i
With Sheets(DataSht)
.Columns(myCol).Font.Underline = False
Set DataRng = .Range(myCol & 1, .Range(myCol & .Rows.Count).End(xlUp))
End With
Data = DataRng.Value
With CreateObject("VBScript.RegExp")
.Global = True
.IgnoreCase = True
For i = 1 To UBound(Data, 1)
Erase tmp
s = Data(i, 1)
k = -1
For Each Keyword In KeyWords


.Pattern = Keyword
Set AllMatches = .Execute(s)
For Each itm In AllMatches
k = k + 2
tmp(k) = itm.firstIndex + 1
tmp(k + 1) = itm.Length
Next itm
Next Keyword
With DataRng.Cells(i)
For j = 1 To k Step 2
.Characters(tmp(j), tmp(j + 1)).Font.Underline = True
Next j
End With
Next i
End With
Application.ScreenUpdating = True
End Sub

 

[InaCell]

At least your original problem as posted #1 has been resolved.

A couple of searches on this forum achieved that.

Maybe you could search a bit more on on your actual criteria and integrate it into the code.

Cheers

 

[DataQuestioner]

Bump

 

[DataQuestioner]

Bump

 

[InaCell]

Be patient. Three bumps. Ya gunna be lucky to get a response. What have YOU tried while waiting?