Leeg werkblad in Excel 2016 verwijderen

[BenjaminDM]

Beste,

In Excel zijn bepaalde lege werkbladen die wij niet kunnen verwijderen. We willen de documenten in PDF omzetten en er blijven witte bladen tussenzitten.

Iemand een oplossing?

Groetjes

 

[edmoor]

Erg weinig info. Plaats dat document of vertel erbij wat er gebeurt als je die bladen probeert te verwijderen.

 

[gast0660]

Als ik je vraag goed begrijp, moeten bepaalde (blanco werkbladen) niet in de Pdf.
Zet dan de werkbladen die wel in de PDF moeten in een array.

With ThisWorkbook.Sheets(Array("Blad1", "Blad2", "Blad6"))
 .ExportAsFixedFormat Type:=xlTypePDF, Filename:=[COLOR="#008000"]' ......  uw code[/COLOR]
End With

 

[HSV]

Dat gaat op die manier niet werken @gast0660.

Sub hsv()
Dim sh As Worksheet
Sheets(Array("Blad3", "Blad4", "Blad5")).Visible = False
ThisWorkbook.ExportAsFixedFormat 0, "c:\users\benjamin\documents\testje"
  For Each sh In Sheets(Array("Blad3", "Blad4", "Blad5"))
    sh.Visible = True
 Next sh
End Sub

Als je niet weet welke bladen leeg zijn?, dan onderstaande code.

Sub hsv()
Dim sh As Worksheet
  For Each sh In Sheets
    If sh.UsedRange = "" Then sh.Visible = False
  Next sh
ThisWorkbook.ExportAsFixedFormat 0, "c:\users\benjamin\documents\testje"
  For Each sh In Sheets
    sh.Visible = True
  Next sh
End Sub