Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 16 van 16

Onderwerp: Cellen kleuren via een formule

  • Vraag is opgelost
  1. #1
    Senior Member
    Geregistreerd
    6 januari 2007
    Locatie
    Veurne
    Afstand tot server
    ±349 km

    Cellen kleuren via een formule

    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!

  2. #2
    Mega Senior
    Verenigingslid

    Geregistreerd
    24 mei 2006
    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.

  3. #3
    Senior Member
    Geregistreerd
    6 januari 2007
    Locatie
    Veurne
    Afstand tot server
    ±349 km

    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,
    Attached Files Attached Files

  4. #4
    Mega Senior
    Verenigingslid

    Geregistreerd
    24 mei 2006
    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

  5. #5
    Giga Honourable Senior Member
    Geregistreerd
    6 april 2006
    Locatie
    Mechelen
    Afstand tot server
    ±190 km
    Voorwaardelijke opmaak is duidelijk beter dan VBA. Ik zou eigenlijk niet weten waarom het niet met voorwaardelijke opmaak mag zijn.

  6. #6
    Senior Member
    Geregistreerd
    6 januari 2007
    Locatie
    Veurne
    Afstand tot server
    ±349 km
    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,

  7. #7
    Mega Senior
    Verenigingslid

    Geregistreerd
    24 mei 2006
    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

  8. #8
    Senior Member
    Geregistreerd
    7 januari 2006
    Locatie
    N.B.
    Pssssssst Ferenc,
    Code:
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    (achter het blad)


    Koosl
    Laatst aangepast door koosl : 13 januari 2007 om 17:12

  9. #9
    Senior Member
    Geregistreerd
    6 januari 2007
    Locatie
    Veurne
    Afstand tot server
    ±349 km

    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,

  10. #10
    Senior Member
    Geregistreerd
    7 januari 2006
    Locatie
    N.B.
    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.

  11. #11
    Senior Member
    Geregistreerd
    7 januari 2006
    Locatie
    N.B.
    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

  12. #12
    Senior Member
    Geregistreerd
    6 januari 2007
    Locatie
    Veurne
    Afstand tot server
    ±349 km

    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,

  13. #13
    Mega Senior
    Verenigingslid

    Geregistreerd
    24 mei 2006
    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 .

    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.

  14. #14
    Mega Senior
    Verenigingslid

    Geregistreerd
    24 mei 2006
    Kleuren codes zijn hier te vinden:
    http://www.mvps.org/dmcritchie/excel/colors.htm

    je kan deze ook mbv van de macrorecorder makkelijk achterhale .

    Groet,
    Ferenc

  15. #15
    Senior Member
    Geregistreerd
    6 januari 2007
    Locatie
    Veurne
    Afstand tot server
    ±349 km

    Thumbs up 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

  16. #16
    Giga Honourable Senior Member
    Geregistreerd
    6 april 2006
    Locatie
    Mechelen
    Afstand tot server
    ±190 km
    Quote Origineel gepost door Georgyboy Bekijk Bericht
    Hopelijk kan ik iets terug doen!
    Georges

    Mijn autootje is vuil...

    Grapje

    Wigi

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren
Linkpartners
Aanbiedingen