تعديل على كود حفظ الملف بصيغة pdf

[عبدالله صباح]

السلام عليكم

ممكن التعديل على الكود الى :

يكون الحفظ تلقائيا الى فولدر مخصص كأن يكون الى 

E:\pdf

ويكون الحفظ تلقائيا على اساس رقم الفاتورة الموجود  في C4

مع العلم اخذت هذا الكود عن طريق البحث في المنتدى 

وهذا هو الموقع

https://www.contextures.com/excelvbapdf.html

حفظ بصيغة pdf تلقائيا.xlsm

[عبدالفتاح في بي اكسيل]

جرب هذا  الماكرو  البسيط 

Sub savepdf()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="E:\pdf\" & Range("c4").Value
End Sub

 

حفظ بصيغة pdf تلقائيا.xlsm