Variabele filenaam

[pewie37]

Hay Forumleden :d

Kan mij iemand vertellen hoe ik in een opgenomen macro (dus weet niks van VBA) de bestandsnaam aanpas aan de inhoud van een cel. Dus als in cel J24 (= tekst eigenschap) "12345" staat, had ik graag de bestandsnaam als volgt: "12345.pdf" in plaats van "Factuur.pdf" zoals in onderstaande code.

Om NOG iets duidelijker te zijn....
Ik zoek dus zoiets als: celJ24 + ".pdf" (maar dit is niet de goede syntax)

Thanks alvast :thumb:





Sub pdfmaken()
'
' pdfmaken Macro
'

'
ActiveWindow.SmallScroll Down:=-30
Range("F4:U70").Select
ActiveSheet.PageSetup.PrintArea = "$F$4:$U$70"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"Factuur.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
ActiveWindow.SmallScroll Down:=15
Range("B34").Select
ActiveWindow.SmallScroll Down:=-36
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

 

[gast0660]

Hoi,
Zoiets volgens uw macro

ActiveWindow.SmallScroll Down:=-30
Range("F4:U70").Select
ActiveSheet.PageSetup.PrintArea = "$F$4:$U$70"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
[COLOR="#FF0000"]"C:\PDF\" & ActiveSheet.Range("J24").Value & ".pdf"[/COLOR], Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
ActiveWindow.SmallScroll Down:=15
Range("B34").Select
ActiveWindow.SmallScroll Down:=-36
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

C:\PDF\ aanpassen naar uw map

 

[pewie37]

He thanks !
Opgelost, TOP :thumb:

 

[Warme bakkertje]

En de kortere versie.

Sub pdfmaken()
'
' pdfmaken Macro
'

'
With ActiveSheet
    .PageSetup.PrintArea = "$F$4:$U$70"
    .ExportAsFixedFormat 0, "C:\PDF\" & .Range("J24").Value & ".pdf"
    Application.Goto .Range("B34")
    .Protect , True, True, True
End With

End Sub

 

[snb]

Sub M_snb()
  range("$F$4:$U$70").ExportAsFixedFormat 0, "C:\PDF\" & Range("J24") & ".pdf"
End Sub