[Excel 2007]Achtergrondkleur rij veranderen aan de hand van keuze uit lijst

[tijmen_4real]

Hoi

Voor dit deel zoek ik op dit forum hulp:



Wanneer met in kolom K een keuze maakt uit één van de drie opties dan wil ik dat de achtergrondkleur van de hele rij (A t/m K) in een gekozen kleur veranderd.
Hier heb ik nog geen code bij kunnen maken, omdat ik simpelweg niet weet hoe te beginnen. En, kan dit ook zonder VBA toe te voegen?

- Keuzeoptie 1 uit lijst geeft gele achtergrond
- Keuzeoptie 2 uit lijst geeft groene achtergrond
- Keuzeoptie 3 uit lijst geeft rode achtergrond

Wie wil mij helpen aan een oplossing alsjeblieft?
Bij voorbaat dank en met vriendelijke groet,

Tijmen

 

[Haije]

kijk eens in de help van Excel bij Voorwaardelijke opmaak.

En ja dat kan zonder macro's/VBA

 

[tijmen_4real]

kijk eens in de help van Excel bij Voorwaardelijke opmaak.

En ja dat kan zonder macro's/VBA

Maar ik wil die cel en diens gehele rij kleuren...

 

[gast0660]

Hoi,
Hierbij voorzetje, zie VO

 

[maomanna]

toevallig gisteren gevonden:

Sub Worksheet_Change(ByVal Target As Range)

Set MyPlage = Range("B1: B15 ")

For Each cell In MyPlage

Select Case cell.Value

Case Is = "Y"
cell.EntireRow.Interior.ColorIndex = 43

Case Is = "N"
cell.EntireRow.Interior.ColorIndex = 3

Case Is = "P"
cell.EntireRow.Interior.ColorIndex = 6



Case Else
cell.EntireRow.Interior.ColorIndex = xlNone


End Select
Next
End Sub

Pas P, Y of N aan naar de waarde die je wilt en de range van cellen.

 

[tijmen_4real]

toevallig gisteren gevonden:

Sub Worksheet_Change(ByVal Target As Range)

Set MyPlage = Range("B1: B15 ")

For Each cell In MyPlage

Select Case cell.Value

Case Is = "Y"
cell.EntireRow.Interior.ColorIndex = 43

Case Is = "N"
cell.EntireRow.Interior.ColorIndex = 3

Case Is = "P"
cell.EntireRow.Interior.ColorIndex = 6



Case Else
cell.EntireRow.Interior.ColorIndex = xlNone


End Select
Next
End Sub

Pas P, Y of N aan naar de waarde die je wilt en de range van cellen.

Dit werkt prima, maar ik wil wel de kolommen van A t/m K kleuren, niet de hele rij. Hoe kan ik dat doen?

 

[maomanna]

dan moet je het voorbeeld van gast0660 pakken.

Wellicht kan je zoeken naar een andere optie voor
cell.EntireRow.Interior.ColorIndex

 

[Wigi]

Zoals:

Range("A" & cell.Row).resize(,11).Interior.ColorIndex = 43

of:

cell.Offset(,-1).resize(,11).Interior.ColorIndex = 43

 

[tijmen_4real]

dan moet je het voorbeeld van gast0660 pakken.

Wellicht kan je zoeken naar een andere optie voor
cell.EntireRow.Interior.ColorIndex

Ik heb inderdaad het voorbeeld overgenomen, dit werkt naar wens. Mijn dank aan allen!

 

[gast0660]

Hoi,

kan dit ook zonder VBA toe te voegen?

Tja daarom mijn voorstel zonder Code

 

[maomanna]

De optie van Dotchie werkt niet met gedeelde bestanden.