alpha

Ervan uitgaande dat in een kolom geen zelfde getallen voorkomen, typ in G3 en kopieer naar beneden: =ALS.FOUT(INDEX(G$3:G$18;VERGELIJKEN(F3;G$3:G$18;0));"")

Graag gedaan !

Typ in F2 en kopieer naar beneden: =ALS(OF(EN(D2="Werken";E2>=5548000);EN(OF(D2="Leveringen";D2="Diensten");E2>=144000));"Ja";"")

Tijden zijn getallen, dus sowieso moet je bij fRestantUren = "0" en Tijd1VerlofUren = "0" de aanhalingstekens bij de nullen weghalen. Of je macro dan wel probleemloos zal werken, is zo niet te zeggen (zie opmerking Bucky).

Er is in Excel een optie om nulwaarden te verbergen. In Excel 2010 (voor Windows) is die te vinden als volgt: Kies Bestand - Opties - Geavanceerd, dan vind je aan de rechterkant onder de kop: "Weergave-opties voor dit werkblad" de optie: "Een nul weergeven in cellen met een nulwaarde". Als je dat niet wil, haal je daar het vinkje weg en klik je rechts-onderaan op Ok.

Het kán een registerprobleem zijn of het kan te maken hebben met het e-mailprogramma dat je gebruikt. Zie: https://ficility.net/tag/microsoft-fix-it-50388/ (dat gaat weliswaar over Outlook, maar het geldt ook voor Excel). Let op als je MicrosoftEasyFix50388.msi wil downloaden. Op de in de vorige zin vermelde website niet op de groene downloadknop klikken want dat is een advertentie, maar op de blauwe tekst "Microsoft Fix it 50388"(MS source). Zie ook: https://www.msoutlook.info/question/242 .

Het getal 397 staat in een ander rooster op blad1. Je moet de formules voor voorw. opmaak per rooster van blad1 instellen. Dus: zelfde manier als hierboven door Haye vermeld: op blad1 het bereik $J$4:$J$29 een naam geven en dan een zelfde soort formule gebruiken als hierboven vermeld.

Goed opgemerkt Haye ! Ik kon het me niet meer herinneren, het is te lang geleden dat ik met Office 97-2003 gewerkt heb. In de Excelversies na 2003 is bij voorw. opmaak verwijzen naar andere werkbladen wel mogelijk.

Stel de opmaak in voor 1 cel en kopieer die opmaak daarna naar de andere cellen.

Je werkt met een zeer oude versie van Excel, de kleur valt weg als ik het bestand opsla in compatibiliteitsweergave en het dan hier op het forum plaats. Je kunt dit doen voor de woorw. opmaak: Selecteer op 'Worksheet Presence' (waarom dat woord Worksheet er bij, je kun t toch zo wel zien dat dat een werkblad is?) het bereik B9:i47 en stel in bij voorw.opmaak: =VERGELIJKEN($E9;'worksheet zaterdag'!$D$4:$D$29;0)

Je kunt je er altijd eens in verdiepen. De helpfile van Excel (F1) geeft zeer goede uitleg en op internet kun je gratis cursussen vinden.

Dat zou je toch eigenlijk zelf moeten kunnen hoor! =ALS(B4="";"";VERT.ZOEKEN(B4;Rooster;2;0))

Zie de bijlage. Er is van uit gegaan dat het feit of de code al dan niet voorkomt, bepalend is voor kleurweergave en niet aan welke naam die is gekoppeld. PC-Helpf Gilles.xls

Let wel op dat je in het rooster elkaar overlappende tijden hebt ingesteld.

Ik zie geen autonamen.

Zie de bijlage. PC-Helpf ellenclaes.xlsx

Je kunt boven de eerste 3 en onderaan alle rijen vanaf rij 33 verbergen, dan is alleen dat zichtbare gebied bewerkbaar. Bovenaan kun je i.p.v. 'verbergen' eventueel voor titelblokkering kiezen.

Opmerking vooraf: een gewone macro zoals voor deze toepassing hoort in een module en niet in blad1. Sub macro1() Dim x As Integer x = 3 With Sheets(1) Do Until x = .Range("c" & .Rows.Count).End(xlUp).Row + 1 If Not IsEmpty(.Range("a" & x)) Then x = x + 1 .Range("a" & x - 1 & ":b" & x - 1).Copy .Range("a" & x) x = x + 1 Loop End With End Sub

Je wil A40:B40 (als dat wat in staat, maar die cellen zijn nu leeg) kopiëren naar beneden t/m A46:B46, zover begrijp ik het nog. Voor het overige kan ik je niet volgen.

Over het "Alleen lezen" zijn van je Wordbestanden kan ik niets zeggen, dat zijn Wordbestanden die op jouw computer staan. De macro wijzigt aan het wel- of niet leesbaar zijn niets. Maak als test eens een aantal nieuwe docx-bestanden aan en voer de macro daar op uit. Met de macro wordt de naam van de Wordbestanden niet gewijzigd, alleen de extensie. Let er wel op dat er vanuit is gegaan dat je Wordbestanden .docx-bestanden zijn en bv. niet .doc- of docm-bestanden.

Jazeker, welke eerst of tweede staat doet er niet toe.

1 opmerking nog: Je kunt natuurlijk ook beide opdrachten in dezelfde macro onderbrengen, dan wijzig je beide items tegelijkertijd.

Dat hoeft niet handmatig. Als je de macro hierboven goed bekijkt, dan kun je toch wel bedenken dat die macro slechts een kleine aanpassing behoeft om in plaats van de titel het item "Opmerkingen" te wijzigen? Wijzig .BuiltInDocumentProperties(wdPropertyTitle) = "Mijn titel" in: .BuiltInDocumentProperties(wdPropertyComments) = "Mijn opmerking" waarbij je in plaats van "Mijn opmerking" een zelfgekozen tekst kiest.

Mooi zo, en dank voor je reactie. De macro in je topic over het omzetten van Wordbestanden naar pdf's doet het ook goed, neem ik aan? Op mijn computer in elk geval wel.

Gebruik onderstaande macro in een Worddocument dat niet in de map staat waarin je documenttitels wil wijzigen. Vul bij mydir het pad in dat van toepassing is op jouw computer en natuurlijk ook verderop in de macro de juiste titel voor al die documenten. Sub Titel_wijzigen() Dim fso, folder, files, mydir As String Application.Visible = False mydir = "Hier het pad op jouw computer invullen" Set fso = CreateObject("Scripting.FileSystemObject") Set folder = fso.GetFolder(mydir) Set files = folder.files For Each file In files Documents.Open FileName:=file.path With ActiveDocument .BuiltInDocumentProperties(wdPropertyTitle) = "Mijn titel" .Close (wdSaveChanges) End With Next file Application.Visible = True End Sub