PDF File maken/opslaan van verschillende werkbladen

[Jeannette2509]

Ik heb met de hulp van HSV nu een mooie macro:

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

 

[SjonR]

welke cellen?

 

[Jeannette2509]

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

 

[HSV]

Test het maar eens weer.

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

 

[Jeannette2509]

Jammer, gaat niet helemaal goed.

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

geeft foutcode: Compileerfout: Syntaxisfout

 

[SjonR]

Zet een & tussen "" en sheets.

 

[HSV]

Ik was een "&" vergeten.

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.

C:\users\blabla

Als er een backslash aan het eind staat, dan die verwijderen of de code aanpassen.

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

 

[Jeannette2509]

Het werkt!
Erg blij mee. Heel hartelijk bedankt Harry en SjonR.