need a cell(s) highlighted when clicking on another cell in the same row/column

[carchbold91]

Hello,

I am working a spreadsheet for my job in which I need certain cells in the same row/column to be highlighted when clicking on another cell. For example, if I click on D9, I want cells B9 (same row) and D1 (same column) to be highlighted a given color. I want this same rule to be implied for range C4;T17. I don't the whole row/column highlighted, just the given cells. I tried looking for codes online but I have been unsuccessful thus far. Please someone help me resolve this issue or give me a code I could use.

P.S : For the example I gave earlier, it would be helpful as well if someone could tell me how to highlight cell D2 as well (along wit cell B9 and D1), if clicked on cell D9.

Thanks,
Chris

 

[John Davis]

Maybe:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'ActiveSheet.UsedRange.Interior.ColorIndex = xlNone - Optional
If Target.address = "$D$9" Then
    Cells(Target.row, 2).Interior.ColorIndex = 6
    Cells(1, Target.Column).Interior.ColorIndex = 6
    Cells(2, Target.Column).Interior.ColorIndex = 6
End If
End Sub

 

[carchbold91]

It didn't work but thanks for trying!

Chris

 

[Marcelo Branco]

See if this does what you need

Put the code below in the Worksheet Module

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Static previousCell As Range
       
    If Not previousCell Is Nothing Then
        If Not Intersect(Range("C4:T17"), previousCell) Is Nothing Then
            Cells(previousCell.Row, "B").Interior.Color = xlNone
            Cells(1, previousCell.Column).Interior.Color = xlNone
        End If
    End If
            
    If Not Intersect(Range("C4:T17"), Target) Is Nothing Then
        Cells(Target.Row, "B").Interior.Color = vbYellow
        Cells(1, Target.Column).Interior.Color = vbYellow
    End If
    
    Set previousCell = Target
End Sub

Hope this helps

M.

 

[carchbold91]

IT WORKED! THANKS SO MUCH!

-Chris