التصدير إلى ملفات PDF من صفحات محددة فقط من الملف

[Salmawy18]

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

لو تكرمتم:

عايز اعمل تصدير الى ملفات PDF  بس من الصفحات اللي انا اختارها مش كل الصفحات مرة واحدة .... ويكون اسم الملف ال PDF  لكل صفحة مأخوذ من الخلية A1 لنفس الصفحة وبجوار اسم الملف ال PDF التاريخ ويكون مأخود من الخلية A2 لنفس الصفحة

بفرض عايز اعمل تصدير إلى PDF للصفحات Sheet1 , Sheet2 , Sheet4 , Sheet6 فقط 

فيكون اسم ال PDF للصفحة Sheet1 ........ محمد 1/2/2017

ويكون اسم ال PDF للصفحة Sheet2 ........ احمد2/2/2017

وهكذا وذلك للصفحات التي اختارها فقط.

وجزاكم الله خيرا على وقوفكم بجانب إخوتكم وأخواتكم ممن لم يُنعم الله عليهم بمثل ما أنعم عليكم به.

وبارك الله فيكم وزادكم من واسع فضله

Sheets I Want To PDF.zip

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

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

Sub CreatePDFFilesForSpecificSheets()
    Dim ws      As Worksheet
    Dim Fname   As String
    
    Application.ScreenUpdating = False
        For Each ws In Sheets(Array("Sheet1", "Sheet2", "Sheet4", "Sheet6"))
            On Error Resume Next
            Fname = ThisWorkbook.Path & "\" & ws.Range("A1").Value & " " & Replace(ws.Range("A2").Value, "/", "_") & ".pdf"
            ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Fname, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False
        Next ws
    Application.ScreenUpdating = True
    
    MsgBox "Done...", 64
End Sub

 

[Salmawy18]

ربنا ميحرمنيش منّك.......................

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

تسلم يا أستاذي الكريم

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

وجزيت خيراً بمثل ما دعوت لي أخي الكريم 

والحمد لله الذي بنعمته تتم الصالحات