Selection Change to Format Cells in tha particular Row

[silentwolf]

Hi,
I like to be able to highligth the Cell in column A after I pick a cell in that same row.

I got a formated table in a worksheet.
If I either mouse over or select a cell in that row I like to change the back color of that row.. Idealy from A:J in that row so I know which row has been selected or clicked.

Maybe even the row and the Column but only within.

So I got data in A3:I20.. if I select the Cell from B3:I20 I would like to highligth the row A3:J3

Hope I have it made clear what I am after.

I found a code on the net but it is not quite what I am after.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Me.Range("A1:XFD1048576").Interior.ColorIndex = 0
    Target.EntireRow.Interior.ColorIndex = 6
End Sub

Many thanks

Albert

 

[Yongle]

perhaps

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Row = 1 Or Target.Cells.CountLarge > 1 Then Exit Sub
    If Not Intersect(Range("B:I"), Target) Is Nothing Then
        Me.Range("A:J").Interior.ColorIndex = 0
        Cells(Target.Row - 1, 1).Resize(, 10).Interior.ColorIndex = 6
    End If
End Sub

 

[silentwolf]

Hi Thanks for your reply,

unfortunately I am getting a 1004 runtim error on

Me.Range("A:J").Interior.ColorIndex = 0

 

[silentwolf]

I have been looking at the web and found a code.

So when I use that code in a worksheet with no format on it it works fine but on every Sheet which has formating in it "just colors" no formular or anything.. then I get also a 1004 runtime error.
Cells.Interior.ColorIndex = xlNone

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Dim i As Integer

    Cells.Interior.ColorIndex = xlNone

    'loop to color down a column
    For i = 1 To Target.Row
        Cells(i, Target.Column).Interior.ColorIndex = 6
    Next
    'loop to color down a column
    For i = 1 To Target.Column
        Cells(Target.Row, i).Interior.ColorIndex = 6
    Next
End Sub

it is getting there but just not quite there yet.

Many thanks

Albert