Birden fazla Pdf dosyası oluşturma

[aydinsert]

Merhabalar, forumda örneklerini aradım ama bulamadım.
Excelde macro ile birden fazla sayfayı birden fazla pdf dosyası olarak kaydetmek istiyorum.
Webde ve burada bulunan bütün örneklerde seçilen birden fazla sayfaları tek bir pdf dosyası olarak kaydediyor. Ama benim istediğim seçtiğim sayfa kadar pdf dosyası oluşturabilmek.
Bu konuda mümkünse yardım edebileceklere şimdiden teşekkürler.

 

[Murat OSMA]

Merhabalar,
Bu kodları kullanabilirsiniz.

Sub Sayfalari_PDF_Yap()
    Dim i%, osma$
    For i = 1 To Sheets.Count
        Sheets(i).Copy
        osma = Environ("USERPROFILE") & "\Desktop"
        ChDir osma
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:=osma & "\" & ActiveSheet.Name & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False
        ActiveWorkbook.Close False
    Next i
    i = Empty: osma = vbNullString
End Sub

 

[aydinsert]

Çok teşekkürler Murat Bey, elinize sağlık.

 

[Murat OSMA]

Rica ederim, hayırlı geceler. ????????