emielDS

en moet dat op 1 blad?

dat is mijn fout er stond daar eerst een ander aantal dagen, maar heb dat veranderd om naar de fout in de code te zoeken..

nu zie je als je het aantal dagen invult wie en hoelang iedereen uit dezelfde afdeling verlof gevraagd heeft.

Er zat een foutje in de code. zou nu moeten opgelost zijn.

Planning 2 weken met jaarplanner (1).xlsm

Zou dit kunnen voldoen?

ik heb ook de code voor de week te wissen aangepast, als de week nog niet overgeschreven is komt er een vraag om het alsnog te doen.

Misschien is zelfs deze code alleen genoeg?

Planning 2 weken met jaarplanner.xlsm

zoiets dan, er kan nog aan veranderd worden, voorlopig zonder validatie.

Planning 2 weken (1).xlsm

Dan zal er nog een manier moeten gevonden worden om het afgekeurde verlof uit de rooster te halen.

Hoe voer je die update uit,

vanwaar komt de informatie?

Hoe weet je of een verlof goedgekeurd is?

Wat ben ik nieuwsgierig hé.

in  het volgende voorbeeld gaat de voorbije verlofdagen niet meer weg

en zal iedere verlof in elke afdeling geplaatst worden en 2 of 3 maal als er verschillende ploegen in dezelfde afdeling zijn.

Planning 2 weken (1).xlsm

Ook zie ik dat bij opnieuw invoeren de data gewist word in de verlof tab dit is jammer deze informatie konden we gebruiken. 

ik begrijp niet wat je hiermee bedoeld? Nu worden de gegevens, op het blad verlof, verwijderd als het verlof voorbij is.

je bedoeld dat ze mogen blijven staan? 

zo dan?

Planning 2 weken (1).xlsm

de naam erin stellen is geen probleem en de pop up niet laten verschijnen ook niet .

het is wel een probleem dat ik niet welke dag en op welke plaats die naam moet komen.

 Moet hij in de afdeling komen waar hij werkt en welke dag, reeds van bij de opmaak van de lijst of enkel de dag dat er verlof is?

moet in een lijst van 14 dagen 1 dag verlof de ganse tijd blijven staan?

Planning 2 weken (1).xlsm

let op dit werkt alleen als er bij een nieuwe lijst toekomt ook de bovenste rij vernieuwd wordt, anders moeten we iets anders bedenken

op deze manier kan ongewild dubbel invoeren voorkomen.

Planning 2 weken (1).xlsm

die knoppen hebben geen nut mogen gerust verwijderd worden, ik had dat gebruikt om bij de voornamen dezelfde achternaam te plakken.

het niet overschrijven heb ik bewust gedaan, als er nu een lijst binnenkomt met dezelfde datum maar met andere namen worden die er gewoon bijgesteld..

als er nieuwe datums bijkomen telt hij gewoon verder en de oude datums zijn gemakkelijk te verwijderen. (ja nee keuze) Nus taat dat ingesteld op verwijderen tot gisteren maar daar kan ook een andere dag (-2 -3 of een week) gekozen worden.

Is dit wat je vraagt?

plaats in het vervolg liever een voorbeeld zonder externe koppelingen, en verwijdert alle nutteloze macro's en andere prularia.

excel is een rekenprogramma geen kleurboek.

test macros biljart (1).xlsm

ik denk eerder dat dat probleem gelegen is aan uw eenvoudige formule voor het berekenen van de betrouwbaarheid (sic).

zoiets?

voorbeeld (1) max.xlsx

Met het blad verlof geïntegreerd 

Planning 2 weken (1).xlsm

waarschijnlijk zullen er nog wel een paar foutjes inzitten, aan u om die er uit te halen en aan ons om ze te verbeteren.

Ik had niet gezien dat er zo veel verschillende begin en einduren waren.

dat gevalleken van Paul heb ik niet gevonden, ik wist niet op welke datum te zoeken.

het verlof heb ik terug ingevoerd op het blad info...

Planning 2 weken (1).xlsm

als het op ja staat worden de datums voor vandaag gewist.

inderdaad, bij deze opgelost

Planning 2 weken (1).xlsm

en hier een voorbeeld met vba.

de voordelen van formules is dat het sneller gaat

het voordeel van vba is als er een andere lijst komt blijft het oude roster staan en komen de nieuwe data erbij. met formules verdwijnen de oude

Planning 2 weken (1).xlsm

Als we nu nog weten waar op score dat het moet komen zouden we misschien kunnen helpen.

Als je dan toch vba gebruikt. met een lijst voor de afwezigheden in te vullen, ik vond die kolom verlof een beetje verwarrend je kan er geen dag invullen

Planning excel 2 (1).xlsm

Verander uw code zo 

Private Sub Worksheet_Change(ByVal target As Range)
If target.count =1 then
If target.Value <> PreviousValue Then
Sheets("log").Cells(65000, 1).End(xlUp).Offset(1, 0).Value = _
            Application.UserName & " changed cell " & ActiveSheet.Name & target.Address _
            & " from " & PreviousValue & " to " & target.Value & " Date " & Date & "  " & Time
End If
 end if           
End Sub

en nu nog 2 met vba.

van lijst naar rooster.xlsm