Sayfa adıyla PDF kayıt

[ydemiral]

Arkadaşlar merhaba
Çoklu sayfası olan ve server üzerinden çok kişinin kullandığı bir raporum var.
Yapmak istediğim şu...

Her sayfanın PDF formatında kopyasını alıyorum. Bunu yaparken her sayfanın ismiyle kayıt edebilirmiyim?
Her sayfanın içine giripte farklı kaydet ile yapmaya razıyım, yeterki dosya ismini otomatik versin.

Makrosuz yapabilirsem çok memnun olacağım.

 

[Tevfik_Kursun]

Merhaba Arkadaş,

=PARÇAAL(HÜCRE("FILENAME";A3);BUL("]";HÜCRE("FILENAME";A3))+ 1;255)

bu kod kayıtlı bir dosyada, hangi hücreye yazarsanız yazın, sayfanın adını verir.
Sayfalardaki pdf yapılacak bölge belirtiliyor mu? Örnek olsa isteğinizi cevaplamak mümkündü.
Kolay gelsin

 

[ydemiral]

Merhaba,
dosya boyutu çok büyük olduğu için ekleyemiyorum ama kısaca izah edeyim.

Çoklu sayfası olan bir dosyam var.
Dosyaların birisi EK-1, diğeri EK-2 ve böyle devam ediyor.
Bu sayfaları tek tek pdf olarak alıp müşterilerime gönderiyorum. Tabi her dosyada tek tek isim değiştirmem gerekiyor.

Olmasını istediğim ise... Her sayfa ismini pdf yaparken otomatik vermesi.

 

[Korhan Ayhan]

Deneyiniz.

Sub PDF_KAYDET()
    Application.DisplayAlerts = False
    
    Yol = ThisWorkbook.Path & "\"
    Dosya = ActiveSheet.Name & ".pdf"
    
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:=Yol & Dosya, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False
    
    Application.DisplayAlerts = True
    
    MsgBox "Kayıt işlemi tamamlanmıştır.", vbInformation
End Sub

 

[ydemiral]

Deneyiniz.

Sub PDF_KAYDET()
    Application.DisplayAlerts = False
    
    Yol = ThisWorkbook.Path & "\"
    Dosya = ActiveSheet.Name & ".pdf"
    
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:=Yol & Dosya, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False
    
    Application.DisplayAlerts = True
    
    MsgBox "Kayıt işlemi tamamlanmıştır.", vbInformation
End Sub

Merhaba,
Server üzerindeki dosyaya makro yazılabiliyormu?
Ben makroyu kendi kullandığım bilgisayarda yapabiliyorum diye biliyordum.

 

[Korhan Ayhan]

Paylaşımda olan dosyalarda makrolar sanırım sorun çıkarıyor. Fakat siz yinede önerdiğim kodu kullanmayı bir deneyin.