PDF dosya kaydetmede dosya adı

[burhancavus61]

PDF olarak kaydettiğim dosyaya her seferinde Ana Sayfadaki D13 hücre isni ile kaydetmek istiyorum. Kod istediğim gibi ama tek sorun dosya adında. Aşağıdaki kod örneği çalışınca dosya adını True olak kaydediyor.

Sub PDF()

    Sheets("Daimi_Sözleşme").Visible = True
    Sheets("Daimi_Sözleşme").Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "D:\Belgeler\" & Sheets("Daimi_Sözleşme").Select(D13) & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
    Sheets("Ana Sayfa").Select
    Sheets("Daimi_Sözleşme").Visible = False


End Sub

 

[Ömer]

Merhaba,

Select(D13) yerine [D13] yazarak deneyiniz.

 

[burhancavus61]

Hocam dediğiniz gibi yaptım bu sefer kodun aşağıdaki kısmında tamamında hata verdi
Tabiki neresi olduğunu anlayamadım.
Koda yol eklemeden önce çalışıyordu istedimki her dosyaya kendi isim versin

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "D:\Belgeler\" & Sheets("Daimi_Sözleşme").Select.[D13] & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True

 

[burhancavus61]

Tamamdır hocam hatamı buldum sağolun.