Als ik dan de 5e parochie wil verwerken ga ik wel héél vaak op 'pgdn' moeten klikken...

Dan denk ik nog eventjes verder

Vergeten te vermelden.
Als je Option Explicit gebruikt moet je volgende variabelen nog definieren
jaar vorig c00 c01

idd, 'vorig' en 'jaar' moest ik nog declareren (even over het hoofd gezien maar zou dan wel melding hebben gekregen zodra ik de 'option explicit' terug uit de commentaar haalde  )

de PDF-code heb ik gereduceerd tot 1 lijntje code
  ActiveSheet.ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "\" & ActiveSheet.Name & ".pdf", , , , , , True

groetjes,
Bieke

de PDF-code heb ik gereduceerd tot 1 lijntje code

Het kan zelfs nog wat korter.
ActiveSheet.ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "\" & ActiveSheet.Name, , , , , , True

Is deze oplossing een mogelijkheid?
Druk op de knop idx2dig

Sorry Della, maar ik ben speciaal afgestapt van het gebruik van de inpubox omdat ik deze te storend/onderbrekend vond dus dan zie ik niet hoe een UF een betere oplossing zou zijn...

En als je dan toch een UF gebruikt om de gebruiker de parochie te laten kiezen, waarom dan nog een extra werkblad aanmaken met een lijst als bron van de keuzelijst???
Waarom dan op de UF niet meteen kiezen voor een combobox.list die je meteen in de code opvult??
Ook zou ik persoonlijk de verwerk-code van de sub zelf niet in zijn geheel in de UF-code zetten maar zou ik in de UF enkel de sub aanroepen.


Enkel en alleen maar voor dat keuzelijstje op elk werkblad een UF gaan aanroepen vind ik alles behalve 'het simpel houden'.
Als ik dan al een UF wenselijk achtte dan had ik die optie wel gebruikt om mijn 'gecentraliseerde' code van de afgelopen dagen aan te sturen.
Meer zelfs, ik zou dan àl mijn werkbladen en diverse handelingen aansturen via UF's voor mijn volledige bestand.

ik waardeer je poging maar ik wil net het storende effect van een inputbox elimineren terwijl jouw UF-oplossing die enkel maar vervangt dus dan kan ik evengoed mijn inputbox behouden.

toch bedankt voor de moeite.

groetjes,
Bieke

Hey Bieke,

Na veel wikken en wegen dus toch voor nog een ideetje van mij gegaan?

heb ik gewoon voor de 6 soorten registers een eigen 'template'-werkblad (DIG) gemaakt

En dit klinkt mij ook niet onbekend in de oren:

Op elk 'IDX'-werkblad komt dan een knop met daarachter een eigen 'sub'

Die keuzelijst in A1 is wat ik je net wou voorstellen, dus daarmee zitten we nog eens meteen op hetzelfde spoor

Is het een vereiste dat je pdf geopend wordt na aanmaak? Indien ja, dan heb ik weer niets gezegd, anders kan je die 'True' achteraan wijzigen, of nog beter: weghalen, samen met die serie komma's.
En om dan verder in te korten:
ActiveSheet.ExportAsFixedFormat 0, ThisWorkbook.Path & "\" & ActiveSheet.Name
Groetjes,
Molly

Hey Bieke,

(keuzelijst)...mijn gevonden oplossing daaromtrent blijkt dan toch niet helemaal waterdicht te zijn

Dan vraag ik me af hoe je dat gedaan hebt (?)
Zo van héél ver zie ik 2 mogelijkheden, afhankelijk van hoe jij werkt:
Als je binnen dezelfde sessie én gegevens toevoegt én deze verwerking(en) doet wordt het iets lastiger, dan zou je al een worksheet_change moeten gebruiken (of nog naar een andere manier zoeken...)
Maar als je (wat ik eerder zou verwachten) of het ene of het andere doet kan het met workbook_open geregeld worden.

Ik heb ook je nieuwste code bekeken, en die kan iets korter. Op zich niet zo speciaal, maar met het oog op 'dupliceren' naar de 5 andere zou je er wel wat tijd mee kunnen besparen.

Groetjes,
Molly

Hey Bieke,

Volgende code is net iets langer , maar bliksemsnel , en heeft geen behoefte aan een vrije plaats op je werkblad:
Private Sub Worksheet_Activate()

par = Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)
With CreateObject("System.Collections.Arraylist")
  For i = 1 To UBound(par)
    If Not .contains(par(i, 1)) Then .Add par(i, 1)
  Next
  .Sort
  val_lijst = Application.Transpose(Application.Transpose(.toarray))
End With
With Cells(1, 1).Validation
  .Delete
  .Add Type:=xlValidateList, Formula1:=Join(val_lijst, ",")
End With

End Sub

Groetjes,
Molly