(excel)-tabbladen selecteren

[Yoni1207]

Mijn vraag

ik heb een macro geschreven om een aantal werkbladen te selecteren, in pdf af te drukken en op te slaan op de pc. Dit werkt perfect, behalve wanneer een tabblad verdicht is.
...

Relevante software en hardware die ik gebruik
excel
...

Wat ik al gevonden of geprobeerd heb

dit is mijn macro die werkt, behalve dus als 1 vd werkbladen verdicht is... (ter info: elk tabblad zou kunnen verdicht zijn en het is niet de bedoeling om dit tabblad zichtbaar te maken, dit zou verdicht moeten blijven)..

Sub afdrukken_pdf()
'
' afdrukken_pdf Macro
'

'
Sheets(Array("FOUTMELDINGEN", "Begeleidende brief", "organogram AH+BL (1)")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"F:\Demi\Naam.pdf", IgnorePrintAreas:=False, OpenAfterPublish:=True

End Sub
...

[Lustucru]

Met verdicht bedoel je verborgen? Is dat Vlaams?

Anyway, een verborgen tabblad kun je dus inderdaad nooit selecteren. Maar select is ook niet nodig. Dat is in je vorige topic ook al opgemerkt.

Lustucru schreef op vrijdag 22 januari 2021 @ 11:19:
[...]
Maar sowieso is een worksheet.select in een macro meestal onnodig en ongewenst.

[Yoni1207]

Verdicht = verborgen inderdaad.

maar hoe weet de macro dan welke tabbladen hij moet selecteren?
moet ik best op een andere manier werken?

dat had jij voorgesteld om te gebruiken:
for each ws in activeworkbook.worksheets
If ws.visible then
'doe je ding
endif

moet daar geen 'next' in gebruikt worden? ik krijg daar een foutmelding op..

[g0tanks]

Yoni1207 schreef op zondag 7 maart 2021 @ 12:33:
maar hoe weet de macro dan welke tabbladen hij moet selecteren?

Wat je nu doet is een sheet selecteren en dan vervolgens refereren naar ActiveSheet. In de code van @Lustucru kan je gewoon direct refereren naar "ws".

Yoni1207 schreef op zondag 7 maart 2021 @ 12:33:
moet daar geen 'next' in gebruikt worden?

Als ik kijk naar de code van @Lustucru dan staat daar toch Next bij?

[Yoni1207]

Sub pdf()
'
' pdf Macro
'

'
For Each ws In ActiveWorkbook.Worksheets
If ws.Visible Then
Sheets().Select

End If
Next ws

End Sub

--> dan kom ik hier op uit.. maar hij moet van bv. de 10 tabbladen enkel tabblad 1, 3 en 5 in pdf zetten, en als 3 bijvoorbeeld verborgen is, dan moet hij deze niet meenemen.. ik veronderstel in de formule hierboven, dat hij alle zichtbare tabbladen gaat meenemen.. ik ben dus niet helemaal mee (ben ook nog een beginner en nog niet zo lang bezig met VBA wat je wel gemerkt zult hebben )

[Lustucru]

Zou je ajb je code tussen [code][/code] willen zetten?


In je eerste regel:

code:

Sheets(Array("FOUTMELDINGEN", "Begeleidende brief", "organogram AH+BL (1)"))

geef je al een array mee van eventueel af te drukken bladen. Dan is de rest dus simpel: je loopt daar doorheen en selecteert ze alleen als ze zichtbaar zijn:

code:

replaceselection=true
For each ws in Sheets(Array("FOUTMELDINGEN", "Begeleidende brief", "organogram AH+BL (1)"))
     If ws.visible then
          ws.select replaceSelection
          replaceSelection=false
     endif
next ws

replaceSelection is een handigheidje. Doordat die bij de eerste sheet 'true' is begin je daar een nieuwe selectie. Meteen daarna wordt hij false en breidt iedere volgende select opdracht de selectie uit.

Een alternatief is eerst een array opbouwen met de juiste sheets, maar dat zijn meer regels. Dit is dus een van de weinige gevallen waarin een select handig kan zijn.

[ Voor 8% gewijzigd door Lustucru op 07-03-2021 15:54 ]

[Yoni1207]

Lustucru,

werkt inderdaad perfect. bedankt!

[g0tanks]

Het is mij trouwens niet helemaal duidelijk of de drie geselecteerde sheets ("FOUTMELDINGEN", "Begeleidende brief", "organogram AH+BL (1)") ook gelijk de enige zijn die zichtbaar zijn. Als dat zo is kan het nog simpeler door de hele workbook te printen. ExportAsFixedFormat print namelijk standaard alleen de zichtbare sheets. Dus dan werkt het volgende ook:

code:

    ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "export.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True