kalender vullen door vakantieplanningstabel

[descheep]

Goedemiddag,

Er zijn al tal van voorbeelden hier beschikbaar en gemaakt, maar door de bomen zie ik het bos inmiddels niet meer.

Ik wil graag een vakantieplanning (kalender) vullen op basis van een tabel.

De tabel heeft de volgende velden:

persoonsnummer
naam
Type
Begin datum
Eind datum

Dus als ik hier de data invul dan met de kalender gevuld worden.
Ik heb al een opzetje gemaakt en bijgevoegd, denk dat het dan wel duidelijk wordt.

Mijn kennis en kunde zijn niet toereikend, maar ik kan me niet voorstellen dat er hier niemand is die dit vrij simpel kan oplossen.

Ik ben benieuwd en jullie zouden me er erg blij mee maken ;-)

Groeten Marco

 

[SjonR]

Marco,

het bestand is al een aantal keer bekeken, maar wat je precies wil bereiken is mij niet helder.

Kan je in het bestand laten zien wat je wilt?

Groet,

Sjon

 

[descheep]

Hi Sjon,

De kalender in werkblad 2023 moet met gegevens uit werkblad DATA worden gevuld.

De vakantieperiode of vrije dagen moeten met een kleurtje ofzo worden weergegeven.
Waarbij alle verschillende records van 1 persoon op 1 regel moeten worden weergegeven.

Helder? Anders maak ik het morgen zichtbaar met een plaatje.

Bedankt voor het meedenken.

Groeten Marco

 

[descheep]

Hierbij een voorbeeld van wat ik bedoel.

Hopelijk kan dit makkelijk....

Het dienstplan van snb is praktisch wat ik bedoel https://www.helpmij.nl/forum/showth...s-grafiek-in-Excel?highlight=vakantieplanning
Ik probeer de voorwaardelijke opmaak in deze sheet te begrijpen en uit te pluizen....

 

[jverkerk]

Vraag me af welke formule de specialisten daarvoor bedenken.
Kan me er niets bij voorstellen in voorwaardelijke opmaak.

 

[jverkerk]

Hallo descheep,
Ik heb geprobeerd er nog iets van te maken met een macro.
Misschien zijn er nog VBA specialisten die de code aan kunnen passen/ verkorten of veranderen dat betreffende data op één rij per persoon komt.

Groetjes
Johan

 

[AD1957]

zo ?

 

[jverkerk]

Hallo Albert,
Om weer jaloers op te worden.
Weer mooi gedaan, ik hoop ook voor descheep.

Groetjes
Johan

 

[snb]

Schrijf de gegevens weg in een tabel.
Toon een strokenplan in een apart werkblad.

 

[jverkerk]

Mooi gemaakt snb,
Mis alleen het strokenplan of doe ik iets verkeerd?

Groetjes
Johan

 

[snb]

Nee hoor, mag je zelf maken.

 

[AD1957]

Heeft nog even tijd, geen reactie meer van TS, waarschijnlijk op vakantie

 

[descheep]

Johan en Albert, helemaal niet onverdienstelijk!!

En vakantie, druk met andere zaken en geen mailbericht bij een nieuwe reactie, vandaar een late reactie!

Helemaal top, van beiden!

In hoeverre zou het mogelijk zijn om de namen niet te hoeven kiezen maar standaard de hele tabel grafisch te tonen?
Dan zou het helemaal perfect zijn.

Morgen ga ik eens even kijken wat jullie nu exact gedaan hebben en of ik dat ook zou kunnen begrijpen ;-)

Knap werk dit!!

 

[AD1957]

geen mailbericht bij een nieuwe reactie

Dan heb je deze waarschijnlijk uitgeschakeld, kijk eens even in jouw account.

 

[descheep]

Hi Albert,

Eindelijk tijd om hier mee bezig te gaan.

Ik zie dat je in werkblad DATA een tabel hebt gedefinieerd welke in de macro wordt gebruikt (TabelVerlof)

Zou het ook zonder kunnen?

De data die ik geautomatiseerd uit mijn systeem trek heeft een vaste opmaak en komt niet in zo'n tabel. (zie bijlage)
Kunnen we het gebruik van die tabel voorkomen?

ik hoor graag van je.

Vriendelijke groet,
Marco

 

[AD1957]

Plaats een voorbeeldbestand met fake gegevens.
Hoeft alleen het blad verlofoverzicht en het blad van de afbeelding in te staan.
Vandaag heb ik geen tijd meer, dus een reactie van mijn kun je pas morgen verwachten.
Gaat het alleen maar om vakantie?? of ook ziekte, ADV etc.

 

[AD1957]

Even snel.
Als de gegevens uit het plaatje altijd beginnen in cel A4 kan het mogelijk zo.
Zelf maar even testen.

Sub Vakantiedagen()
Dim ZoekRange As Range, c As Range, ctrl As Range, cel As Range, ct As Range
Set ZoekRange = Sheets("DATA").Cells(4, 1).CurrentRegion

For Each ct In Sheets("2023").Range("B7:NC50")
    If ct.Interior.Color = RGB(255, 0, 0) Then ct.Interior.Color = xlNone 'alleen rode cellen
Next

For Each ctrl In ZoekRange
    Set c = Sheets(1).Range("B7:B28").Find(ctrl)
    If Not c Is Nothing And Not ctrl = "" Then
        For Each cel In Cells(6, 3).Resize(, 365)
            If cel.Value >= ctrl.Offset(, 2).Value And _
               cel.Value <= ctrl.Offset(, 3).Value Then
               Cells(c.Row, cel.Column).Interior.Color = RGB(255, 0, 0)
            End If
        Next
    End If
Next


End Sub

Het beste is om een voorbeeldbestandje te plaatsen.

 

[descheep]

Helemaal top! Dit werkt al!

In principe kan ik roostervrij, dokter, ziekte vermoedelijk wel in het zelfde overzicht downloaden, moet ik even naar kijken van de week.
In eerste instantie is het handig om lange afwezigheid te kunnen checken.

Vooropgesteld dat ziekte natuurlijk ook wel lang kan duren ;-)

Vooralsnog volstaat het zo!!

Thanks en een goed weekend.

 

[descheep]

Hi Albert,

Zou jij nog een blik willen werpen.

Ik heb hem nu zoals het zou moeten zijn, echter gaat het vullen niet lekker.
Veel is er niet gewijzigd, maar ik heb de waarden ruimer gezet. (ruimer als in meer medewerkers in het overzicht).
Ben nu meerdere meerdere keren opnieuw begonnen met mijn aanpassingen, maar het gaat al snel fout.

Begrijp niet wat er nu fout gaat.

De datum berekening gaat ook niet goed als ik de naam van het werkblad op 2024 zet.
Februari volgend jaar heeft er 29.

Ik zou je zeer erkentelijk zijn.

 

[AD1957]

Sheets(1) is niet Sheets("2023")

voor deze eens uit.

Sub GaNaar()
Application.Goto Sheets(1).Range("A1")
End Sub

Zet Blad 2023 als eerste in de Tabs.

en in de code Sheets("2023") wijzigen in Sheets(1)