pdf طلب كود حفظ وارساله نطاق بصيغة

[mahgoub0]

السلام عليكم ورحمة الله بركاته 

  دي اول مشاركه ليا معكم في المنتدي وكنت محتاج مساعده 

pdf  كنت محتاج اعمل زر بمجرد ان اضغط عليه يقوم بحفظ نطاق محدد بصيغة

 pdf وكنت محتاج عمل زر يقوم بأرسال النطاق الي عدة اشخاص بصيغة 

مرفق ملف العمل المطلوب تطبيق عليه الاكواد

وشكرا جزيلا مقدما

 كنت اريد ان يقوم بحفظ الفاتورة بالرقم المدون في خلية رقم الفاتورة

INVOICE.xlsm

[حسونة حسين]

وعليكم السلام ورحمه الله وبركاته

تفضل بالنسبة لطلبك الاول

Sub Export_PDF()

    Dim SH As Worksheet, R As Range, File_name As String
    Set SH = ThisWorkbook.Worksheets("Sheet1")
    File_name = "Filename"
    Set R = SH.Range("A1:H20")
    R.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & File_name
    
End Sub

 

[حسونة حسين]

عدل

File_name = "Filename"

الى

File_name = SH.Range("E7").Value

 

[mahgoub0]

جزاك الله خيرا اخي