voorwaardelijke opmaak in VBA. 1 cel, ganse rij

[zjaffar]

yo

Ik zou moeten een code hebben in VBA die voorwaardelijke opmaak toepast.
Als een bepaalde naam staat in kolom7 moet de ganse rij een kleur krijgen.
Ik heb al gezocht, maar ik vind geen code die mij een oplossing biedt om een ganse rij in te kleuren.

kan iemand mij helpen, ik heb nodig;

naam1 (in kolom 7) : oranje (ganse rij)
naam2: rood
naam3: geel
naam4: roze
naam5: donkerrood
naam6: licht paars

 

[Ad Becude]

zjaffar,

Gebruik de zoekfunctie eens, met als zoekwaarde "cel kleuren", je weet niet wat je ziet

 

[zjaffar]

je hebt me goeie hoop gegeven, maar kheb echt niet gevonden wat ik zocht.

ik heb nodig:

* voorwaardelijke opmaak in VBA (want het zijn meer dan 3 voorwaarden)

* de code om een ganse rij te kleuren met als voorwaarde dat er iets in kolom 7 staat.


kort samengevat

een code in VBA die in voorwaardelijke opmaak er zo uitziet :

formule = INDIRECT(ADRES(RIJ();7))="naam1"

 

[Finch]

Kijk eens even naar dit het bestandje in deze post:

http://www.helpmij.nl/forum/showpost.php?p=2550934&postcount=20

En meer bepaald naar de code achter sheet1. Dat is de basis die moet gebruiken, die kan je dan uitbreiden met een select case structuur waar je je verschillende waarde aftoetst voor het kleurverschil.
Oh ja, volgende code kan je in dat voorbeeldbestand gebruiken om de hele rij te kleuren ipv die ene cel.

Target.EntireRow.Interior.ColorIndex = 8

 

[zjaffar]

yo

die code begrijp ik totaal niet

kbeb wat zitten proberen met select case en de code die jij mij gaf, maar dat wilde gelijk niet direct lukken.

over target zegt hij: "ongeldige of niet gekwalificeerde vergelijking"

hummmm

Select Case organisator
Case organisator = "naam1": Target.EntireRow.Interior.ColorIndex = 8
End Select

 

[danny147]

Beste zjaffar

Heb eens rond gekeken op het forum en ben de volgende topic tegen gekomen.

Heb hem een beetje aangepast en in een bestandje gegoten.
Enkel is de rij gekleurd tot kolom EH, je kan dit wijzigen door IV (volledige rij in excel 2003 of XFD voor excel 2007)

Voor de kleurencodes ga dan naar de volgende site.

Groetjes Danny.

 

[zjaffar]

yo, dees is vreemd, het werkt perfect als ik het met jou excel doe, maar als ik het dan gebruik op mijn werkblad, dan werkt het niet.

dan zegt hij, c is niet gedefinieerd, en als ik hem dan wel definieer....dan gebeurd er niks

Sub kleur_rijen()

edit: het lukt dus wel

HEEEEEL EERGGG BEEDAANKTTTT

you made my day

wuhuw

For Each c In Range("E1:E" & Range("E65536").End(xlUp).Row)
If c = "naam1" Then
Range("A" & c.Row, "EH" & c.Row).Interior.ColorIndex = 46
ElseIf c = "naam2" Then
Range("A" & c.Row, "EH" & c.Row).Interior.ColorIndex = 3
ElseIf c = "naam3" Then
Range("A" & c.Row, "EH" & c.Row).Interior.ColorIndex = 6
ElseIf c = "naam4" Then
Range("A" & c.Row, "EH" & c.Row).Interior.ColorIndex = 38
ElseIf c = "naam5" Then
Range("A" & c.Row, "EH" & c.Row).Interior.ColorIndex = 30
ElseIf c = "naam6" Then
Range("A" & c.Row, "EH" & c.Row).Interior.ColorIndex = 13

End If
Next

 

[danny147]

Beste zjaffar

you made my day

De onze is ook goed zolang wij jullie maar van dienst kunnen zijn.

Wil je dan de vraag nog op opgelost zetten, onderaan rechts.

Groetjes Danny. :thumb: