VBA gevraagd voor het maken van filters en pdf's

[Senso]

Kolom A is jaren, kolom B de codes
1. Maak filters van de jaren die in kolom A staat en maak sheets met de naam 2020, 2021 etc.

2. Maak filters van de codes die in kolom B staan en maak sheets met de naam van de code A-001-L, B001 etc

3. Zijn alle sheets gemaakt, maak dan van alle sheets een aparte pdf. Ik zet het document in E:\Filters
Hoop dat het duidelijk is.
Kan best zijn dat ik dit al eens gevraagd heb, maar daar weet ik niets meer van. Geheugenverlies. En dan moet ik toch weer opnieuw beginnen.

 

[Senso]

Laat maar even zitten. AI heeft een robuuste code geschreven en die ga ik eerst uitgebreid testen en heb ik vragen of problemen kom ik er op terug.

 

[Senso]

De code werkt goed, echter ik zou een aparte module willen hebben om de aangemaakte sheets te verwijderen. De originele sheet (bron) heeft de naam Filters. Die moet dus altijd blijven bestaan. Kan iemand daar de VBA voor schrijven?

    ' Zet filters uit en herstel scherm
    wsSource.AutoFilterMode = False
    Application.ScreenUpdating = True

 ' Optioneel: Verwijder het aangemaakte blad na export om je bestand schoon te houden
        ' Application.DisplayAlerts = False
        ' ws.Delete
        ' Application.DisplayAlerts = True
    Next filterValue

Dit laatste moet dus niet. Moet alleen als ik dat wil en niet automatisch.

edit:
Is gelukt, nu nog in het grote document verwerken.

 

[Senso]

Ik krijg nu alle codes als sheets. Die sorteer ik met VBA. Ik kan nu alle sheets behalve de bronsheet wissen. Echter de marges worden niet overgenomen in de nieuwe sheets.

was links 0 en rechts 0
wordt links 1,8 en rechts 1,8

boven 0,4 en onder 0,4
wordt 1,9 en onder 1,9

De zoom wijzigt van 90 naar 100
De kolombreedtes worden niet aangepast naar de oude situatie.
Dat wordt dus een hele toer om dat allemaal goed te krijgen.
Dan moet je een VBA schrijven die dat allemaal aanpast.

Het moge dan ook duidelijk zijn dat de pdf's niet kloppen.

 

[emields]

misschien vragen aan AI?

 

[Senso]

Ik krijg nu alle codes als sheets. Die sorteer ik met VBA. Ik kan nu alle sheets behalve de bronsheet wissen.

Zoals je kunt lezen/begrijpen heb ik dat gedaan en de VBA zag er perfect uit en werkt in de proefopstelling uitstekend. Met wat uitbreidingen ging het ook goed maar de uitwerkingen bij het grote document zijn niet goed.

Het is logisch als de opmaak niet wordt overgenomen in de filters/nieuwe sheets dat er ook niets meer klopt van de pdf's.
Dus ik moet een macro opnemen die de de filters kan aanpassen. Maar dat kost mij altijd veel tijd.