Enkele werkbladen opslaan in PDF formaat

Status
Niet open voor verdere reacties.

gast0666

Gebruiker
Lid geworden
21 jun 2019
Berichten
90
Beste forumleden,

Ik heb een werkmap met daar in een aantal werkbladen.
Nu wil ik graag twee bepaalde werkbladen als pdf opslaan, omdat het niet zinvol is de hele werkmap op te slaan.
De namen onder de eigenschappen van de bladen zijn Blad 5 en Blad 6.

Wie kan mij even op weg helpen?

mvg,
 
Laatst bewerkt door een moderator:
Bladen die niet van toepassing zijn verbergen, Pdf maken en bladen weer zichtbaar.
Code:
Sub hsv()
dim sh as worksheet
With ThisWorkbook
  for each sh in sheets
      if sh.name <> "Blad5" and sh.name <> "Blad6" then sh.Visible = False
   next sh
 .ExportAsFixedFormat 0, "c:\temp\test"
    for each sh in sheets
      sh.Visible = true
    next sh
End With
End Sub
 
Beste forumleden,

Ik heb de macro enigszins aangepast, maar krijg toch een foutmelding.

Ik heb een aantal werkbladen in de werkmap, maar twee werkbladen (Boekingen en FinOverzicht) wil ik als pdf formaat opslaan.
Daarna, of daarvóór het gehele bestand opslaan als xlsm.

Misschien te veel gevraagd, maar het pad D:\dsrcleaning\2020\bedrijfsadministratie.xlsm van opslaan zou ik graag willen verwijzen naar de betreffende excel cellen.
J2 = dsrcleaning\
J3 = naam van het bestand
F1 = huidig boekjaar

Code:
Dim sh As Worksheet
With ThisWorkbook
  For Each sh In Sheets
      If sh.Name <> "Boekingen" And sh.Name <> "FinOverzicht" Then sh.Visible = False
   Next sh
 .ExportAsFixedFormat 0, "D:\dsrcleaning\2020\bedrijfsadministratie.xlsm"
    For Each sh In Sheets
      sh.Visible = True
    Next sh
End With
ActiveWorkbook.Save
Application.DisplayAlerts = False
 
Code:
sub twee()
Dim sh As Worksheet, sht as worksheet

With ThisWorkbook
set sht = sheets("blad1")
  For Each sh In Sheets
      If sh.Name <> "Boekingen" And sh.Name <> "FinOverzicht" Then sh.Visible = False
   Next sh
 .ExportAsFixedFormat 0, "D:\" & sht.range("J2") & sht.Range("F1") & "\"  & sht.Range("J3") 
    For Each sh In Sheets
      sh.Visible = True
    Next sh
 .Save
end with
end sub

Let erop dat
Code:
set sht = sheets("blad1")
het werkblad is waar de gegevens staan van:
J2 = dsrcleaning\
J3 = naam van het bestand
F1 = huidig boekjaar
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan