Helpmij.nl
Helpmij.nl
Helpmij.nl

Quote

Weergeven resultaten 1 tot 4 van 4

Onderwerp: Enkele werkbladen opslaan in PDF formaat

  1. #1
    Vraag is opgelost

    Enkele werkbladen opslaan in PDF formaat

    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,
    hdrenth

  2. #2
    Giga Honourable Senior Member
    Geregistreerd
    18 juli 2008
    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
    ____________
    Met vriendelijke groet,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

  3. #3
    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

  4. #4
    Giga Honourable Senior Member
    Geregistreerd
    18 juli 2008
    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
    ____________
    Met vriendelijke groet,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl

Regels
Help

Helpmij.nl en business

Partners
Sponsoren