Highlight duplicate cells based on a selected cell
slight change
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
If Target.Column < 1 Or Target.Row Lastrow Then
Columns(1).Interior.ColorIndex = xlNone
Exit Sub
End If
Set myrange = Range("A1:A" & Lastrow)
For Each c In myrange
If c.Value = Target.Value Then
c.Interior.ColorIndex = 7
Else
c.Interior.ColorIndex = xlNone
End If
Next
End Sub
Mike
"Mike H" wrote:
Hi,
Right click your sheet tab, view code and paste this in and try selecting
cells in Column A
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column < 1 Then
Columns(1).Interior.ColorIndex = xlNone
Exit Sub
End If
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
Set myrange = Range("A1:A" & Lastrow)
For Each c In myrange
If c.Value = Target.Value Then
c.Interior.ColorIndex = 7
Else
c.Interior.ColorIndex = xlNone
End If
Next
End Sub
Mike
"igbert" wrote:
Is there a formula to highlight all duplicate cells from a selected cell?
Cell A1 aaa
Cell A2 bbb
Cell A3 8888
Cell A4 bbb
Cell A5 bbb
Cell A6 8888
Cell A7 8888
When I select bbb in Cell A2, I want the font in Cell A2, A4 and A5
highlighted. Likewise, if I select ccc in Cell A3, I want the font in Cell
A3, A6, A7 hightlighted.
|