VBA Array active Sheet to PDF

[HSV]

Benoem de bladen die verborgen moeten worden.

Aan het eind van de code worden ze weer zichtbaar.

Sub hsv()
Dim sh As Worksheet
Sheets(Array([COLOR=#ff0000]"blad1", "blad2"[/COLOR])).Visible = False
 ThisWorkbook.ExportAsFixedFormat 0, "c:\users\Belmans\documents\jePDF"
  For Each sh In Sheets(Array("[COLOR=#ff0000]blad1", "blad2"[/COLOR]))
    sh.Visible = True
   Next sh
End Sub

 

[MatthiasPBelmans]

Hoi ik krijg volgende foutmelding

Runtime error '1004':
Unable to set the Visible property of the Sheets class

 

[HSV]

Het rode gedeelte wel aanpassen, alsook het stukje waar het moet worden opgeslagen.

 

[lam201]

Matthias,

Bedoel je 'm zo?

Deze rode regel toevoegen in je eerste code

   Set wbA = ActiveWorkbook
   arr = Array("COMMERCIAL INVOICE", "PACKING LIST", "END USE LETTER", "SHIPPER DECLARATION - 1", "EXPORT CERT - 1", "SHIPPER DECLARATION - 2", "EXPORT CERT - 2", "SHIPPER DECLARATION - 3", "EXPORT CERT - 3", "SHIPPER DECLARATION - 4", "EXPORT CERT - 4", "SHIPPER DECLARATION - 5", "EXPORT CERT - 5", "SHIPPER DECLARATION - 6", "EXPORT CERT - 6")
   [COLOR="#FF0000"]Call VisibleSheets(arr)[/COLOR]
   Set wsA = Sheets(arr)

en onderaan deze functie code toevoegen:

[edit]: Na de End Sub natuurlijk

Function VisibleSheets(Qarr)
    Dim myArray() As Variant
    Dim i As Integer
    Dim j As String
    j = 0
    For i = 0 To UBound(Qarr)
        If Sheets(Qarr(i)).Visible = True Then
            ReDim Preserve myArray(j)
            myArray(j) = Qarr(i)
            j = j + 1
        End If
    Next i
    
    Erase Qarr
    Qarr = myArray
    
End Function

Dat moet ervoor zorgen dat uit je eerste selectie (arr) alleen de zichtbare werkbladen worden geprint.