Opslaan als PDF

[gerrit123456789]

Goede morgen,

Ik zou graag het bestand willen opslaan als PDF bestand met als bestandsnaam de datum uit cel C3 en de dienst uit cel C4.
Hoe kan ik dit in de bestaande macro veranderen.
De rest moet het zelfde blijven voor wat betreft het leegmaken van de cellen na het opslaan.

Tevens wil ik dat het excel bestand afgesloten wordt na het opslaan d.m.v. een aparte macro.

Wie kan mij hierbij verder helpen.

Bij voorbaat dank,

Gerrit

Bekijk bijlage Ploegoverdracht 1111.xlsm

 

[edmoor]

Als C3 en C4 gevuld zijn, dit in een module:

Sub OpslaanPDF()
    With Sheets("Blad1")
        .ExportAsFixedFormat _
         Type:=xlTypePDF, _
         Filename:=.Range("C3") & " " & .Range("C4")
    End With
End Sub

In de ThisWorkbook sectie:

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
    Application.Quit
[COLOR="#008000"]    'Of:
    'ActiveWorkbook.Close False[/COLOR]
End Sub

 

[gerrit123456789]

Hij moet in een bepaalde map opgeslagen worden.
Hoe en waar plaats ik dat in de macro?

Groet,

Gerrit

 

[edmoor]

Sub OpslaanPDF()
    With Sheets("Blad1")
        .ExportAsFixedFormat _
         Type:=xlTypePDF, _
         [COLOR="#FF0000"]Filename:="C:\bepaalde map\" & .Range("C3") & " " & .Range("C4")[/COLOR]
    End With
End Sub

 

[gerrit123456789]

Ik ben misschien wel veel vragend, maar is het ook mogelijk om de onbeveiligde cellen na het opslaan leeg te maken?
Zo ja, hoe doe ik dat dan?

Groet,

Gerrit

 

[edmoor]

Dat kan miet iets als dit:

For Each cel In ActiveSheet.UsedRange
    If Not cel.Locked Then cel.Value = ""
Next cel

 

[gerrit123456789]

Tot op heden is het me gelukt met het opslaan en het leegmaken van de cellen.
Alleen lukt het mij niet om het bestand te laten afsluiten nadat het is opgeslagen en de cellen leeggemaakt zijn.

Zie het bijgevoegde bestand.

Wie helpt mij verder?

Groet,

Gerrit


Bekijk bijlage Ploegoverdracht 11.xlsm

 

[HSV]

Waarom niet in dezelfde macro.

Next cel
[COLOR=#0000ff]thisworkbook.close -1[/COLOR]
End Sub

 

[gerrit123456789]

Het is gelukt.

Ik heb nog een vraagje.

Is het mogelijk om de cellen die niet geblokkeerd zijn en dus ingevuld moeten worden, om di te laten oplichten of iets dergelijks.

In ieder geval dat zijn goed kenbaar gemaakt worden/

Groet,

Gerrit

 

[gerrit123456789]

Weet iemand hoe ik de datum van het bestand wat ik opsla met de volgende opmaak krijg

bv. 01-02-2017

In de macro staat dit.

With Sheets("Blad1")
.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:="C:\Users\Gerrit Jacobs\Documents\Testbestanden" & .Range("C3") & " " & .Range("C4")
End With
End Sub

Groet,

Gerrit

 

[edmoor]

With Sheets("Blad1")
        .ExportAsFixedFormat _
         Type:=xlTypePDF, _
         Filename:="C:\Users\Gerrit Jacobs\Documents\Testbestanden" & Format(.Range("C3"), "DD-MM-YYYY") & " " & .Range("C4")
    End With
End Sub

 

[HSV]

[COLOR=#3E3E3E]"C:\Users\Gerrit Jacobs\Documents\Testbestanden" & [/COLOR][COLOR=#0000ff]format(.Range("C3"), "dd-mm-yyyy") [/COLOR][COLOR=#3E3E3E]& " " & .Range("C4")[/COLOR]