Rij kleuren als cel aangeklikt wordt

[Pirelo]

Heb deze code gevonden maar hier wordt de hele rij van de geselecteerde cel ingekleurd, ik zou enkel rij willen inkleuren tot een zeker punt.
BV, in geselecteerde zone "A2:AB23" of tot kolom AB .

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Cells.Interior.ColorIndex = xlColorIndexNone
ActiveCell.EntireRow.Interior.ColorIndex = 36


End Sub

 

[edmoor]

Probeer deze eens:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    Cells.Interior.ColorIndex = xlColorIndexNone
    Range("A" & Target.Row & ":AB" & Target.Row).Interior.ColorIndex = 36
End Sub

 

[Pirelo]

Werkt prima, bedankt

 

[edmoor]

Ok dan. Maar toch iets aangepast

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    Cells.Interior.ColorIndex = xlColorIndexNone
    Range("A" & Target.Row).Resize(, 28).Interior.ColorIndex = 36
End Sub

Zo is die Target.Row maar 1x nodig en hoeft er niets aan elkaar geplakt te worden.
Is netter.

 

[Pirelo]

Prima Dank u