pdf van meerdere sheets

[don42]

Beste helpers,

Ik heb weer eens jullie hulp nodig!

Wil graag één Pdf maken van meerdere sheets
En dan van de sheets die de zelfde naam hebben al de namen in kolom A van sheet Punten

nu heb ik als voorbeeld gewoon de namen ingetikt

Private Sub CommandButton2_Click()
SheetArray = Array("Naam1", "Naam3")
varFileName = ActiveWorkbook.Path & "\" & "test.pdf"
With Sheets(SheetArray)

       .Select
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=varFileName, Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
End With
End Sub

Wie helpt mij verder?

 

[edmoor]

Geen enkele waarde uit kolom A in je voorbeeld document komt overeen met de naam van een werkblad.
"naam 1" is iets anders dan "naam1", dus dat moet je aanpassen.

Gebruik dan dit om te doen wat je vroeg:

Private Sub CommandButton2_Click()
    On Error Resume Next
    For i = 1 To Range("A1").CurrentRegion.Rows.Count
        Sheets(Cells(i, 1).Value).Select IIf(i = 1, True, False)
    Next i
    On Error GoTo 0
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=varFileName, OpenAfterPublish:=True
    Sheets("Punten").Select
End Sub

 

[don42]

Oke dat met die namen was niet handig
Had snel iets in elkaar gezet als voorbeeld

maar ik kom niet verder

heb een sheet met een aantal tabbladen
Eerst 3 met Reglement - uitslagen - Punten
vervolgens komen de sheets met de namen
maar met de code van jou worden de eerste 3 geselecteerd en vervolgens een pdf van gemaakt
maar had graag één pdf van alle sheets met de zelfde naam in een kolom

 

[edmoor]

De code werkt prima op je voorbeeld document en doet precies wat je vroeg.
Als dat in je werkelijke document niet zo is dat is er in dat document iets dat anders is dan in je voorbeeld.
Zonder dat document kan ik er dus niets anders over zeggen dan dat je moet onderzoeken waarom niet alle gewenste werkbladen in de PDF terecht komen.
Lege regels in kolom A bijvoorbeeld.

NB:
Een sheet kan geen tabbladen hebben.

 

[don42]

Ik ben er uit
en het werkt perfect
moest even iets aanpassen ten opzichten van mijn voorbeeldje

Maar ben er blij mee
Bedankt
Fijn Weekend verder:thumb: