Macro tabblad printen als pdf met als naam van cel

[Louw]

Beste forum,

Ik heb een macro'tje om een tabblad als pdf op te slaan. Maar nu wil ik graag de naam(hieronder nog test) veranderen in de waarden die in cellen F3 en E5 staan.

Alvast bedankt!

ChDir "S:\Credit\ACC\KAC\KA2\Resultaten KA2"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "S:\Credit\ACC\KAC\KA2\Resultaten KA2\test.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True

 

[lam201]

niet geprobeerd. Maar zoiets...

filename = range("F3") & ".pdf"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "S:\Credit\ACC\KAC\KA2\Resultaten KA2\" & filename, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True

Lambert

 

[Louw]

Hi Lam,

Het werkt! Thanks daarvoor. Kan je als aanvulling vertellen hoe ik een 2e cel ook in het bestandsnaam krijg?

 

[lam201]

aub

filename = range("F3") & range("E5") & ".pdf"

 

[Louw]

You made my day

 

[lam201]

Louw,


de kers op de taart:

Dim x
Dim Myarray

'check file name for invalid characters
Myarray = Array("<", ":", ">", "|", "/", "*", "\", "?", """")
For x = LBound(Myarray) To UBound(Myarray)
    Shopname = Replace(filename, Myarray(x), "", 1)
Next x

plaats dit stukje na de eerste regel (filename =... etc).
Het controleert de bestandsnaam op tekens die niet zijn toegestaan in windows

 

[Louw]

Lam,

Thank you for the cherry! Helemaal mooi!