• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Macro opslaan als PDF met naam uit cel

Status
Niet open voor verdere reacties.
peter59

peter59

Terugkerende gebruiker
Lid geworden
21 mei 2007
Berichten
1.725
Besturingssysteem
Windows 11
Office versie
Office versie 365
Hallo,

Ik heb met de recorder een macro opgenomen voor het opslaan van een sheet als een PDFje.
Voor het opslaan als PDF zijn legio voorbeelden van te vinden maar ik krijg het maar niet voorelkaar voor het met de waarde in cel C1 op te slaan.
Code: 
Sub SaveAsPDF()
    Range("A1:J34").Select
    ChDir "E:\Nieuwe downloads\15 Q-rap No-Show\PP TEST No-Show\Rap"
    Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "E:\Nieuwe downloads\15 Q-rap No-Show\PP TEST No-Show\Rap\[COLOR="#FF0000"]test.pdf[/COLOR]", Quality _
        :=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
    Range("A1").Select
End Sub

Dus het stukje code welke rood is gekleurd dient eigenlijk de waarde van cel C1 weergegeven te worden.

Ik hoop dat ik het e.e.a. duidelijk heb uitgelegd.

Mvg
Peter.
 

Bijlagen

  • Opslaan als PDF.xlsb
    17,6 KB · Weergaven: 176
Laatst bewerkt:
Zoiets?
Code: 
"E:\Nieuwe downloads\15 Q-rap No-Show\PP TEST No-Show\Rap & "\ " & ActiveSheet.Range("C1") &".pdf", Quality _
 
Hallo gast0660

Dank alvast voor het meedenken.

Macro loopt "stuk" op ....& ActiveSheet.Range("C1") &.....".
Compilleerfout.

Mvg
Peter
 
oeps, mijn fout,probeer:
Code: 
 Range("A1:J34").ExportAsFixedFormat Type:=xlTypePDF, Filename:="E:\Nieuwe downloads\15 Q-rap No-Show\PP TEST No-Show\Rap [COLOR="#FF0000"]"[/COLOR] & "\ " & Range("C1") & ".pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True 'false
 
gast0660 ,

Helaas,
Ik heb de div aanpassingen welke je voorstelde in de code aangebracht maar het blijft fout gaan.

Code: 
Sub SaveAsPDF()
    Range("A1:J34").Select
    ChDir "E:\Nieuwe downloads\15 Q-rap No-Show\PP TEST No-Show\Rap"
    Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "E:\Nieuwe downloads\15 Q-rap No-Show\PP TEST No-Show\Rap " & "\ " & ActiveSheet.Range("C1") & ".pdf", Quality
        :=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
    Range("A1").Select
End Sub

Zie ook voorbeeldje.

Mvg
Peter
 

Bijlagen

  • Opslaan als PDF.xlsb
    17,9 KB · Weergaven: 74
Beste Peter,
Je hebt alleen je codelijnen verkeerd gesplitst
Hierbij 4 mogelijkheden voor hetzelfde, maar Select zou ik zoveel mogelijk vermijden in VBA en ChDir is overbodig.
 

Bijlagen

  • Opslaan als PDF peter59.xlsb
    16,4 KB · Weergaven: 256
Hallo gast0660

De code ging nog niet goed.
Met wat speur -en probeer werk is de volgende code er uit gerold.
Het rode in de code verwijderd en het groen bijgevoegd.
Nu doet de code zoals ik het voor ogen had.

Dank voor mij op de goede weg te zetten.

Code: 
Sub SaveAsPDF2()
   Range("A1:J34").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "E:\Nieuwe downloads\15 Q-rap No-Show\PP TEST No-Show\Rap[COLOR="#00FF00"]\[/COLOR] " & [COLOR="#FF0000"]"\ " &[/COLOR] Range("C1") & ".pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
   End Sub

Mvg
Peter
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan