bakerman

@ bucky Voor zover ik weet is ExportAsFixedFormat enkel voor pdf of xps documenten (correct me if I'm wrong) Vermijd Select, Activate, ActiveSheet in je code. In 99% van de gevallen is het overbodig en onnodig en zorgt het enkel voor vertraging en vervelende schermwisselingen. Gebruik With...End With lussen in de plaats. @ pscheppers Plaats volgende code in een standaardmodule en link deze dan aan een knop. Ik heb nu verkorte maandnamen gebruikt maar dit kan je aanpassen naar wens. Sub tst() Application.CopyObjectsWithCells = False fname = "c:\Top\info\schouwing\schouwdiensten\afgewerkte diensten\" & _ Choose(Month(Date), "Jan", "Feb", "Maa", "Apr", "Mei", "Jun", "Jul", "Aug", "Sept", "Okt", "Nov", "Dec") & "\" & _ Format(Date, "dd-mm-yyyy") & "\" & "naam voor je formulier" Sheets("Naam van je formulierwerkblad").Copy With ActiveWorkbook .SaveAs fname, 51 .Close True End With Application.CopyObjectsWithCells = True End Sub

Test de bijlage maar eens uit. Teams_Reinder.xlsm

Enkele woordjes uitleg. 1. Zorg er steeds voor dat je invulblad het 1ste werkblad in je bestand is. 2. Vul je invulblad volledig in alvorens de macro te starten. 3. Om typfouten in bladnamen of ontbrekende werkbladen te vermijden worden eerst alle werkbladen (buiten het invulblad) verwijderd. 4. Aan de hand van unieke locaties in kolom 4 worden de nieuwe werkbladen aangemaakt. 5. Alle ingevulde rijen worden automatisch verdeelt over de aangemaakte werkbladen. Map111_ba.xlsm