Cellen Selecteren Dan Gehele Rij Kleuren

[marcel31281]

Beste Forumleden,

Onderstaande code heb ik werkend gekregen, op 1 rij in mijn werkblad.
Echter zou ik 6 cellen gelijk willen selecteren, zodat hij heel de week een kleur geeft.

Sub btnRowColor_Click()
Worksheets("Week 1").Range("D" & LTrim(Str(ActiveCell.Row)) _
& ":R" & LTrim(Str(ActiveCell.Row))).Interior.ColorIndex = 16
End Sub

Wat moet ik hiervoor aanpassen in deze code

Alvast bedankt,

 

[SjonR]

zo? Of denk ik te simpel?

Sub btnRowColor_Click()
Selection.EntireRow.Interior.ColorIndex = 16
End Sub

 

[marcel31281]

Bedankt voor je reactie, dit is inderdaad bijna wat ik bedoel.
Alleen zou ik de range nog aan willen geven in dit geval van D tot R, nu kleurt hij alles

Excuses als dat niet duidelijk was

 

[SjonR]

zo dan?

Sub btnRowColor_Click()
For Each cl In Selection
    Cells(cl.Row, 4).Resize(, 15).Interior.ColorIndex = 16
Next
End Sub

 

[emields]

een voorbeeldbestand voorkomt dat soort oplossingen. zeker van iemand die al zo lang lid is.

Selection.Range("d1:r6").Interior.ColorIndex = 16

 

[SjonR]

@ Emields

Dan zou jij toch moeten weten dat je codetags moet gebruiken

 

[emields]

inderdaad.

En waarschijnlijk moet uw code zo zijn.

Sub btnRowColor_Click()
For Each cl In Selection
    Cells(cl.Row, 4).Resize([COLOR="#FF0000"]6[/COLOR], 15).Interior.ColorIndex = 16
Next
End Sub

 

[SjonR]

Nee, juist niet.

 

[marcel31281]

Bedankt Allemaal

 

[emields]

Nee, juist niet.

hoe kleur je dan 6 rijen?

 

[SjonR]

TS wil 6 cellen selecteren, dus dan kleurt mijn code 6 rijen. Selecteert TS er 4 , dan 4 etc.

Daarom de loop.

 

[VenA]

Twijfelachtige vraag die zonder voorbeeldbestand niet eenduidig te beantwoorden is.

Dit zou ook kunnen

Sub VenA()
  Selection.Columns(1).Resize(, 15).Interior.ColorIndex = 16
End Sub

 

[HSV]

Of dit.

Sub hsv()
   Selection.Columns.Offset(, -Selection.Column + 4).Resize(, 15).Interior.ColorIndex = 16
End Sub