row van active cell kleuren

[Neuz]

Hey allemaal,

Ik ben bezig met een document waarin werknemers makkelijk hun rooster in kunnen vullen.
Omdat je verschillende kolommen moet invullen wil ik de rij een kleur laten geven
zodra je een cel aan klikt binnen het bereik E t/m BC.

Kort gezegd als ik de cel G7 aan klik dan wil ik dat de cellen E7 t/m BC7 een kleur krijgen.
Zodra ik dan weer een andere cel aan klik wil ik dat deze weer "normaal" van kleur wordt
en de nieuwe rij ingekleurd wordt.

Zou iemand mij met dit probleem kunnen helpen?

Alvast bedankt voor de moeite.

Groet Neuz

 

[E v R]

aanzetje:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Columns("E:BC")) Is Nothing Then Columns("E:BC").Interior.Color = xlNone: Exit Sub
Columns("E:BC").Interior.Color = xlNone
Range(Cells(Target.Row, 5), Cells(Target.Row, 55)).Interior.Color = 255
End Sub

 

[Neuz]

Beste E v R,

Dit script werkt perfect. Heb even uitgezocht hoe alles werkt en hoe het in elkaar zit en is redelijk makkelijk te begrijpen.
Alleen er is een klein dingetje die 255 in de laatste regel staat voor de rode kleur alleen hoe weet ik welke nummer welke kleur is?

Alvast bedankt.

Groet Neuz

 

[snb]

of eventueel:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Columns("E:BC")) Is Nothing Then
        Application.EnableEvents = False
        Target.Resize(, 7).Select
        Application.EnableEvents = True
    End If
End Sub

 

[Neuz]

Sorry van de late reactie maar was even druk.

Bedankt voor beide antwoorden werken alle 2 super.

Groet Neuz