كيف أعدل في هذا الكود ليسجل كل الأوراق PDF وليس فقط الأخيرة

[hicham2610]

السلام عليكم

من فضلكم

يتم إنشاء ملف على سطح المكتب باسم:TO PDF

كيف أعدل على هذا الكود ليحفظ كل الأوراق من :1 إلى غاية: الرقم المكتوب في : N7 بصيغة PDF 

وليس فقط الورقة الأخيرة

 

الكود:

Sub Macro1()
'
' Macro1 Macro
'

'
For i = 1 To [N7]
    [N5] = i
     ActiveCell.FormulaR1C1 = "i"
    ChDir "C:\Users\pc\Desktop\TO PDF"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\pc\Desktop\TO PDF\1.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
  Next
    [N5] = 1
    
End Sub

هذا الكود مدمج في زر PDF ورقتي:bulletin_sem

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

2.xlsm

تم تعديل يوليو 21, 2018 بواسطه hicham2610

[hicham2610]

هل من إقتراحات إخوتي الكرام؟

[عبدللرحيم]

تفضل يا أخى جرب 

 

2.xlsm

[hicham2610]

جزاك الله خيرا وأحسن إليك

هل ممكن تكون كل الملفات المسجلة بpdf في ملف واحد مثل

بتاريخ اليوم أو يخرج مربع حواري يطلب مكان الحفظ و اسم الحفظ

جزاك الله خيرا وأحسن إليك