Excel Sayfayı Makro İle Pdf Olarak Kaydetme

[yusufatas]

Merhaba.
Excel de belirli hücre aralığının excel dosyasının her kapanışında pdf olarak ayrıca kaydedilmesini istiyorum.Bu konuda yardımcı olursanız sevinirim.
Teşekkürler

 

[Tevfik_Kursun]

Merhaba,

Sub Pdf_Yap()
    ScreenUpdating = False
    On Error Resume Next
    
        pdf_alani = Range("A1").Value    ' A1 hücresi örneği   "$H$7:$Y$53"
        dosya_adı = Range("A2").Value
        klasor = ActiveWorkbook.Path & "\Pdf\"
    
    With ActiveSheet.PageSetup
        .CenterHorizontally = True
        .CenterVertically = True
        .Orientation = xlPortrait
        .BlackAndWhite = False
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
                
    Range([A1].text).ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    klasor & dosya_adı, Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

    ScreenUpdating = True
End Sub

Bu makro işinizi detaylı olarak görür. Dosyanızı kapatırken çalıştırınız.
A1 hücresinden Pdf yapılacak alanı alır
A2 hücresinden pdf'in adını alır
İyi çalışmalar

 

[yusufatas]

Merhaba,

Sub Pdf_Yap()
    ScreenUpdating = False
    On Error Resume Next
   
        pdf_alani = Range("A1").Value    ' A1 hücresi örneği   "$H$7:$Y$53"
        dosya_adı = Range("A2").Value
        klasor = ActiveWorkbook.Path & "\Pdf\"
   
    With ActiveSheet.PageSetup
        .CenterHorizontally = True
        .CenterVertically = True
        .Orientation = xlPortrait
        .BlackAndWhite = False
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
               
    Range([A1].text).ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    klasor & dosya_adı, Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

    ScreenUpdating = True
End Sub

Bu makro işinizi detaylı olarak görür. Dosyanızı kapatırken çalıştırınız.
A1 hücresinden Pdf yapılacak alanı alır
A2 hücresinden pdf'in adını alır
İyi çalışmalar

Kodları çalıştıramadım.Excel de yapar mısınız

 

[byfika]

Merhabalar,
Deneyiniz, sayfadaki butonu tıklayınca belgelere kayıt tarihi saati ve sayfa1 adı ile PDF yapıp exceli kapatacaktır. A1-H50 arası ayarlı dosyanıza göre aralığı ayarlarsınız....

 

[Haluk]

Alternatif olsun;

Google script'e merak sardığımda, kişisel blog'umda ilk yayınladığım konuydu ....

Kod anlatılmaz, yazılır...: Google Script'le PDF Hazırlama....

Google Sheets ve scripting için Türkçe kaynak... bazı özel konularda Excel VBA örnekleri

excelhaluk.blogspot.com

.

 

[yusufatas]

Merhabalar,
Deneyiniz, sayfadaki butonu tıklayınca belgelere kayıt tarihi saati ve sayfa1 adı ile PDF yapıp exceli kapatacaktır. A1-H50 arası ayarlı dosyanıza göre aralığı ayarlarsınız....

Teşekkürler.

 

[yusufatas]

Alternatif olsun;

Google script'e merak sardığımda, kişisel blog'umda ilk yayınladığım konuydu ....

Kod anlatılmaz, yazılır...: Google Script'le PDF Hazırlama....

Google Sheets ve scripting için Türkçe kaynak... bazı özel konularda Excel VBA örnekleri

excelhaluk.blogspot.com

.

Teşekkürler.

 

[yusufatas]

Merhabalar,
Deneyiniz, sayfadaki butonu tıklayınca belgelere kayıt tarihi saati ve sayfa1 adı ile PDF yapıp exceli kapatacaktır. A1-H50 arası ayarlı dosyanıza göre aralığı ayarlarsınız....

1-)Pdf dosyasının kaydedildiği dosyayı nasıl belirleyebirim.

2-)Excel dosyasının kapanışta bilgisayarda belirtilen dosyanın içine yedeklenmesini nasıl yapabilirim.