JeanPaul28

Elk product heeft toch een product nummer, met dat nummer kan je dan met Vert.zoeken gebruiken

Jarco welkom op het forum, het is gebruikelijk dat er voorbeeld bestanden worden getoond, alleen uitleg is niet voor iedereen duidelijk, dat wordt dan een gok spelletje

zet in A1 4/1/2018 en deze formule in A2 =ALS(IS.EVEN(RIJ());A1+3;A1+4) , ver naar onder doortrekken

Zo bestand zou alle documenten moeten uit printen als je op macro knop print drukt, ik heb een timer er tussen geplaatst op 3 sec zodat je het kunt volgen PrintMyDoc.xlsm

Laat ook eens iets zien hoe je dat wilt, ik zie geen excel bestand

Succes met je bestand, er zat nog een schoonheids foutje in, hier een update timesheets(jpUpd2).xlsm

Fout gevonden en zoals ik vermoed meerdere prestatie bladen van een bepaalde medewerker, bestand aangepast, test deze eens timesheets(jpUpd).xlsm

Save je time sheet en stuur het terug, ik heb het vermoeden dat er lege prestatie bladen aanwezig zijn

Test dit bestand eens, in cel A3 week invullen en op macro knop drukken, bij mij werk het goed, ik heb ook iets in je bestand veranderd dat zie je als cel A3 een andere weeknummer heeft, ook de namen van de werknemers moet je aanpassen in kolom A timesheets(jp).xlsm

Kan je me het volledig path doorgeven waar de bestanden zich bevinden, deze moet in de macro komen

Bij mij doet die dat wel, heb enkele data gekopieerd naar rij 100000 , en formule werkte

Ik weet dat niet zo direct, zou dat moeten kunnen controleren,

De uitvoerings periode op een prestatie blad is dit altijd van beginnend maandag tot zondag

Als ik het goed begrepen heb wil je de prestatie van alle medewerkers ophalen van een bepaalde week uit verschillende prestatiebladen, mijn voorstel, haal de data van die bepaalde week in je timesheet vanhier uit zoek je de uren op, daarom hernoem je prestatie bladen met beginnend Jaar en week vb "201748Pres457841" , in dit prestatie blad zitten dan data van week 48 van bepaalde medewerkers, een macro doet de rest,.

staan die apart excel files in een map, en welke naam hebben ze

=ALS(C2<L2;1;0, even omkeren)

=ALS(C2<L2;0;1) deze test eens

Dat kan volgens mij , maar excel heeft toch zo al een filter standard

Nog eens en poging Kopie3 van rechthoek_aanpassen.xlsm

Dit zou het dan moeten zijn Kopie2 van rechthoek_aanpassen.xlsm

en hoeveel moet die opschuiven bij Bv waarde 5, geef hier eens een voorbeeld van

iets van deze aard Kopie van rechthoek_aanpassen-1.xlsm

Iedereen is vrij van te reageren, niemand is perfect.

En hier een uitgebreide versie Kopie3 van maatlat.xlsm

@plongske ja, maar ook een verschuiving naar links, "With ActiveSheet.Shapes(Target.Offset(, -1).Value)" moet zijn With ActiveSheet.Shapes(Target.Offset(, -4).Value) Groeten