Opdrachtknop voor achtergrondkleur cel

[Gifre]

Hello,

Ik wil een geselecteerde cel de achtergrond een kleur geven met een opdrachtknop.

De keuze omvat slechts 3 kleuren.
Alle cellen zijn hebben groene achtergrond.
Bij keuze moet er gekozen kunnen worden tussen geel en rood, en bij verkeerde keuze terug naar de vaste kleur groen.
In de cellen staat zwarte getalnotatie.

Het liefst een zwevende opdrachtknop die verschijnt naast de geselecteerde cel.


Met een Macro lukt dit niet, dit kleurt enkel steeds dezelfde cel in.

Ook niet met voorwaardelijke opmaak omdat de waardes van de getallen kunnen verschillen per cel naargelang de uitkomst!

Groetjes Gifre,

 

[Leotaxi]

en bij verkeerde keuze terug naar vaste kleur groen


en wat is een verkeerde keuze ?

 

[edmoor]

Natuurlijk kan dat wel met een macro. Deze kleurt de geselecteerde cel:
ActiveCell.Interior.Color = vbGreen

En bij welke gebeurtenis moet die knop verschijnen?

 

[Gifre]

en bij verkeerde keuze terug naar vaste kleur groen


en wat is een verkeerde keuze ?

Dat is dus fout, er is geen verkeerde keuze.

Moet dus zijn dat er 3 kleuren kunnen gekozen worden, als er per ongeluk rood of geel gekozen wordt er terug naar de orriginele kleur kan gekozen worden.

 

[Gifre]

Natuurlijk kan dat wel met een macro. Deze kleurt de geselecteerde cel:
ActiveCell.Interior.Color = vbGreen

En bij welke gebeurtenis moet die knop verschijnen?

Bij selecteren cel, de opdrachtknop of wat het beestje ook noemt mag ergens naast de cel verschijnen, tis dat er gescrold wordt deze knop niet buiten beeld is!

Al bedankt ga met de macro aan de slag.

 

[edmoor]

Bij het selecteren van een cel zal dat niet lukken, wel bij het dubbelklikken op een cel.
Vergeet daarbij niet om van die gebeurtenis de Cancel op True te zetten.

Zoiets bijvoorbeeld:
Bekijk bijlage Celkleur.xlsm

 

[Gifre]

Bij het selecteren van een cel zal dat niet lukken, wel bij het dubbelklikken op een cel.
Vergeet daarbij niet om van die gebeurtenis de Cancel op True te zetten.

Zoiets bijvoorbeeld:
Bekijk bijlage 233639

Perfect :thumb:

Hoe kan ik de kleuren aanpassen, want deze zijn te fel, waar vind ik de code voor een specifieke kleur van groen-rood en geel?

Wat bedoel je met "Cancel op True" zetten is Chinees voor mij.

Al wreed bedankt.

 

[edmoor]

Dat kan je simpel in de code zien. Het dubbelklik event zit achter het werkblad en daar is die Cancel al geregeld. De kleuren zitten in de code achter het Userform.

 

[Gifre]

Dat kan je simpel in de code zien. Het dubbelklik event zit achter het werkblad en daar is die Cancel al geregeld. De kleuren zitten in de code achter het Userform.

Ok, ga nu slapen.

Laat morgen weten of het me gelukt is.

Wreed bedankt man,

 

[Gifre]

Lukt me niet de kleurcode te veranderen.

Krijg dan steeds de kleur zwart.

Heb het bestand gekopieerd en daar staan de juiste kleuren geel en groen.
Rood is ok.

 

[edmoor]

Het vervelende van het dubbelklik event is dat je eerst de cel moet selecteren door er eenmaal op te klikken en pas daarna te dubbelklikken.

 

[Gifre]

Het vervelende van het dubbelklik event is dat je eerst de cel moet selecteren door er eenmaal op te klikken en pas daarna te dubbelklikken.

Ja maar dat geeft niet, de cellen hebben bij invullen de kleur groen, tis dat de uitslag van de test geel of rood is dient deze aangepast te worden.

Het zijn maar enkele cellen waarvan de kleur dient aangepast te worden.

 

[edmoor]

Als je het doet op de manier zoals uitgelegd zal het gewoon goed gaan.

 

[Gifre]

Yep, is me gelukt.

In plaats van "vbYellow"
Heb ik bv voor geel "RGB(255,255,204)" gebruikt.

 

[edmoor]

En zo kan je iedere kleur gebruiken die je maar wilt.

 

[Gifre]

Bij mij werkt alles ook met blad beveiliging, deze is nodig voor andere gebruikers dat ze geen formulles zouden wissen.

Maar al bij 1 werkt het niet, loop vast op fout 1004 = Activecell

Kan dit komen dat ze een andere Excel versie hebben?

 

[edmoor]

Dan heb je daar vast iets niet goed staan.

 

[Gifre]

Zal hem hier neerzetten.
Benieuwd of het bij jou ook niet werkt!?

 

[edmoor]

Ik wil best even kijken maar dan moet je wel even vertellen waar het dan niet werkt.

 

[Gifre]

Bij kleurkeuze komt de foutmelding "Fout 1004"
Bij foutopsporing is dan Activecell gele inversie.

Maar als het bij jou werkt dan is er ofwel een zeer ouwe versie bij de andere gebruiker of verkeerd opgeslagen als gewoon Excel bestand en niet met macro's!?