سؤال عن كيفية حفظ اسم ملف من خليتين

[محمد ابراهيم 78]

السلام عليكم ...

ارجوا المساعدة في عمل كود يقوم بحفظ الملف بصيغة pdf ويأخذ اسمة من خليتين كما في الملحق من الخلية C4 و C6

مع الشكر والتقدير

Ex.zip

[ياسر خليل أبو البراء]

وعليكم السلام

جرب الكود التالي

Sub Test()
    Dim myFile  As String
    
    myFile = ThisWorkbook.Path & "\" & Range("C4").Text & "-" & Range("C6").Text & ".pdf"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=myFile

    MsgBox "Done...", 64
End Sub

 

[محمد ابراهيم 78]

شكراً جزيلاً ....

[ياسر خليل أبو البراء]

الحمد لله أن تم المطلوب على خير .. أخي محمد

الأفضل من قول "شكراً" قول "جزاك الله خيراً" فهي أفضل عندي وعند غيري

تقبل تحياتي