Conditional formatting uitbreiden

[rostie-rostelli]

Hallo,

Ik heb een engelstalige versie 2003 van excel, ik moet voor een volledig werkblad een voorwaardelijke opmaak maken voor wat betreft "celkleur" en "tekstkleur", via "voorwaardelijke opmaak" / "conditional formatting" heb ik maar 3 mogelijkheden !! ik heb er echter een 20-tal nodig, is hier een oplossing mogelijk? eventueel met vba?

Alvast bedankt,
Danny

 

[Roncancio]

Hallo,

Ik heb een engelstalige versie 2003 van excel, ik moet voor een volledig werkblad een voorwaardelijke opmaak maken voor wat betreft "celkleur" en "tekstkleur", via "voorwaardelijke opmaak" / "conditional formatting" heb ik maar 3 mogelijkheden !! ik heb er echter een 20-tal nodig, is hier een oplossing mogelijk? eventueel met vba?

Alvast bedankt,
Danny

Het is inderdaad mogelijk, maar dan wel met VBA.
Heb je een voorbeeld bestand zonder gevoelige informatie?

Met vriendelijke groet,


Roncancio

 

[rostie-rostelli]

Hallo,

Hierbij een voorbeeldbestandje, even wat uitleg:
op tabblad "menu" staat een lijstje met afkortingen en bijhorende kleuren(opmaak) voor deze afkortingen, op tabblad "ploeg1" kan je per dag via een keuzelijstje een van deze afkortingen invoeren waarna deze de juiste opmaak moeten krijgen zoals op tabblad "menu" aangegeven, LET OP! de reeds aanwezige opmaken in tabblad "ploeg1" moeten ongewijzigd blijven.

Alvast heel erg bedankt voor de moeite :thumb:
Danny

 

[zapatr]

LET OP! de reeds aanwezige opmaken in tabblad "ploeg1" moeten ongewijzigd blijven.y

Alle cellen in het blad Ploeg 1waar iets in staat, hebben al een kleur.
Wat valt er dan nog op te maken in het blad Ploeg1 ?

 

[Warme bakkertje]

http://www.helpmij.nl/forum/showthread.php?p=3106705#post3106705
Lees bovenstaande post eens door

 

[rostie-rostelli]

Wel ZAPATR,
I
n tabblad "menu" (kolon A) staan een 30-tal afkortingen met elk zijn eigen opmaak (vb geel achtergrond met rode tekst) in tabblad "ploeg1" kan je met behulp van een keuzemenu per dag en per personeelslid een van deze voorgenoemde afkortingen inbrengen, deze moeten uiteraard dezelfde opmaak krijgen zoals in tabblad "menu" vb. geel achtergrond met rode tekst.

mvg,
Danny

 

[zapatr]

Wel ZAPATR, In tabblad "menu" (kolon A) staan een 30-tal afkortingen met elk zijn eigen opmaak (vb geel achtergrond met rode tekst) in tabblad "ploeg1" kan je met behulp van een keuzemenu per dag en per personeelslid een van deze voorgenoemde afkortingen inbrengen, deze moeten uiteraard dezelfde opmaak krijgen zoals in tabblad "menu" vb. geel achtergrond met rode tekst.

Dan heb je het wel verkeerd geformuleerd, want dat wil zeggen dat de reeds aanwezige opmaken in
tabblad "ploeg1" NIET ongewijzigd moet blijven.
Met de link die bakkertje gaf, zou je dit moeten kunnen klaren, lijkt mij.
Dat is bijna een kant-en-klare oplossing.

 

[rostie-rostelli]

Toch niet ZAPATR !! de reeds aanwezige code's in "ploeg1" moet blijven zoals ze zijn, het zijn de witte cellen die moeten aangepast worden via rolmenu, eventueel wijzigingen in de reeds bestaande code's zijn ook mogelijk en moeten dus evenredig aangepast worden.
Maar !! de code van Warm bakkertje is een perfecte oplossing !!:thumb:

enkel nog een klein vraagje,
- de code spreekt enkel voor achtergrondkleur, wat zet ik voor de tekstkleur ??
- waar kan ik de colorindex vinden( welk kleur komt overeen met welk cijfer)??

Iedereen alvast bedankt
Danny

 

[japio86]

Danny,

Voor achtergrondkleur van een cel gebruik ik de volgende code:

Sheet8.Range("C5").Interior.Color = RGB(0, 244, 0)

Kleurencodes van RGB heb ik van de volgende site
http://www.free-bird.nl/tut/color_tool.htm

Gr, Jaap

 

[Roncancio]

In plaats van Interior gebruik je voor de tekst Font.
Dus:

cl.Font.ColorIndex = 2

Voor de kleuren, zie hier

Met vriendelijke groet,


Roncancio

 

[Warme bakkertje]

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [D3:T367]) Is Nothing Then
Select Case Target.Value
            Case "RC", "RC/P", "RC/A", "0044", "44/P", "44/A", "0079", "79/P", "79/A", "0029", "29/P", "29/A", "0048", "0501", "0081", "73/?", "74/?"
                Target.Interior.ColorIndex = 6
                Target.Font.ColorIndex = 3
            Case "Z/M"
                Target.Interior.ColorIndex = 6
            Case "PMP", "TMT", "SMS", "BMB"
                Target.Interior.ColorIndex = 15
            Case "VM"
                Target.Interior.ColorIndex = 37
                Target.Font.ColorIndex = 3
            Case "DR"
                Target.Interior.ColorIndex = 7
            Case "CR/?"
                Target.Interior.ColorIndex = 38
            Case "RCY+"
                Target.Interior.ColorIndex = 3
                Target.Font.ColorIndex = 2
            Case "RCY", "ECOL"
                Target.Interior.ColorIndex = 42
            Case "F.F."
                Target.Interior.ColorIndex = 43
            Case Else
                Target.Interior.ColorIndex = xlNone
        End Select
End If
End Sub

 

[zapatr]

Maar !! de code van Warm bakkertje is een perfecte oplossing !!

Dat zei ik hiervoor ook al.

de reeds aanwezige code's in "ploeg1" moet blijven zoals ze zijn....
eventueel wijzigingen in de reeds bestaande code's zijn ook mogelijk....

Dat is toch met elkaar in tegenspraak?
Een cel die een kleur heeft, heeft een opmaak !
Maar het is inmiddels duidelijk wat je bedoelt en je hebt een oplossing,
dus laten we er verder niet over discussiëren.

 

[rostie-rostelli]

Hallo iedereen,

Hartelijk dank aan iedereen om mijn probleem helpen op te lossen !!:thumb: maar speciaal aan Warme bakkertje die mijn volledige code :shocked: reeds op dit forum plaatste mijn speciale dank !!

Groetjes en tot de volgende......vraag.......!!
Danny

 

[Roncancio]

Hallo iedereen,

Hartelijk dank aan iedereen om mijn probleem helpen op te lossen !!:thumb: maar speciaal aan Warme bakkertje die mijn volledige code :shocked: reeds op dit forum plaatste mijn speciale dank !!

Groetjes en tot de volgende......vraag.......!!
Danny

Gaarne nog even de vraag op opgelost zetten (rechts onderaan op de pagina).
Bvd.

Met vriendelijke groet,


Roncancio