automatisch ploegenrooster

[strongetje]

hallo,

ben bezig met een ploegen rooster.
nu wil ik een ploeg kiezen en de bijbehorende dienst moet dan in een rooster komen staan.

dus als ik ploeg 1 kies, moet er achter 0-01-2020 een N komen staan.
kan mij iemand even op weg helpen ?.

b.v.d.
Mark

Bekijk bijlage test ploeg.xlsx

 

[popipipo]

Dat kan vrij simpel op deze manier

=VLOOKUP(L3;$A$3:$F$33;$J$2+1;0)

 

[123biertje]

misschien kun je hier iets mee'
de onderste is volgens mij volgens jou rooster

 

[strongetje]

popipipo en 123 biertje,
bedankt voor de hulp.

oplossing van popipipo werkt voor mij.

mvg,
Mark

 

[strongetje]

Hallo,

nog een vraag

ik krijg de roosters in excel formaat, en dan van ieder jaar een apart rooster.
hoe kan ik nu ook op jaartal laten zoeken.

dus in U4 selecteer ik de ploeg, en in U5 het jaar.
zie voorbeeld

b.v.d.
Mark

 

[123biertje]

als je een vast 5 ploegendienst hebt kun je in a1 een jaartal zetten en dan heb je het jaar overzicht van alle ploegen in een overzicht

mvg Henk

 

[strongetje]

123biertje,

dat is nou net het probleem.
eens in de 4 jaar verspringt het rooster.

nu heb ik de roosters t/m 2032.

ik wil de roosters(tabbladen) invoegen in de excel file, en zodoende in het bijbehorende jaar(tabblad) laten zoeken.

mvg,
Mark

 

[123biertje]

In visual basic kun je dit allemaal veranderen per ploeg

mvg Henk

 

[strongetje]

Henk,

heb nog weinig kennis van excel, laat staan van visual basic

mvg,
Mark

 

[formatfrits]

Draai de tabel een kwartslag met de klok mee en het is veel overzichtelijker.

 

[strongetje]

formatfrits,

ik wil het zelf maken voor mijn verlofuren cq overuren e.d. bij te houden.
anderen willen een maandkalender om uit te printen.

wil zo een excel file maken die de diverse doeleinden gebruikt kan worden.
als ik het eenmaal werkend heb, is het geen probleem meer om het horizontaal of verticaal weer te geven.

ik kan natuurlijk voor ieder jaar een aparte excel file maken, maar probeer nu een file te maken tot 2032.(heb de roosters t/m 2032)

mvg,
Mark

 

[formatfrits]

Kijk even op blad 3 voor een overzichtelijker layout, Misschien vindt je het wel bruikbaar, het is maar om een idee te krijgen.
Je kunt dit ook weer gebruiken om roostertjes op creditcard-formaat te maken ( ouderwets) maar werkt wel.

 

[strongetje]

hallo formatfrits,

heb in het verleden al een excel file gemaakt, die het ploegen systeem uitrekende.
omdat het steeds een cycles is van 10 dagen(2-2-2 en 4 dagen vrij) was het met hulp van een ander forum gelukt om het rooster alle jaren te laten doorlopen.
het probleem was echter dat ons rooster elke 4 jaar eendag verspringt, en dat heb ik er niet in kunnen verwerken(te weinig kennis)

ik heb desbetreffende file nog, maar weet het wachtwoord niet meer

maar ik ga nu gewoon een file maken, met op ieder tabblad een jaar.

mvg,
Mark

 

[123biertje]

Public Function PLOEGA(Datum As Date)
Dim rooster() As Variant
rooster = Array("-", "-", "-", "-", "O", "O", "M", "M", "N", "N")
referentiedatum = "23-4-2014"
nummerinarray = DateDiff("d", referentiedatum, Datum) Mod (UBound(rooster) + 1)
If nummerinarray < 0 Then nummerinarray = nummerinarray + UBound(rooster) + 1
PLOEGA = rooster(nummerinarray)
End Function

Public Function PLOEGB(Datum As Date)
Dim rooster() As Variant
rooster = Array("-", "-", "-", "-", "O", "O", "M", "M", "N", "N")
referentiedatum = "10-12-2019"
nummerinarray = DateDiff("d", referentiedatum, Datum) Mod (UBound(rooster) + 1)
If nummerinarray < 0 Then nummerinarray = nummerinarray + UBound(rooster) + 1
PLOEGB = rooster(nummerinarray)
End Function

Public Function PLOEGC(Datum As Date)
Dim rooster() As Variant
rooster = Array("-", "-", "-", "-", "O", "O", "M", "M", "N", "N")
referentiedatum = "1-5-2014"
nummerinarray = DateDiff("d", referentiedatum, Datum) Mod (UBound(rooster) + 1)
If nummerinarray < 0 Then nummerinarray = nummerinarray + UBound(rooster) + 1
PLOEGC = rooster(nummerinarray)
End Function

Public Function PLOEGD(Datum As Date)
Dim rooster() As Variant
rooster = Array("-", "-", "-", "-", "O", "O", "M", "M", "N", "N")
referentiedatum = "25-4-2014"
nummerinarray = DateDiff("d", referentiedatum, Datum) Mod (UBound(rooster) + 1)
If nummerinarray < 0 Then nummerinarray = nummerinarray + UBound(rooster) + 1
PLOEGD = rooster(nummerinarray)
End Function

Public Function PLOEGE(Datum As Date)
Dim rooster() As Variant
rooster = Array("-", "-", "-", "-", "O", "O", "M", "M", "N", "N")
referentiedatum = "19-4-2014"
nummerinarray = DateDiff("d", referentiedatum, Datum) Mod (UBound(rooster) + 1)
If nummerinarray < 0 Then nummerinarray = nummerinarray + UBound(rooster) + 1
PLOEGE = rooster(nummerinarray)
End Function


Verander de referentie datum , dan kun je weer 4 jaar vooruit

mvg Henk

 

[strongetje]

hallo Henk,

waar moet ik dit neerzetten ?.
heb van VB geen kennis.

mvg,
Mark

 

[123biertje]

Ga naar Ontwikkelaars ---> Visual basic
Als het goed is zie je het overzicht

Henk

 

[strongetje]

Henk,

heb het gekopieerd en geplakt en de referentiedatums aangepast.
ik zie niks gebeuren ?

maar nogmaals, ik heb geen kennis van VB.
dus dit gaat boven mijn pet

mvg,
Mark

 

[123biertje]

open "ploegendienst(3)
Ga naar "Ontwikkelaars"
Ga naar "Visual basic"

Als het goed is zie je nu het overzicht "Ploegendienst(3) xlsm - Module1(code)

Hier kan je de referentiedatum vervangen van elke ploeg

Hoop dat dit een beetje te volgen is
Heb dit bestand zelf ook gekregen,

Henk

 

[VenA]

@123biertje, Bij mij werkt er helemaal niets van.Waarschijnlijk door =@'C:\Users\cocob\AppData\Roaming\Microsoft\AddIns\Ploegen.xla'!PLOEGA(U5)
Waarom 5 functions? in #14 en waarom geen codetags?

 

[strongetje]

henk,

nu snap ik ook waarom er bij mij niks gebeurde.
ik heb die code in mijn voorbeeld file gezet.

en zoals VenA al aangeeft, werkt bij mij jouw excel file ook niet.

mvg,
Mark