van actieve cellen de rijen kleuren

[abracadaver909]

Hallo,

Voor m'n werk is het handig als ik een bereik in een rij een kleurtje kan geven.
Nu ben ik al zover dat als ik een cel aanklik en dan op de zelfgemaakte macro-knop druk dat cel A t/m H van de active rij een kleur krijgt. Zie voorbeeld Bekijk bijlage blokkades_wupperman2.xls

Als code voor de macro-knop heb ik het volgende:

Dim x As Integer

Sub Rood()
    x = ActiveCell.Row

    Range("A" & x & ":H" & x).Select

       With Selection.Interior
        .ColorIndex = 3
        .Pattern = xlSolid
    End With
    
End Sub

Het probleem (eindelijk) is het volgende:
Op deze wijze kan ik maar één regel tegelijk een kleur geven.

Hoe kan ik de code aanpassen zodat ik meerdere rijen tegelijk kan kleuren?

Bij voorbaat dank,
Chris Verschoor

 

[HSV]

Zet het in een standaardmodule i.p.v. bladmodule.
sla het op; heropenen; hang het aan knop geel, en sla het op.

Sub Geel()
  x = Selection.Rows.Count
Range("A" & ActiveCell.Row & ":H" & ActiveCell.Row).Resize(x).Select
   
    With Selection.Interior
        .ColorIndex = 27
        .Pattern = xlSolid
    End With
    
End Sub

 

[abracadaver909]

Harry,

Je code werkt perfect. Bedankt daarvoor! Ik zet 'm op opgelost!

Maar even voor mijn gemoedsrust: wat bedoel je precies met standaardmodule i.p.v. bladmodule?

Groeten Chris

 

[HSV]

Graag gedaan Chris,

Het staat nu in bladmodule van Blad1.
Menu Invoegen → Module, en plak daar de code, en verwijder het uit de bladmodule.
Succes.

 

[abracadaver909]

Helemaal top, Harry.

Nogmaals bedankt!!!