Sekmelerin Herbirini Sekme Adı ile Pdf olarak ayrı ayrı kaydetme

[buggsbunny]

Merhaba 81 sekmeli bi excel dosyam var. sekmelerde il isimleri yazıyor ve bunların her birini sekme adıyla pdf olarak kaydetmem lazım bunu tek seferde yapmanın bir yolu var mı?

 

[leumruk]

Selamlar:

Sub pdfyap()
For x = 1 To Sheets.Count
yol = ThisWorkbook.Path & "\" & Sheets(x).Name
On Error GoTo hata:
    Sheets(x).ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol
hata:
Next
MsgBox "İşlem tamamlandı."
End Sub

yolu kendinize göre düzenlersiniz.

 

[ÖmerBey]

Merhaba,
Kayıt klasörünü isteğinize göre değiştirerek aşağıdaki kodu deneyiniz.

Sub Kod()
[COLOR="Red"]yol = "D:\Yeni klasör\"[/COLOR]
For Each syf In Sheets
    syf.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:=yol & syf.Name & ".pdf", OpenAfterPublish:=False
Next
End Sub

 

[buggsbunny]

Selamlar:

Sub pdfyap()
For x = 1 To Sheets.Count
yol = ThisWorkbook.Path & "\" & Sheets(x).Name
On Error GoTo hata:
    Sheets(x).ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol
hata:
Next
MsgBox "İşlem tamamlandı."
End Sub

yolu kendinize göre düzenlersiniz.

bu kod işimi gördü teşekkür ederim ilginiz için

 

[buggsbunny]

Selamlar:

Sub pdfyap()
For x = 1 To Sheets.Count
yol = ThisWorkbook.Path & "\" & Sheets(x).Name
On Error GoTo hata:
    Sheets(x).ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol
hata:
Next
MsgBox "İşlem tamamlandı."
End Sub

yolu kendinize göre düzenlersiniz.

bu koda ekleme yaparak sadece seçtiğim sekmeleri pdf yapmasını isteyebiliyor muyum?

 

[leumruk]

bu koda ekleme yaparak sadece seçtiğim sekmeleri pdf yapmasını isteyebiliyor muyum?

Yazdıracağınız sayfalar sürekli değişecek mi? Yoksa belli sayfalar dışındaki tüm sayfaları mı yazdıracaksınız?

 

[buggsbunny]

Yadıracağınız sayfa adları sürekli değişecek mi? Yoksa belli sayfalar dışındaki tüm sayfaları mı yazdıracaksınız?

81 il isminin olduğu sekme başka sekmelerden veri çekiyor. her seferinde 81 ili sekme adıyla pdf şeklinde çıkartmam lazım ayrı ayrı

 

[Necdet]

Merhaba,

Leumruk'un kodlarına ek yaparak aşağıdaki kodları kullanabilirsiniz.
İster tüm sayfaları yada isterseniz sadece seçtiğiniz sayfayı/sayfaları PDF olarak saklayabilirsiniz.

Sub Seçili_Sheets()
 
    Dim sh  As Object, _
        i   As Integer
    
    i = Application.InputBox("1. Seçili Sayfalar, 2. Tüm Sayfalar PDF olarak kaydedilir", "Seçimi Belirleyiniz", 1, Type:=1)
    If i = 0 Then Exit Sub
    
    If i = 1 Then
        MsgBox "Seçilen Sayfa Sayısı : " & ActiveWindow.SelectedSheets.Count
        For Each sh In ActiveWindow.SelectedSheets
            pdfyap sh.Name
        Next sh
    Else
        For Each sh In Worksheets
            pdfyap sh.Name
        Next sh
    End If
    
End Sub

Sub pdfyap(Sayfa As String)

    Dim Yol As String
    
    Yol = ThisWorkbook.Path & "\" & Sayfa
    On Error GoTo hata:
    Sheets(Sayfa).ExportAsFixedFormat Type:=xlTypePDF, Filename:=Yol
    Exit Sub
hata:
    MsgBox Sayfa & " Sayfayı PDF Olarak Saklanamadı...."
    
End Sub

 

[buggsbunny]

Merhaba,

Leumruk'un kodlarına ek yaparak aşağıdaki kodları kullanabilirsiniz.
İster tüm sayfaları yada isterseniz sadece seçtiğiniz sayfayı/sayfaları PDF olarak saklayabilirsiniz.

Sub Seçili_Sheets()
 
    Dim sh  As Object, _
        i   As Integer
    
    i = Application.InputBox("1. Seçili Sayfalar, 2. Tüm Sayfalar PDF olarak kaydedilir", "Seçimi Belirleyiniz", 1, Type:=1)
    If i = 0 Then Exit Sub
    
    If i = 1 Then
        MsgBox "Seçilen Sayfa Sayısı : " & ActiveWindow.SelectedSheets.Count
        For Each sh In ActiveWindow.SelectedSheets
            pdfyap sh.Name
        Next sh
    Else
        For Each sh In Worksheets
            pdfyap sh.Name
        Next sh
    End If
    
End Sub

Sub pdfyap(Sayfa As String)

    Dim Yol As String
    
    Yol = ThisWorkbook.Path & "\" & Sayfa
    On Error GoTo hata:
    Sheets(Sayfa).ExportAsFixedFormat Type:=xlTypePDF, Filename:=Yol
    Exit Sub
hata:
    MsgBox Sayfa & " Sayfayı PDF Olarak Saklanamadı...."
    
End Sub

Teşekkürler bunlar işimi gördü )

 

[halit3]

Alternatif olarak aşağıdaki linki irdeleyiniz.

http://www.excel.web.tr/f50/farkly-kaydet-seceneoi-t164563.html

 

[buggsbunny]

Merhaba,

Leumruk'un kodlarına ek yaparak aşağıdaki kodları kullanabilirsiniz.
İster tüm sayfaları yada isterseniz sadece seçtiğiniz sayfayı/sayfaları PDF olarak saklayabilirsiniz.

Sub Seçili_Sheets()

    Dim sh  As Object, _
        i   As Integer
   
    i = Application.InputBox("1. Seçili Sayfalar, 2. Tüm Sayfalar PDF olarak kaydedilir", "Seçimi Belirleyiniz", 1, Type:=1)
    If i = 0 Then Exit Sub
   
    If i = 1 Then
        MsgBox "Seçilen Sayfa Sayısı : " & ActiveWindow.SelectedSheets.Count
        For Each sh In ActiveWindow.SelectedSheets
            pdfyap sh.Name
        Next sh
    Else
        For Each sh In Worksheets
            pdfyap sh.Name
        Next sh
    End If
   
End Sub

Sub pdfyap(Sayfa As String)

    Dim Yol As String
   
    Yol = ThisWorkbook.Path & "\" & Sayfa
    On Error GoTo hata:
    Sheets(Sayfa).ExportAsFixedFormat Type:=xlTypePDF, Filename:=Yol
    Exit Sub
hata:
    MsgBox Sayfa & " Sayfayı PDF Olarak Saklanamadı...."
   
End Sub

bu kodu çalıştırdığımda 1 i seçince seçtiğim sekmeleri birleştirererek kaydediyor.