PDF File maken/opslaan van verschillende werkbladen

Status
Niet open voor verdere reacties.

Jeannette2509

Gebruiker
Lid geworden
11 nov 2019
Berichten
39
Ik heb met de hulp van HSV nu een mooie macro:

Code:
Dim sh As Worksheet, naam As String
 For Each sh In Sheets
  If LCase(sh.Name) <> "specificatie" And LCase(sh.Name) <> "totaalfactuur" Then sh.Visible = sh.Tab.Color = 255
 Next sh
  naam = Application.GetSaveAsFilename(, "PDF Files (*.pdf), *.pdf", , "Voer bestandsnaam in")
  If InStr(naam, ".pdf") Then ThisWorkbook.ExportAsFixedFormat 0, naam
    For Each sh In Sheets
      sh.Visible = -1
    Next sh
End Sub

Deze werkt fantastisch, maar zou nu ook graag de uitkomst van deze macro willen opslaan als PDF op basis van de
bestandsnaam en het pad uit 2 verschillende cellen.

Alvast bedankt voor jullie hulp
 
Dank voor je reactie.
Deze heb ik nog niet gemaakt, omdat ik niet wist of de mogelijkheid bestond.

Het is de bedoeling dat in een van de werkbladen bijv. "Data" in cel A1 de bestandsnaam staat en cel A2 het pad
 
Test het maar eens weer.
Code:
Dim sh As Worksheet 
 For Each sh In Sheets
  If LCase(sh.Name) <> "specificatie" And LCase(sh.Name) <> "totaalfactuur" Then sh.Visible = sh.Tab.Color = 255
 Next sh
 ThisWorkbook.ExportAsFixedFormat 0, sheets("data").range("a2") & "\" sheets("data").range("a1") & ".pdf"
    For Each sh In Sheets
      sh.Visible = -1
    Next sh
End Sub
 
Jammer, gaat niet helemaal goed.

HTML:
ThisWorkbook.ExportAsFixedFormat 0, sheets("data").range("a2") & "\" sheets("data").range("a1") & ".pdf"

geeft foutcode: Compileerfout: Syntaxisfout
 
Zet een & tussen "" en sheets.
 
Laatst bewerkt:
Ik was een "&" vergeten.
Code:
ThisWorkbook.ExportAsFixedFormat 0, sheets("data").range("a2") & "\" [SIZE=3][COLOR=#ff0000]&[/COLOR][/SIZE] sheets("data").range("a1") & ".pdf"

Dit zou bv. in A2 moeten staan.
Code:
C:\users\blabla
Als er een backslash aan het eind staat, dan die verwijderen of de code aanpassen.
Code:
ThisWorkbook.ExportAsFixedFormat 0, sheets("data").range("a2") & sheets("data").range("a1") & ".pdf"
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan