• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Cellen kleuren via een formule

Status
Niet open voor verdere reacties.

Georgyboy

Gebruiker
Lid geworden
6 jan 2007
Berichten
883
Besturingssysteem
Windows 11
Office versie
365
Beste Excel freakers,
daar zijn we weer !

Vraagje: kan men zonder voorwaardelijke opmaak cellen kleuren?
vb in kolom B staat KB, AD, KE, VS, etc
en wil de volledige rij kleuren volgens wt in kolom B staat.
Alvast bedankt!:(
 
Niet met formules, alleen voorwaardelijke opmaak.
Je zou VBA kunnen overwegen, hiermee kan het wel degelijk.


Groet,
Ferenc

ps.
kom niet geheel uit je vb. misschien eentje aanhangen waarin je het laat zien.
Hoelang is bv je regel? nem aan dat je deze niet tot aan de laatste kolom wil verkleuren.
 
Rijen kleuren

Dag Ferenc,
bedankt voor je reactie,

Ja de volledige rijen mogen ingekleurd zijn
voorbeeld bestand tab voorlopig.
Met VBA heb ik weinig of geen ervaring

Bedankt Georges,
 

Bijlagen

  • Kopie van Personeelsplanning.zip
    21,9 KB · Weergaven: 1.250
waarom niet een voorwaardelijk opmaak als er 1 cel gevuld is dan kleurd de gehel rij.
bv als A4 een naam bevat dan wordt de gehele rij gekleurd.

Stappenplan:
-Selecteer cel B4
-voorwaardelijk op[maak
-verander "celwaarde is" naar "formule is"
-plaats de code: =$A4<>""
-kies een kleur
en beeindig voorwaardelijke opmaak.

-Kopieer nu cel B4
-Selecteer al de rijen en kolommen waar jij je voorwaardelijke opmaak wilt hebben en ga naar: bewerken/plakken speciaal/
-selecteer hier opmaak
-klik op ok.

Succes.
Tenzij je echt niet met voorwaardelijke opmaak wilt werken dan moeten we naar vba over stappen.

Groet,
Ferenc
 
Voorwaardelijke opmaak is duidelijk beter dan VBA. Ik zou eigenlijk niet weten waarom het niet met voorwaardelijke opmaak mag zijn.
 
Dag Ferenc,
bedankt voor je reactie,

Bedoeling is dat men de afdelingen goed kan onderscheiden, daar meerdere mensen dit
bestand gebruiken.
In de kolom H staan de verschillende afdelingen en per afdeling moet de rij verschillen in kleur.Er zijn ook een 10 tal afdelingen.
Verder is er ook een macro die telkens er een persoon bijkomt sorteerd op afdeling en vervolgens op naam.
Misschien is mijn vraag wat ver gezocht.Excel heeft zoveel mogelijkheden dat men steeds verder wil gaan nietwaar?
Grts Georges,
 
Aangezien je over de max van 3 opties gaat van de voorwaardelijke opmaak moet er , volgens mij, toch uitgeweken worden naar VBA.

Probeer eens de volgende code:
Code:
Sub kleur_afdelingen()

For Each c In Range("H4:H" & Range("H65536").End(xlUp).Row)
    If c = "AD" Then
        Range("A" & c.Row, "EH" & c.Row).Interior.ColorIndex = 46
    ElseIf c = "KB" Then
        Range("A" & c.Row, "EH" & c.Row).Interior.ColorIndex = 45
    ElseIf c = "LO" Then
        Range("A" & c.Row, "EH" & c.Row).Interior.ColorIndex = 44
    ElseIf c = "RO" Then
        Range("A" & c.Row, "EH" & c.Row).Interior.ColorIndex = 40
    ElseIf c = "T" Then
        Range("A" & c.Row, "EH" & c.Row).Interior.ColorIndex = 36
    ElseIf c = "VP" Then
        Range("A" & c.Row, "EH" & c.Row).Interior.ColorIndex = 35
    ElseIf c = "VS" Then
        Range("A" & c.Row, "EH" & c.Row).Interior.ColorIndex = 34
    ElseIf c = "WB" Then
        Range("A" & c.Row, "EH" & c.Row).Interior.ColorIndex = 37
    ElseIf c = "Afdeling 9" Then
        Range("A" & c.Row, "EH" & c.Row).Interior.ColorIndex = 24
    ElseIf c = "Afdeling 10" Then
        Range("A" & c.Row, "EH" & c.Row).Interior.ColorIndex = 39
    End If
Next

End Sub

Groet,
Ferenc
 
Pssssssst Ferenc,
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

(achter het blad)


Koosl
 
Laatst bewerkt:
Vba code invoegen ?

Bedankt voor jullie antwoord,

daar ik leek ben in VBA heb ik nog enkele vragen,

1) moet ik een macro knop maken ?
2) code kopieëren in VBA
3) waar moet dit van jou staan koos?

Mvg Georges,
 
Georges,

Kopieer Ferenc zijn mooie code.
Gan naar je Excel werkboek toe en druk op Alt en F11 (linker Alt toets)

Dubbelklik in de Projectverkener van Microsoft VisualBasic op This Workbook en
plak in het grote witte vlak de code van Ferenc.

Ga weer naar Excel naar het juiste sheet en maak daar een knop aan.
Beeld-Werkbalken-Formulieren
Klik op de zojuist verschenen balk op de rechthoekige knop, en teken met de linkermuisknop ergens op de sheet een rechthoek. Dit is je macroknop.

Er komt nu ook een schermpje "Macro toewijzen aan knop"
Klik hier de zojuist geplakte macro aan en klik op ok.

Als je nu op deze knop zou klikken wordt de macro van Ferenc gestart.

Koos.
 
Georges,

Als je dit hierboven voor elkaar gekregen hebt, kun je ook nog het volgende proberen.

Alt + F11 en ga naar This Workbook.
knip daar Ferenc zijn code en dubbelklik in de projectverkenner van VBA op het blad waar je Excel gegevens op staan en plak deze in het grote witte vlak.
(als het goed is gegaan staat deze niet meer in This Workbook)

kopieer de volgende regel:
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

En ga weer naar de code (op blad 1?)
Selekteer de gehele 1e regel en plak de regel die hierboven staat.

De macro knop kun je nu verwijderen.( rechtsklik op de knop druk op Esc en delete )

Nu start de macro iedere keer vanzelf als je een nieuwe afdeling toevoegd.

Veel plezier.

Koosl
 
Echt de max !

Bedankt Koos en Gerenc

Waw dat is super !
Koos ik heb het jouwe nog niet ingevoegd, zal dit proberen in een kopie,
vraagje kan ik de kleurcodes ergens terug vinden ( vb 39 = ?)

Ik denk dat ik wat VBA zou moeten leren, ik heb een 2 tal boeken
Excel 2002 Visual basic en Macro´s Programmeren met VBA.
Zelf heb ik een drempel het is zoiets van ik zal daar nooit iets van snappen.
Hopelijk vind ik de logica en inzicht.

Hey bedankt, hopelijk kan kan ik iets weer doen voor jullie,
alhoewel leek dat ik ben tov jullie?

Grts "de leek" Georges,
 
Koosl,
helemaal gelijk (gebruik eigenlijk weinig code op de werkbladen tot nu toe, ben er daarom ook nog niet zo bedreven in), bedankt om me er op te wijzen, werkt eigenlijk beter.

Georgy,
Meerendeel is zo begonnen zoals jij denkt.
pfffff, dat zal ik wel nooit leren.
Gelukkig sta je er niet alleen voor :), begin eens met wat simpele handelingen op te nmen met de macro recorder. Bekijk deze opgenomen code en probeer deze te begrijpen. Je kan je vragen hierover altijd hier op het forum kwijt :). Zp doende leer je steeds meer bij en na verloop van tijd klop je de formules vanuit je hoofd in.

Ben zelf ook pas sinds april bezig met VBA en daarvoor eigenlijk weinig met Excel gewerkt. Nu begint het een soort van virus te worden waaraan ik verslaafd aan het raken ben :p.

Succes,
En we komen elkaar wel weer tegen.


Groet,
Ferenc

ps. heb zelf in het begin heel wat gehad aan de uitleg welke te vinden is op luc hendrickx zijn site:
http://www.newbytes.be/
onder het kopje Excel.
 
Bedankt

Bedankt allemaal,
Ik heb het gevoel dat ik op het forum reeds enkele (virtuele) vrienden heb.
Hopelijk kan ik iets terug doen!

Reeds vol lof aan jullie van Georges:)
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan