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

Quote

Weergeven resultaten 1 tot 5 van 5

Onderwerp: Alleen niet-geblokkeerde cellen andere kleur geven

  1. #1
    Vraag is niet opgelost

    Alleen niet-geblokkeerde cellen andere kleur geven

    Goedemorgen,

    Ik heb een werkblad gemaakt welke door collega's ingevuld moet gaan worden.
    De cellen waar niets ingevuld hoeft te worden zijn geblokkeerd, het werkblad is beveiligd.

    De cellen die wel ingevuld moeten worden heb ik een kleurtje gegeven en zijn uiteraard niet geblokkeerd.

    Als ik het werkblad afdruk wil ik graag dat de gekleurde invulvelden wit gemaakt worden, dat staat wat netter op de print.
    Na afdrukken mogen de cellen wit blijven.

    Nu zoek ik een VBA-script om alleen de niet-geblokkeerde cellen op het werkblad wit te maken bij afdrukken.
    Heb het al eerder geprobeerd met voorwaardelijke opmaak maar dat is geen suc6.

    Iemand een iedeetje?

    Groet,
    Marco
    Bijgevoegde bestanden Bijgevoegde bestanden

  2. #2
    Senior Member
    Geregistreerd
    23 mei 2013
    zo?
    Bijgevoegde bestanden Bijgevoegde bestanden

  3. #3
    Hoi,

    Nog niet helemaal. Ik heb in de werkmap zo'n 20 bladen zitten met erg veel cellen op verschillende plaatsen.
    Ik zoek eigenlijk een formule die zegt:

    Alle niet geblokkeerde cellen = wit

  4. #4
    Ik kon zo snel niet de juiste events vinden om het in of uit te schakelen voor en na printen.
    maar deze macro's in een Module1 werken, je kunt ze dan naar wens aanroepen in de events

    Code:
    Sub CelOntkleuren()
    
    For Each cl In ActiveSheet.UsedRange
        If cl.Locked = False Then cl.Interior.Color = xlNone
    Next
        
    End Sub
    Code:
    Sub CelKleuren()
    
    For Each cl In ActiveSheet.UsedRange
        If cl.Locked = False Then cl.Interior.Color = 10079487
    Next
        
    End Sub

    PS: jou voorbeeld bestand had alleen locked cells dus daar zal je eerst een paar cellen op unlocked moeten zetten om het te testen...
    Laatst aangepast door roeljongman : 11 februari 2019 om 15:26

  5. #5
    Mega Senior E v R's avatar
    Geregistreerd
    22 oktober 2008
    Je kunt, tenminste als zwart-wit print voldoende is en er geen andere kleuren zijn, de page-setup op zwart-wit zetten.
    Dan is 1 eenmalige handeling voldoende per sheet:

    Code:
    Worksheets("Blad1").PageSetup.BlackAndWhite = True
    Gr. Eric

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