EXCEL 2010' da Save as adobe PDF makrosu.

[tostcu55]

Arkadaşlar Merhaba.
Bir çalışma kitabım var içinde 10 sayfa verim var. Sayfa7 ye bir buton yapıp "S4 VE S7" deki hücrede isimleri yazılı olan sayfaları tek bir sayfa halinde pdf olarak masaüstüne kaydetmek istiyorum.Belge adınıda s1 den alsın istiyorum.Örnek dosya ekte bilginize, İlginiz için teşekkürler.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu deneyiniz.

Sub PDF_KAYDET()
    Dim S1, Dosya_Yolu
    
    Set S1 = Sheets("MAXI KAPI ÇIKTI")
    Dosya_Yolu = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & S1.[S1] & ".pdf"
    Sheets(Array(S1.[S4].Text, S1.[S5].Text, S1.[S6].Text, S1.[S7].Text)).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    FileName:=Dosya_Yolu, Quality:=xlQualityStandard, IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

 

[tostcu55]

Üstat emeğine, eline, bilgine sağlık Çok teşekkür ederim.