Openstaande uren berekenen op basis van geboekte uren -/- meegezonden uren t/m datum

[QuatroM]

Hallo experts,
Sinds kort probeer ik me te verdiepen in VBA en heb ook al iets kleins geschreven waar ik best trots op ben, maar onderstaande gaat me (nog) niet lukken.

Ik hoop dat iemand voor mij iets kan maken met VBA.
Wij controleren "handmatig" iedere week hoeveel uren er nog niet zijn meegezonden met de facturen.
Dit moeten wij doen voor +/- 350 projecten, dit kost ons bijna 4 uur.

Dit doen wij op basis van een 8 Excel bestanden zoals bijgevoegde '1-projecten DHaag' (A) en het bestand 'uren 101-Dhaag' (B), deze kan ook gegenereerd worden als OPENST.UREN (C)
Wij kijken voor ieder project op basis van het projectnummer in bestand (A) tot welke datum wij uren hebben meegestuurd met de laatste factuur (dit voeren wij handmatig in)
In bestand (B) kijken wij, selecteren dan de cellen in kolom R van de laatste gewerkte uren tot de uren die zijn meegezonden en voeren dit dan handmatig in.
Bijvoorbeeld het 1e projectnummer 301721A1 zijn de uren meegezonden t/m 11-03-2016 en in bestand (B) staan er vanaf 12-03-2016 nog 80 uren op

Is het mogelijk voor bestand (A) een code te maken die het volgende doet.
- in kolom M het aantal openstaande uren vermeld.
- in kolom O het totaal aantal geboekte uren te vermelden.



Jullie zouden mij hier ontzettend mee helpen. (scheelt mij veel tijd en ik hoop er ook van te leren)

 

[Leotaxi]

Een begin,

beide bestanden eerst opslaan in zelfde map
op blad1 van bestand A staan de 2 codes, 1 om op te halen, 1 om weg te schrijven.
enkel bestand A moet geopend zijn.


mvg
Leo

 

[QuatroM]

Hallo Leotaxi,

Bedankt voor het maken van deze code.
Ik zie nu al dat ik nog HEEL VEEL te leren heb.

Heb de bijlagen opgeslagen in 1 map.
Bij de makro "huidige stand ophalen" krijg ik een foutmelding.
Deze verwijst naar --> Set wb2 = Workbooks.Open(mypath & "\uren 101-Dhaag (B) L.xlsm")

Als ik op beëindigen klik, verschijnen in kolom A de projectgegevens en in kolom B de datum laatste uren.

Bij makro "Nieuwe bestand wegschrijven", krijg ik een compileerfout. Dubbele declaratie in het huidige bereik.

Heb ik iets niet goed gedaan?:shocked:

 

[Leotaxi]

Nop heb zelf de opkuis vergeten

zet deze maar in de plaats


mvg
Leo

 

[Leotaxi]

Ook volgende

bestanden eerst opslagen, zelfde namen behouden
nadien bestand A openen

mvg
Leo

 

[QuatroM]

Top, het werkt helemaal.

Precies wat ik zocht.
Bedankt voor het maken.

Ga de komende dagen eens heel goed naar de code kijken wat die nou precies doet.

Dit scheelt mij heel veel tijd.

:thumb::thumb::thumb::thumb:

 

[Leotaxi]

mooi zo

maar niet enkel de code was nodig
let ook op wijziging in bestand B (geen lege rijen)

mvg
Leo

 

[QuatroM]

Ik zag het.
Nog 1 vraag, moet ik de bestanden opslaan als binair?

 

[Leotaxi]

Heb dit moeten doen omdat ze anders te groot waren om hier te plaatsen.
Maar niet nodig om te laten werken, enkel in deze regel extensie aanpassen

Set wb2 = Workbooks.Open(mypath & "\uren 101-Dhaag (B) L.xlsb")

mvg
Leo

 

[QuatroM]

Had het al aangepast en getest, werkt inderdaad prima.

Vandaag meteen toegepast en het hele proces duurt nu 20 minuten i.p.v. 4 uur.

Nogmaals dank.