Highlight Key Items

[billandrew]

hello all

I have this script which functions as expected, what I'd like accomplish prior to replacing the applicable values is highlight the values. unsure maybe stop at this point or continue to the replacement.

Thanks as always

Sub HighlightValues()   
   Dim c As Range
   Dim k As Variant
   Dim Ws1 As Worksheet, Ws2 As Worksheet
   
   Set Ws1 = Sheets("Sheet1")
   Set Ws2 = Sheets("Sheet2")
   With CreateObject("scripting.dictionary")
      For Each c In Ws2.Range("A2", Ws2.Range("A" & Rows.Count).End(xlUp))
         .Item(c.Value) = c.Offset(, 1).Value
      Next c
      
      For Each k In .Keys
[COLOR=#ff0000]      'Highlight items at this point[/COLOR]
      Ws1.UsedRange.Replace k, .Item(k), xlWhole, , True, , False, False
      Next k
   End With
End Sub

 

[Logit]

.
Untested here.

For Each k In .Keys
      'Highlight items at this point
      k.Interior.Color = vbYellow
      Ws1.UsedRange.Replace k, .Item(k), xlWhole, , True, , False, False
      Next k
End Sub

Not certain using the "k" variable as the target is going to work. I'm thinking using the "c" variable would be correct and that would be (I believe without testing here)

 With CreateObject("scripting.dictionary")
      For Each c In Ws2.Range("A2", Ws2.Range("A" & Rows.Count).End(xlUp))
         .Item(c.Value) = c.Offset(, 1).Value
         .Interior.Color = vbYellow
      Next c

 

[billandrew]

Thank you. I actually attempted to highlight on the k prior. That did not work. I'll test the second option provided and update.

 

[billandrew]

Unfortunately this change does not work. I am trying to highlight the values which are to be replaced on Sheet1

 

[Akuini]

Hi, billandrew
This is also untested
Note: I changed the second parameter to "", means Replacement:=""
& the last parameter from False to True, means 'ReplaceFormat:=True'

      For Each k In .Keys
      'Highlight items at this point
      Application.ReplaceFormat.Interior.Color = vbYellow
      ws1.UsedRange.Replace k, "", xlWhole, , True, , False, True
      Next k

 

[billandrew]

Fabulous - This is it.

Thank You!!

 

[Akuini]

Fabulous - This is it.

Thank You!!

You're welcome & thanks for replying