Vakken kleuren als je datum invoert van/tot

[AHulpje]

Nee hoor, je hoeft de namen niet op nieuw in te tikken, ik heb namelijk nog een foutje gevonden, alleen de verloven t/m rij 14 werden opnieuw geplaatst! Dat is in bijgaande versie verbeterd.
Je hoeft alleen te verversen als je een bestaande verlofperiode verkort. Alle verlofperiodes die je invoert worden direct gemarkeerd zodra medewerker, start- en einddatum zijn gevuld.

 

[lpotjes]

Nu doet het plannen op een andere dag niet meer, hij geeft wel mooi verlof aan maar op een andere dag krijg ik een andere melding na je laatste update.

aanvulling: Oh zie nu nog een bericht van je. Zie dat het daar ook niet werkt. Ik ga het even bekijken. super bedankt nog steeds voor je moeite hoor!

 

[AHulpje]

Zo beter?

 

[Warme bakkertje]

Er zaten nog enkele foutjes in de Event code van Sheet Diensten, zoals het selecteren van meerdere cellen om te wissen en ook een foutje in de Maand functie om de juiste maand te bepalen bij het plannen.

 

[AHulpje]

@Warme bakkertje
Ik ben het eens met je eerste opmerking, dank daarvoor. Hiermee is weer eens bewezen dat je altijd iemand anders moet laten testen.
Maar of je nou de maand bepaalt aan de hand van de gevonden datum in kolom 2 of een andere kolom in diezelfde rij maakt natuurlijk niets uit, dat is dezelfde maand.

 

[Warme bakkertje]

Wou net een rechtzetting plaatsen omdat ik een vakje had geprobeerd voor 1 januari en deze gaf dan een foutmelding. Dus Target.column kan wel dan.
Maar wil dan tegelijkertijd een oproep doen om geen variabelen te gebruiken die dezelfde naam hebben als Event eigen objecten om verwarring te voorkomen.

Function WelkeMaand(Target) As Integer

 

[lpotjes]

Yessss! Volgens mij werkt die! Toppers, bedankt voor je aanvulling Warme bakkertje.
En Ahulpje jij bedankt voor toch nog een hele klus kan ik ergens een bedankje heen sturen?

Dit gaat ons heel veel tijd schelen.

 

[AHulpje]

Misschien een kleine donatie aan helpmij.nl? Geen idee hoe dat zou kunnen, maar een mailtje aan bestuur@helpmij.nl geeft daar vast wel antwoord op.

 

[AHulpje]

Dat ik daar zomaar overheen heb gekeken, rechts bovenaan dit topic zie je de knop "Steun ons", druk daar eens op.

 

[snb]

Een poging het bestand te vereenvoudigen:

Geen samengevoegde cellen.
Eenvoudiger formules
Opmaak van data via voorwaardelijke opmaak
Overzicht met ingebouwde functionaliteit; draaitabel.
Vereenvoudiging VBA.
Vermijding van 'Activate'.
Beperking tot 1 macro
Vakantie in meer dan 1 maand mogelijk maken.
xlsb bestand.

 

[lpotjes]

Oke top! snb ik zal daar nog even naar kijken, dankjewel alvast. Ik zie alleen per maand de vrije dagen, maar bij ons op het werk willen ze graag weten hoeveel weekenden, ma-do etc.

 

[lpotjes]

Goedemorgen, daar ben ik weer. 2025 is de planning helemaal gelukt wat super fijn is. Maar nu wilde ik kijken om het voor volgend jaar al een blanco klaar te zetten.

Maar krijg een foutmelding, ik heb het jaar aangepast dus alle dagen zijn automatisch versprongen maar denk dat in de macro's het jaartal niet is verwerkt. Ziet iemand het snel? Anders ga ik zelf even op onderzoek uit. Het heeft ook geen haast.

En kan ik op een of andere manier automatisch de feestdagen invoeren dat die in de planning een kleurtje krijgt op die dagen?

Alvast bedankt

 

[AHulpje]

Als je

If .Cells(r, 2) = DateSerial(2025, maand, 1) Then

vervangt door

If .Cells(r, 2) = DateSerial(Range("Calenderyear"), maand, 1) Then

gaat het goed.

 

[lpotjes]

Top het werkt! dankjewel.