Selectie highlight

[erpee]

Ik wil in mijn werkblad het volgende voor elkaar krijgen:

Als ik ergens klik in rij 6 , wil ik dat de selectie C6:Z6 een highlight krijgt op de achtergrond.​

Op Youtube zie ik genoeg voorbeelden hoe ik de hele rij een highlight kan geven ar dat vind ik niet mooi genoeg. Wil tdus specifieker.

Iemand een idee?

 

[OctaFish]

Dat is toch simpel, als je al een macro hebt kun je simpel de range aanpassen.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Row = 6 Then Range("C6:Z6").Interior.ColorIndex = 6 Else: Range("C6:Z6").Interior.Pattern = xlNone
End Sub

 

[erpee]

Dat is toch simpel, als je al een macro hebt kun je simpel de range aanpassen.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Row = 6 Then Range("C6:Z6").Interior.ColorIndex = 6 Else: Range("C6:Z6").Interior.Pattern = xlNone
End Sub

Dank Je!!
Gelukkig dat het zo makkelijk is, Heb ik snel een antwoord. Maar, heb mijn vraag dus niet expliciet genoeg gemaakt. Hoe maak ik die code zo dat het voor alle rijen geldt ...
Dus als ik daarna op rij 8 klik, dat dan bij C8:Z8 hetzelfde gebeurt.
Het moet dus niet aan 1 rij hangen maar dynamisch worden.

 

[snb]

Kun je svp niet citeren/quoten ?

 

[gast0660]

Zoiets?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveRow = ActiveCell.Row
    Cells.Interior.ColorIndex = xlNone
        Range(Cells(ActiveRow, 3), Cells(ActiveRow, 26)).Interior.ColorIndex = 8
End Sub

 

[snb]

Hou het simpel:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Range("C1:Z1").Offset(Target.Row - 1).Select
End Sub

 

[jkpieterse]

Ik denk dat er nog een

Target.Activate

bij moet...

 

[erpee]

Dank je gast0660, Werkt perfect

 

[gast0660]

Dank voor de terugkoppeling:thumb:
Suc6