Hey Bieke,

Ik heb de nieuwste zaken nu niet in detail bekeken, maar ben wel overtuigd dat mijn eerder idee bruikbaar blijft
Op je testblad heb je nu 4 kolommen voorbereid met enkel opmaak. Van op voorhand het nodige aantal kolommen uitrekenen en klaarzetten waren we afgestapt, maar je kan wel (het snelste zal vermoedelijk met een copy/paste-methode gaan) een ruim aantal kolommen op deze wijze toevoegen. Je zou dat over alle in Excel beschikbare kolommen kunnen spreiden maar of dat nu echt nodig is...
Voor elk van de verschillende registers zal je dan specifieke code nodig hebben binnen dewelke je als eerste instructie de 'algemene' layout-code kan aanroepen.
Dit alles dien je dan maar eenmalig te doen!

Alle toevoegingen van gegevens (ook standaardgegevens zoals bv. 'anno') horen dan in de eigenlijke dataverwerking thuis.
Maar iets zegt mij dat je in gedachten, na mijn eerdere aanzet, ook al deze weg was ingeslagen

Groetjes,
Molly

Oei, bijna op 'Verzenden' geklikt toen ik toch nog zag staan:

.Columns(1).ColumnWidth = 8     'ook dit kolom-nr zal adhv een variabele bepaald worden (via loop)

't Is die commentaar die mij niet bevalt en mijn voorgaande veronderstellingen zelfs op de helling zet, want hiermee ga je toch alle opmaak telkens opnieuw instellen...
Misschien zal het niet meer voor vandaag zijn, maar ik wil zeker eens iets verder uitwerken met wat we al hebben.

Hey Molly,

Eerst en vooral nogmaals dank voor de tijd en moeite die je steekt in het mij verder helpen.

Met jouw laatste berichten en aanpassing vrees ik echter dat er tussen alle heen-en-weer berichten en diverse versies wat verloren is gegaan mbt aanpak/visie/wensen/noodzakelijkheden en dat er dus ook enkele misverstanden zijn opgetreden.

Om te zorgen dat we terug op één lijn komen nog even alles opfrissen :

Ik heb 6 IDX-werkbladen voor respectievelijk dopen(PR), geboorten(BS),  huwelijken(PR), huwelijken(BS), overlijdens(PR en overlijdens(BS). Op elk IDX-werkblad staan alle geïndexeerde akten van in totaal 5 parochies. Voor de PR-registers is dat de periode vanaf 1580 tem 1796(-1800) en voor de BS-registers is dat de periode 1800 tem 1910(-1920).
Voor elk soort register heb ik dan ook 6 doel-werkbladen waarop dan de betreffende ‘uitdraai’ moet vermeld worden van de gekozen parochie.

De aanpak uit je bestand uit bericht #26 beantwoordt dan nog steeds het beste aan mijn visie wat betreft de ‘aanmaak’ van de pagina’s, namelijk dat elke pagina pas ‘aangemaakt’ word op het moment dat ze nodig is.

De globale werking zie ik dus als volgt :
Op elk IDX-werkblad een knop die dezelfde sub aanroept.
In het begin van de sub een ‘select case application.caller’ om dan de benodigde werkbladen (doel en bron) vast te leggen en alzo ook meteen de ‘titel’ op de eerste rij van het doel-werkblad.
Vervolgens via een ‘inputbox’ de parochie laten vastleggen om enerzijds de range te kunnen bepalen in het bron-werkblad en anderzijds de parochie-naam die op de 2e rij van het doel-werkblad vermeld moet worden.
Vervolgens dient dan de juiste wegschrijfcode en layoutcode aangeroepen te worden om de akten van de gekozen parochie te verwerken waarbij elk nieuw te beginnen pagina wordt ‘aangemaakt’ on-the-go.

Enkele details bij de aanpassingen in jouw laatste versie nadat ik de subs heb uitgevoerd :
Beide kolommen vanaf rij 5 zijn ‘bold’ terwijl enkel kolom 2 ‘bold’ mag zijn.
Rijen 5 tem 9 hebben een rijhoogte van 24 wat ook niet de bedoeling is.
Geen idee waarom dit bij jouw gesplitste subs dit resultaat geeft want bij mijn enkele sub was het resultaat van de layout wel correct.
Ook is er telkens enkel maar een onderlijntje bij een ‘ingevulde’ akte en is de rest van de pagina volledig blanco terwijl er sowieso altijd 8 onderlijntjes moeten zijn.

Ik ga van mijn kant eens overlopen welke onderdelen van welke procedures eventueel zouden kunnen samengevoegd worden tot het gewenste resultaat.

Groetjes,
Bieke

Hey Molly,

Ik ben zelf ook een hele voormiddag bezig geweest en had net een volledig 'update'-tekst geschreven waarvoor ik op het punt stond deze hier te plaatsen toen ik zag dat je een bericht had geplaatst met een nieuwe versie.
Ik zal dus eerst reageren op jouw bericht & bijgevoegd bestand en vervolgens mijn 'update'-tekst eronder plaatsen.

Met uitzondering van de aanpassingen inzake mijn vermelde details lijkt de code in je nieuwe versie globaal hetzelfde gebleven te zijn.
Ik zie bevoorbeeld nergens code om te achterhalen welke parochie verwerkt moet worden en dus ook geen code om aan te geven welke range verwerkt zal moeten worden op basis van die parochie. In de code worden nog steeds àlle rijen verwerkt. Als ik dit zou doen in mijn 'echte' bestand dan zouden dus alle parochies verwerkt worden wat dus geenszins de bedoeling is. Dus er zal sowieso ergens in de structuur iets aangepast moeten worden om te zorgen dat de correcte range verwerkt wordt.

Wat de 'Application.Caller' betreft heb ik deze al in meerdere projecten gebruikt en ik vind deze functie best wel nuttig. Ook in dit project zie ik er zeker het nut van omdat er eigenlijk in de volledige code maar enkele zaken verschillend zijn afhankelijk van welke knop wordt aangeklikt (maw vanuit welk bron-werkblad de code moet vertrekken).
Om mijn denkwijze te verduidelijken zal ik nu mijn 'update'-tekst plaatsen die ik deze middag had opgesteld.

---

***update***

Na een hele voormiddag bezig geweest te zijn met brainstormen, coderen, testen, …. Repeat…. ben ik tot het gewenste resultaat gekomen. Eén klein detail heb ik wel aangepast om het coderen iets ‘simpeler’ te maken  , namelijk ipv 6 doel-werkbladen gewoon standaard het werkblad “dataprint” (dat dan na het ‘opmaken/invullen’ de juiste naam moet krijgen en er vervolgens een nieuw werkblad “dataprint” moet aangemaakt worden).

Ik heb uiteindelijk 4 aparte subs… 1 hoofd-sub die aangeroepen wordt via een knop op één der 6 IDX-werkbladen en dan drie subs die aangeroepen worden vanuit de hoofd-sub. Ook heb ik 3 variabelen public gemaakt.

In de hoofd-sub wordt eerst via een ‘inputbox' gevraagd welke parochie verwerkt moet worden.
Via de “Select Case Application.Caller” worden via “Set” de 6 bron-werkbladen vastgelegd alsook een waarde gegeven aan de variabele ‘titel’.
Dan worden de kolom en rij variabelen gedefinieerd voor het 'dataprint'-werkblad en een loop opgestart voor de in te lezen range (gebaseerd op de gekozen parochie in het gekozen bron-werkblad).
Via een if-statement wordt dan bepaald of er al dan niet een nieuwe pagina begonnen moet worden en zoja wordt de 1e externe sub aangeroepen (nl voor de algemene lay-out), vervolgens worden de 4 eerste rijen gevuld met de titel, de parochie, de vaste waarde ‘anno’ en het jaartal waarna dan de de 2e sub word aangeroepen (nl voor de specifieke layout).
Onder deze if-statement wordt dan de 3e en laatste sub aangeroepen (nl het inlezen van de gegevens op het bron-werkblad).
Bij terugkeer naar de hoofd-sub worden dan de ingelezen gegevens weggeschreven op het werkblad “dataprint”.

Dit alles is momenteel nog vrij robuust en dien ik nog wat te finetunen waar mogelijk en vervolgens dien ik dan nog enkel het gedeelte te coderen voor het wijzigen van de naam van het werkblad “dataprint” naar de correcte naam en het aanmaken van een nieuw werkblad “dataprint”.
Het enige wat ik hiervoor nog moet weten eigenlijk is, indien het mogelijk is, hoe ik de pagina-instelling (met name de marges en de voettekst) van het werkblad “dataprint” via VBA kan laten uitvoeren.
Deze pagina-instellingen zijn van cruciaal belang voor enerzijds de algemene weergave maar anderzijds in het bijzonder voor het fysiek uitprinten.

Zodra mijn huidige code gefinetuned is zal ik nog eens een recente versie van mijn bestand plaatsen.

---

Ongeacht welke aanpak er uiteindelijk zal gebruikt worden en/of in hoeverre er nog aanpassingen zullen plaatsvinden, mijn nieuwe code is grotendeels gebaseerd op jouw aanpak uit jouw bericht #26 en op enkele van jouw codestructuren. Dus zonder die hulp/aanzet/oplossingen zou ik nooit tot dit resultaat kunnen komen zijn.

Groetjes,
Bieke

Hey Bieke,

Oei, ik volg even niet meer:

Ik zie bevoorbeeld nergens code om te achterhalen welke parochie verwerkt moet worden

In een eerdere versie had je dat zelf al eens in orde gebracht, en in de laatste was dat verdwenen. Mijn (bijwijlen) logische geest denkt dan dat je de tijd nog niet rijp achtte om dat al definitief mee te nemen aangezien er nog andere zaken op een oplossing wachtten...
En dat er op de juiste plaats weer bijzetten is toch peanuts, niet?

Als ik al je nieuwe overwegingen nu bij elkaar optel begint het al een beter idee te lijken om toch geen voorafgaande werkzaamheden uit te voeren qua opmaak (beslommeringen bij afdrukken, de noodzaak kolommen te moeten verwijderen...)
Ik neem voorlopig aan dat voor elk van die 6 zaken je telkens met 4 kolommen gaat werken(?)
In dat geval zou je ook kunnen starten, iedere keer je een parochie gaat verwerken, met de opmaak te regelen (via subroutine) voor 4 kolommen, en binnen de gegevensverwerking, telkens een nieuwe 'pagina' moet begonnen worden (al bestaande code dus) de opmaak te kopiëren naar de volgende 4 kolommen, liever dan die opnieuw element per element te gaan instellen. Dat zal het aanzienlijk sneller maken, en een meteen afdrukbaar werkblad klaarzetten.

Een iets afwijkend idee (met hetzelfde gunstige resultaat) kan zijn om eenmalig een werkblad te maken met in orde gebrachte opmaak voor de eerste 4 kolommen. Dat kan je nadien verbergen, en kopiëren bij de start van een nieuwe parochieverwerking.
Je ziet het, we veranderen beiden wel eens van mening , in mijn geval is dat (daarom niet altijd ) wegens bijkomende input.

Wat de 'Application.Caller' betreft heb ik deze al in meerdere projecten gebruikt en ik vind deze functie best wel nuttig.

Ik heb ook niet het tegendeel beweerd, hé, maar niets is nuttig voor alles... Je moet vooral doen waar je blijgezind van wordt, maar ik blijf het voor dit project de minder duidelijke manier vinden. Maar: het zal mij er niet van weerhouden verder assistentie te verlenen, hoor!

Het enige wat ik hiervoor nog moet weten eigenlijk is, indien het mogelijk is, hoe ik de pagina-instelling (met name de marges en de voettekst) van het werkblad “dataprint” via VBA kan laten uitvoeren.

Dat is één van die typische 'problemen' waarbij ik meteen geneigd ben te antwoorden: "neem eens in een leeg bestand een macro op"

Groetjes,
Molly

Hey Bieke,

Je bent nog niet bepaald overtuigd, hé?
Op je gegevensblad heb ik wat extra rijen toegevoegd. Met amper 250 als laatste rij heb ik een snelheidstest uitgevoerd met jouw methode en kwam al op 31 seconden.
Een minimale wijziging in de code (de eerder voorgestelde werkwijze om opmaak te kopiëren i.p.v. celletje per celletje in te stellen) bracht dat terug tot 0,4 seconden.
(Om de test correct te kunnen uitvoeren is de inputbox uiteraard overgeslagen.)

Die 0,4 seconden worden dan nog vooral door andere code veroorzaakt, want met 2500 rijen, resulterend in 760 pagina's, zat ik aan 0,7 seconden.

Groetjes,
Molly

*update*

Omdat ik sowieso een oplossing zocht om mijn (om en bij de 26) standaard werkbladen overzichtelijk te houden ben ik eens in mijn 'echt' bestand gaan kijken hoe ik deze standaard werkbladen met de reeds bestaande andere codes zo efficiënt mogelijk zou kunnen gaan managen.
Ik heb zo bevoorbeeld de 4 (hulp) werkbladen voor de conversie van de namen bij het bijwerken van de 'totaal-db'. Deze (hulp) werkbladen moeten handmatig bewerkt kunnen worden maar hoeven daarom niet constant zichtbaar te zijn. In mijn code had ik een msgbox verwerkt om mij (de gebruiker) te melden of er al dan niet nieuwe namen in de lijsten zijn geplaatst voor handmatige verwerking zodat ik op voorhand weet of ik al dan niet de betreffende (hulp) werkbladen moet openen. Nu zou ik dus die 4 (hulp) werkbladen standaard willen verbergen en adhv de meldingen op diezelfde msgbox, al dan niet de 4 (hulp) werkbladen tijdelijk terug zichtbaar te maken.
En zo zijn er wel meerdere standaard werkbladen die ik op gelijkaardige wijze zou kunnen managen. Inclusief dus ook de template-werkbladen voor al mijn print-versies (in totaal een 15-tal die ik tot 5x (1x per parochie) zal moeten aanspreken) zoals molly reeds suggereerde in één van haar vorige berichten.
Ik heb dus een cleane versie van het test-bestand gemaakt waarin ik reeds de 6 template-werkbladen voor de digitale akten heb aangemaakt en verborgen heb gezet.
Hiermee valt er dus al een groot deel van de 'algemene' layout-code weg.

Zodra ik de code volledig heb aangepast aan deze nieuwe aanpak zal ik versie (4.0) bijvoegen.

groetjes,
Bieke

PDF code
c00 = ThisWorkbook.Path & "\"
    c01 = ActiveSheet.Name
ActiveSheet.ExportAsFixedFormat xlTypePDF, c00 & c01 & ".pdf", , , , , , False

@Della,

Hartelijk dank voor jouw aangereikte code/oplossing.

Maar jouw voorstel voor de parochie-selectie is in dit geval niet erg handig.
Zolang het aantal rijen minder is dan 100 dan is dit nog haalbaar maar in mijn echte bestand gaan de rijen oplopen tot makkelijk 20000....
Als ik dan de 5e parochie wil verwerken ga ik wel héél vaak op 'pgdn' moeten klikken...
Vandaar mijn idee om met een keuzelijst te werken.

De PDF-code is wel 


groetjes,
Bieke