paulkoenis
Nieuwe gebruiker
- Lid geworden
- 28 okt 2020
- Berichten
- 3
Goedendag
Ik heb onderstaande macro staan om 1 excel tabblad op te slaan in een bepaalde map
Nu heeft het excel bestand meer dan 100 tabbladen en dat kunnen er volgende maand wel weer meer zijn
Ik heb nu deze macro op alle tabbladen gezet en zo sla ik 1 voor 1 de PDF op
Graag zou ik willen dat ik met 1 macro alle tabbladen afzonderlijk kan opslaan met hun eigen naam
Hoe realiseer ik dit?
Sub PDF()
Dim FacName As String
FacName = ActiveSheet.Range("G1").Value & " " & Range("E1").Value
If Dir("\\go.local\data2\klantendata2\TSNed\Groepsdata\Regio Controller\Spaaruren" & FacName & ".pdf") <> "" Then
MsgBox "Het bestand: " & FacName & ".pdf bestaat reeds"
Exit Sub
Else
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="\\go.local\data2\klantendata2\TSNed\Groepsdata\Regio Controller\Spaaruren" & FacName & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=False
End If
End Sub
Ik heb onderstaande macro staan om 1 excel tabblad op te slaan in een bepaalde map
Nu heeft het excel bestand meer dan 100 tabbladen en dat kunnen er volgende maand wel weer meer zijn
Ik heb nu deze macro op alle tabbladen gezet en zo sla ik 1 voor 1 de PDF op
Graag zou ik willen dat ik met 1 macro alle tabbladen afzonderlijk kan opslaan met hun eigen naam
Hoe realiseer ik dit?
Sub PDF()
Dim FacName As String
FacName = ActiveSheet.Range("G1").Value & " " & Range("E1").Value
If Dir("\\go.local\data2\klantendata2\TSNed\Groepsdata\Regio Controller\Spaaruren" & FacName & ".pdf") <> "" Then
MsgBox "Het bestand: " & FacName & ".pdf bestaat reeds"
Exit Sub
Else
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="\\go.local\data2\klantendata2\TSNed\Groepsdata\Regio Controller\Spaaruren" & FacName & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=False
End If
End Sub