Cells to be highlighted when clicked

[danjuma]

Hello,

What I want to be able to do is click any cell in columns A to F, and the rows for that particular cell will be highlighted (in say colour yellow), and becomes un-highlighted when I unclick from the cell. So basically, say I click cell C3, cells in the row A3:F3 will become highlighted, and the highlighting will disappear when I unclick from cell C3. I know, there are a few threads on highlighting cells, from searching through the forum, but I can't find one that specifically does what I want, and as I am not all that versed in VBA, I do not understand the most of the example codes, let alone trying to amend it to suit my needs.

Many thanks.

 

[syntaxed]

Right-click your sheet, left-click View Code and paste this:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Columns("A:F")) Is Nothing Then 
Columns("A:F").Interior.Pattern = xlNone
Range("A" & Target.Row & ":F" & Target.Row).Interior.ColorIndex = 6
End If
End Sub

Warning: This will remove any prior highlighting in columns A - F.

 

[jim may]

Paste this code into your Sheet Module

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column > 6 Then Exit Sub
Cells().Interior.ColorIndex = vbNone
Range(Cells(Target.Row, 1), Cells(Target.Row, 6)).Interior.ColorIndex = 6
End Sub

 

[jasonb75]

If I understand correctly, think this is what you need.

http://www.mrexcel.com/forum/showpost.php?p=2423364&postcount=11

 

[syntaxed]

In case you want it to work when you select multiple rows at the same time, this can be used:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Columns("A:F")) Is Nothing Then
Columns("A:F").Interior.Pattern = xlNone
For Each mycell In Target
    Range("A" & mycell.Row & ":F" & mycell.Row).Interior.ColorIndex = 6
Next
End If
End Sub

 

[danjuma]

Thank you everyone (syntaxed, jim may and jasonb75) for your assistance. Very much appreciated. I have settled for the solution in the link provided by jasob75. This is because this solution does not affect other conditional formats in other cells, and also the highlighting disappears (does not stay on when I unclick the cells it applies to).

Once more, many thanks everyone.