Hey molly,

 

Dit was dus exact wat ik van in het begin in gedachten had 

misschien nog één klein extraatje indien mogelijk.
het zou visueel fijner zijn ingeval de waarde in "A1" opnieuw de originele kolom-titel "Parochie" zou weergeven elke keer het werkblad geactiveerd wordt.
Is dat mogelijk?

groetjes,
Bieke.

Hey Della,

Hoi, ik blijf eventjes meedenken.
Gezien je Worksheet_Activate gebruikt, lijkt deze oplossing iets?
(zie bijlage)

Bedankt voor het blijven meedenken.
Ik zie in je code dat er geen rekening werd gehouden met nieuwe rijen? Aangezien de lengte van de lijst constant langer zal worden kan/mag er geen vaste eind-rij gebruikt worden.
Ook is die extra combobox niet erg interessant op mijn werkblad aangezien er in mijn 'echt' bestand reeds tal van opdrachtknoppen zullen staat (dus niet enkel de "idx2dig"-knop)

Dan heb ik nog een vraagje.
Ik zie dat je onderaan volgende code gebruikt.

Code: [Selecteer]

Worksheets("DIG_G_PR-" & par).Visible = xlSheetHiddenIs het de bedoeling dat je deze aangemaakte bladen blijft behouden nadat ze zijn opgeslagen als PDF?

Idd, Della, dat is exact de bedoeling, anders zou die code er niet staan.

groetjes,
Bieke

@Molly,

Naarmate elk onderdeel meer vorm krijgt ben ik stilaan mijn 'echt' bestand opnieuw aan het samenstellen.
Voor één onderdeel zou ik een andere aanpak willen proberen, het is te zeggen, de verwerkings-code zelf dient ongewijzigd te blijven maar het gebruikte hulpmiddel zou ik willen aanpassen. Het is maar een idee waarmee ik aan het spelen ben, enerzijds om praktische redenen en anderzijds een beetje uit leergierigheid  en te zien of mijn idee al dan niet mogelijk zou zijn.

Zoals je weet (denk ik toch) werd tussen 1792 en 1806 gebruik gemaakt van de Frans Republikeinse kalender waarvoor ik reeds de nodige converteer-code heb verwerkt in mijn 'echt' bestand. Voor de conversie maak ik gebruik van een tweede bestand dat ik zo'n 15 jaar geleden gemaakt heb waarin de Frans Republikeinse kalender netjes per maand-periode (1 werkblad per periode) staat verwerkt met de corresponderen gregoriaanse datums.

Om te vermijden dat ik elke keer een tweede bestand zou moeten aanspreken zou ik iets willen creëren dat aangemaakt wordt elke keer mijn 'echt' bestand geopend word, dus bij de 'workbook_open'.
Ik zou dus een 3D-array willen aanmaken in dezelfde structuur als mijn uitgewerkt tweede bestand, dus in de vorm "array(1 to 13, 1 to 30, 1 to 14)".
Ik heb al een beetje een werkwijze in gedachten om dit te realiseren maar gezien ik nog niet veel ervaring heb met meervoudige dimensionele arrays zal ik wel wat hulp nodig hebben vrees ik  .

Ik hoop dit te kunnen realiseren door telkens per jaar van de Fr. Rep. kalender te starten met de gekende corresponderende gregoriaanse datum voor de eerste dag van dat jaar en dan, rekening houdend met het aantal dagen/gregoriaanse maand en de schrikkeljaren via een loop met 1 te verhogen en in de 3D-array te plaatsen.
De Fr. Rep. kalender telt 14 jaren met 12 maanden van 30 dagen en dan nog een 13e maand met de overblijvende dagen.

hoe kan ik dan best de opbouw van mijn codeblok starten?

groetjes,
Bieke

Hey Bieke,

Een misschien verrassende vraag: zou je dat wel doen... ? 

Zoals je weet (denk ik toch) werd tussen 1792 en 1806 gebruik gemaakt van de Frans Republikeinse kalender

Ja hoor al moest ik de juiste begindatum en nog wat andere details wel even opsnorren...

En die vielen reuze mee, vandaar mijn inleidende vraag.

Maar eerst even kijken of ik mee ben met hoe jij het zag (mogelijk kan je leergierigheid dan later voorbeeldgewijs alsnog bevredigd worden). In die 3D-array zal er één dimensie bestaan voor jaren, één voor maanden en één voor dagen (telkens van de republikeinse kalender) en de inhoud zullen de datums zijn van de gregoriaanse kalender? Vervolgens ga je jaar, maand en dag gebruiken om de locatie in de array te bepalen en er de inhoud van ophalen?
Maar: als je geen extern bestand wil gebruiken én vermoedelijk daarover niets in je (toch al groot) bestand wil toevoegen betekent dat volgens mij automatisch dat je die array zal moeten opvullen iedere keer je het bestand opent!

Over naar een alternatief? De republikeinse kalender begint op 1/1/1 (als ik dat zo mag stellen), elke van de eerste 12 maanden telt 30 dagen, en als er al een schrikkeldag is, dan is de laatste dag van het jaar. Wat kan een mens meer verlangen

Waar en wanneer je het in je bestand moet gebruiken vraag ik me daarbij zelfs niet af, want ik denk hierbij eerder aan een udf, en omwille van voorgaande kan die kort zijn:
Function fr2greg(jaar, maand, dag)
   
For j = 1 To jaar - 1
  If j Mod 4 = 3 Then d = 366 Else d = 365
  dagen = dagen + d
Next j
dagen = dagen + ((maand - 1) * 30) + (dag - 1)
fr2greg = DateSerial(1792, 9, 22) + dagen

End Function
Groetjes,
Molly

@Molly,

het telkens opnieuw vullen van het array op zich irriteerde me totaal niet hoor maar vond het zelf wat 'zinloos' om elke paar seconden die array opnieuw te laten vullen.
Wat me wél irriteert en ik sowieso wat onpraktisch vind is om telkens dat 2e bestand te moeten gaan openen als ik in mijn hoofdbestand aan het werk wil gaan.
Dat de opvulcode éénmalig doorlopen wordt wanneer het bestand geopend wordt daar zou ik zelfs niets van merken en vond ik dus voor mij het beste alternatief.

Nu, ik heb even, uit nieuwsgierigheid, jouw function-code uitgeprobeerd maar in eerste instantie krijg als resultaat al meteen dit : "#######" en in tweede instantie
 zou ik er dan al een extra kolom moeten gaan voor voorzien waarin ik dan de te gebruiken formule zou moeten plaatsen.
Elk werkblad heeft enerzijds al meer dan voldoende kolommen die écht noodzakelijk zijn en anderzijds hou ik bepaalde werkbladen liever volledig "fomule-vrij".
En als laatste, niet onbelangrijk aspect, in mijn werkblad zal de maand niet als een getal worden ingevuld maar wel met de naam van die maand (vendémiaire, brumaire, frimaire, enz)...

Toch bedankt voor jouw optie-poging.

groetjes,
Bieke


*edit*

PS: maar wat ik wel kan doen is gewoon de berkenings-code zelf (zonder het "function"-aspect) verwerken in mijn converteercode.
      ik bekijk het even maar denk wel dat het dan zo in orde zal zijn

Hey Bieke,

Toch bedankt voor jouw optie-poging

Wat ik dan denk is dat je nog eens meteen wat 'eerste indruk'-bezwaren hebt geuit (toegegeven, naderhand wel redelijk bijgestuurd ).
Zelf vond ik (even afstand nemen van 'eigen lof'-gezegdes ) dat ik een pracht van een functie had geschreven die vooral schittert door haar eenvoud

Omwille van je laatste post dus niet als kritiek bedoeld, maar wel in de hoop dat je er inhoudelijk wat van opsteekt:

in mijn werkblad zal de maand niet als een getal worden ingevuld maar wel met de naam van die maand

Euh... die kwestie moest je met een array-methode toch ook vooraf regelen...

in eerste instantie krijg als resultaat al meteen dit : "#######"

Natuurlijk, de functie resulteert in een datum (vóór 1/1/1900 een probleem voor Excel maar niet voor vba)

in tweede instantie zou ik er dan al een extra kolom moeten gaan voor voorzien

Maar neen, een UDF is niet exclusief als werkbladformule bruikbaar! Héél rudimentair voorbeeldje hierbij.

Groetjes,
Molly

Hey Bieke,

Klaar voor nog een extraatje?

In je converteer-sub kan je
ReDim Preserve frepmndn(1 To 13)
For i = 1 To 13
  If frepmndn(i) = tmp_mnd Then
    tmp_mnd = i
    Exit For
  End If
Next i
vervangen door
tmp_mnd = Application.Match(tmp_mnd, frepmndn, 0)
En, hoewel volledig achterhaald in dit project, misschien nog een weetje voor latere kwesties:

is het mogelijke om deze code éénmalig te laten lopen (bij openen van het bestand) en vervolgens het gevulde 3D-array te behouden zolang het bestand geopend is voor gebruik in mijn andere subs ingeval er eens een datum geconverteerd moet worden? Is dit überhaupt mogelijk?

Wel, daar heb je gisteren zelf het antwoord op gegeven in een ander draadje, nl. "public" (want een array is ook een 'variabele' )

Groetjes,
Molly

***update***

Heb ondertussen toch zelf nog geprobeerd de sub's aan te passen en ben tot de oplossing gekomen om ze in twee te splitsen...
Enerzijds het plaatsen van de unieke waarden die geteld moeten worden in de betreffende kolom op het 'stats'-werkblad.
En anderzijds dan de eigenlijke telling.
Bij het testen van de subs was er al een geweldige verbetering qua snelheid maar gezien er maar een dikke 30-tal rijen te verwerken zijn in het test-bestand heb ik geen idee hoe de snelheid gaat zijn bij duizenden rijen....

De telmethode zelf heb ik voor beide subs behouden maar de plaatsing voor de te tellen waarden heb ik dus helemaal anders aangepakt, telkens in een aparte sub die eerst aangeroepen wordt door de tel-sub.
Dit zijn de aparte subs :
Option Explicit

Sub uniekejaren()
  Dim wsStats As Worksheet, wsFltr1 As Worksheet, wsFltr2 As Worksheet, wsFltr3 As Worksheet, wsFltr4 As Worksheet, wsFltr5 As Worksheet, wsFltr6 As Worksheet
  Set wsStats = Sheets("stats-jr-par")
  Set wsFltr1 = Sheets("IDX_G_PR")
  Set wsFltr2 = Sheets("IDX_H_PR")
  Set wsFltr3 = Sheets("IDX_O_PR")
  Set wsFltr4 = Sheets("IDX_G_BS")
  Set wsFltr5 = Sheets("IDX_H_BS")
  Set wsFltr6 = Sheets("IDX_O_BS")
  wsStats.Range("A3:S" & Rows.Count).ClearContents
  wsFltr1.Range("D2:D" & Rows.Count).AdvancedFilter xlFilterCopy, , wsStats.Range("AA1"), True
'  wsFltr2.Range("D2:D" & Rows.Count).AdvancedFilter xlFilterCopy, , wsStats.Range("AA" & Rows.Count + 1), True
'  wsFltr3.Range("D2:D" & Rows.Count).AdvancedFilter xlFilterCopy, , wsStats.Range("AA" & Rows.Count + 1), True
'  wsFltr4.Range("D2:D" & Rows.Count).AdvancedFilter xlFilterCopy, , wsStats.Range("AA" & Rows.Count + 1), True
'  wsFltr5.Range("D2:D" & Rows.Count).AdvancedFilter xlFilterCopy, , wsStats.Range("AA" & Rows.Count + 1), True
'  wsFltr6.Range("D2:D" & Rows.Count).AdvancedFilter xlFilterCopy, , wsStats.Range("AA" & Rows.Count + 1), True
  wsStats.Range("AA1:AA" & Rows.Count).AdvancedFilter xlFilterCopy, , wsStats.Range("A3"), True
  wsStats.Range("AA:AA").ClearContents
End Sub

Sub uniekenamen()
  Dim wsStats As Worksheet, wsFltr1 As Worksheet, wsFltr2 As Worksheet, wsFltr3 As Worksheet, wsFltr4 As Worksheet, wsFltr5 As Worksheet, wsFltr6 As Worksheet
  Dim n As Long, d As Long, naam As Variant
  Set wsStats = Sheets("stats-nm-par")
  Set wsFltr1 = Sheets("IDX_G_PR")
  Set wsFltr2 = Sheets("IDX_H_PR")
  Set wsFltr3 = Sheets("IDX_O_PR")
  Set wsFltr4 = Sheets("IDX_G_BS")
  Set wsFltr5 = Sheets("IDX_H_BS")
  Set wsFltr6 = Sheets("IDX_O_BS")
  wsStats.Range("A3:T" & Rows.Count).ClearContents
  wsFltr1.Range("I2:I" & Rows.Count).AdvancedFilter xlFilterCopy, , wsStats.Range("AA1"), True
'  wsFltr2.Range("I2:I" & Rows.Count).AdvancedFilter xlFilterCopy, , wsStats.Range("AA" & Rows.Count + 1), True
'  wsFltr3.Range("I2:I" & Rows.Count).AdvancedFilter xlFilterCopy, , wsStats.Range("AA" & Rows.Count + 1), True
'  wsFltr4.Range("I2:I" & Rows.Count).AdvancedFilter xlFilterCopy, , wsStats.Range("AA" & Rows.Count + 1), True
'  wsFltr5.Range("I2:I" & Rows.Count).AdvancedFilter xlFilterCopy, , wsStats.Range("AA" & Rows.Count + 1), True
'  wsFltr6.Range("I2:I" & Rows.Count).AdvancedFilter xlFilterCopy, , wsStats.Range("AA" & Rows.Count + 1), True
  wsStats.Range("AA1:AA" & Rows.Count).AdvancedFilter xlFilterCopy, , wsStats.Range("B3"), True
  wsStats.Range("AA:AA").ClearContents
  With wsStats
    For n = 3 To .Cells(Rows.Count, 2).End(xlUp).Row
      naam = .Cells(n, 2)
      d = Sheets("famnm-conv").Rows("1:150").Find(naam, LookIn:=xlValues, LookAt:=xlWhole).Column
      .Cells(n, 1) = Sheets("famnm-conv").Cells(1, d)
    Next n
  End With
End Sub

Moest er, puur qua snelheid gezien, toch nog een betere methode zijn dan lees ik het graag 

groetjes,
Bieke