Hallo Wigi,
Om je niet te lang te laten wachten en omdat zo benieuwd was met je oplossing ben ik er toch al mee aan de slag gegaan.
Jouw aangepaste macro heb ik in een kopie van het bestand getest en het werkt perfect.
Om te leren heb ik toch nog enkele vraagjes over de macro:
1. Wat betekent in het eerste gedeelte van de macro: Criterial:=CStr(Mid(nummer, 2))
2. In het laatste deel van de macro onder Sub Uitgave_juni():
Je begint met Call uitgave (619089, 126) en daaronder staat 2 keer Call Uitgave2(.., ...). Wat gebeurt hier en wat betekent (40, 127) en (41, 128) ?
Waarom komen deze 2 regels te staan tussen Call UItgave(619089, 126) en Call Uitgave(619200, 130)?
3. Na de regel met Call Uitgave2(41, 128) komt de macro Uitgave_0619211. Waarom juist hier op deze plaats ?
4. Tijdens het uitvoeren van de macro (ong. 5 sec.) flikkert het beeld, maar dit is denk ik niet te voorkomen ? Of wel ?
Als laatste algemene vraag:
Jouw macro is voor de maand juni.
Ik denk dat het de bedoeling is dat ik deze op enkele plaatsen aanpas voor de maanden juli t/m december ?
Ik heb dit al gedaan voor juli en die werkt dan ook goed.
Nogmaals bedankt voor alles.
Gr.
Eric
1. Wat betekent in het eerste gedeelte van de macro: Criterial:=CStr(Mid(nummer, 2))
Mid(nummer, 2) neemt de getallen over beginnende vanaf het 2de getal. Mid() zet het resultaat om naar een string (tekst dus).
2. Je begint met Call uitgave (619089, 126) en daaronder staat 2 keer Call Uitgave2(.., ...).
Ik heb de volgorde van jou macro aangehouden. Als de volgorde geen kwaad kan, mag je ze omwisselen en bij mekaar zetten wat bij mekaar hoort.
Wat gebeurt hier en wat betekent (40, 127) en (41, 128)?
Net zoals jij gebruik ik andere modules. De 40 en de 127 zijn argumenten (net als argumenten in een functie zoals SOM of zo). Call uitgave (619089, 126)
betekent: voer de module Uitgave uit, waarbij de argumenten 619089 en 126 zijn. In de module zelf zijn de argumenten gedefinieerd. Ik gebruik dus vaak dezelfde
macro, maar met andere argumenten (aangezien er behalve de argumenten toch niets wijzigt). Zo wordt de code ingekort.
Als de macro dan toch wijzigt (niet alleen de argumenten), dan gebruik ik een andere module. Bv. Uitgave2
Waarom komen deze 2 regels te staan tussen Call UItgave(619089, 126) en Call Uitgave(619200, 130)?
Hangt af van jouw volgorde in het oorspronkelijke bestand.
3. Na de regel met Call Uitgave2(41, 128) komt de macro Uitgave_0619211. Waarom juist hier op deze plaats ?
Hangt af van jouw volgorde in het oorspronkelijke bestand.
4. Tijdens het uitvoeren van de macro (ong. 5 sec.) flikkert het beeld, maar dit is denk ik niet te voorkomen ? Of wel ?
aan het begin van de code:
Application.ScreenUpdating = False
aan het einde van de code:
Application.ScreenUpdating = True
Als laatste algemene vraag: Jouw macro is voor de maand juni. Ik denk dat het de bedoeling is dat ik deze op enkele plaatsen aanpas voor de maanden
juli t/m december ?
Klopt.
Nogmaals bedankt voor alles.
Gr.
Eric
De Excelsectie op mijn site kan jou wellicht (binnenkort) interesseren.
Wigi