seçili Alanları PDF olarak Kaydet

[mehmetd]

konu hakkında yardım talep ediyorum.

 

[excelokyanus500]

Private Sub CommandButton1_Click()
    Dim sh As Worksheet
    Dim isim As String
    Dim tarihSaat As String
    Dim dosyaAdi As String
    Dim yol As String
    Set sh = Worksheets("FATURA")
    isim = sh.Range("D13").Value
    tarihSaat = Format(Now, "dd-mm-yyyy_hhmmss")
    dosyaAdi = isim & "-" & tarihSaat
    yol = "D:\YEDEKLER"
    sh.Select
    sh.Range("B6:H74").Select
    Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol & "\" & dosyaAdi & ".pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
End Sub

 

[mehmetd]

Sn. excelokyanus500 çok teşekür ederim son bir ricam olabilir mi sizden sayfa ismine bağlı kalmadan Set sh = Worksheets("FATURA") ne olursa olsun illa FATURA olmaz o an sayfa ismi ne ise pdf olarak kaydetmesi şeklinde kodu revize edebilir miyiz

 

[excelokyanus500]

Set sh = ActiveSheet.Name

şeklinde güncelleyin. Hata verirse

Function Sayfam()

Sayfam = Application.Caller.Worksheet.Name

End Function

Bu fonsiyonu ekledikten sonra D13 e gidip = Sayfam()

yazarsanız sanırım sorun kalmayacaktır.