Soru Makro ile tüm sayfaları tek pdf ve her sayfayı ayrı ayrı pdf yapmak

[TURKOLOG]

Merhaba
elimdeki kodu bir excel dosyasına uygulayabilecek var mı?

Kod bir excel çalışma kitapçığı tüm sayfa sırası sırası ile tek pdf yapıyor ve aynı zamanda ayrı ayrı sayfaları da ayrı ayrı pdf yapıyor

kayıt yeri: Masaüstü YILDIZ klasörü olacak şekilde

kodu paylaşıyorum

Sub KOD_PDF()
Application.ScreenUpdating = False
On Error Resume Next
Yol = Environ("USERPROFILE") & "\Desktop\PDFKLASÖRÜ\"
For i = 2 To Sheets.Count
Sheets(i).Select
isim = [a3]

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Yol & "/" & isim & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True
Next i
Application.ScreenUpdating = True
End Sub

 

[kulomer46]

Değerli Arkadaşım

Aşağıdaki Kodlar işinizi görür.
Kodlar oluşturduğu PDF dosyalarını, üzerinde çalıştığınız Aktif Excel dosyasının bulunduğu klasöre atmaktadır.

Selamlar...

Excel Sayfalarını Ayrı Ayrı PDF Yapan KOD

Sub Excel_Sayfalarını_Ayrı_ayrı_PDF_yap()
'15.10.2019

For i = 1 To Sheets.Count

    Sheets(i).Select
    Sheets(i).Activate
 
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    ActiveWorkbook.Path & "\" & Sheets(i).Name & ".pdf", Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    OpenAfterPublish:=True     
     
Next

End Sub

Excel Dosyasını Tek Seferde PDF Yapan KOD

Sub Excel_Dosyasını_PDF_yap()
'15.10.2019

    ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        ActiveWorkbook.Path & "\" & ActiveWorkbook.Name & ".pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True     
     
End Sub

 

[TURKOLOG]

Çok teşekkür ederim eline emeğine sağlık . Kodu en kısa zamanda deneyeceğim.

 

[kulomer46]

Çok teşekkür ederim eline emeğine sağlık . Kodu en kısa zamanda deneyeceğim.

Selamlar...

 

[alirali24]

Herkese merhaba,

"RENKLER" isminde makro içeren 10 sayfalık bir excel dosyam var.
Bu sayfalardan sadece 3 tanesini (sayfa isimleri "SİYAH", "BEYAZ", "GRI") ayrı ayrı excel dosyası olacak şekilde "RENKLER" dosyasının olduğu klasöre kaydetmek istiyorum.

Çok araştırdım ancak tüm sayfaların ayrı ayrı dosya oluşturulduğu makrolar gördüm.

Bu konuda destek olursanız çok teşekkür ederim.

İyi akşamlar

 

[alirali24]

Yardımlarınız rica olunur

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub PDF_KAYDET()
    Dim Sayfa As Worksheet
    
    For Each Sayfa In ThisWorkbook.Worksheets(Array("SİYAH", "BEYAZ", "GRI"))
        Sayfa.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:=ThisWorkbook.Path & "\" & Sayfa.Name & ".pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterPublish:=False
    Next
    
    MsgBox "Seçtiğiniz sayfalar PDF olarak kayıt edilmiştir."
End Sub

 

[alirali24]

Deneyiniz.

Option Explicit

Sub PDF_KAYDET()
    Dim Sayfa As Worksheet
   
    For Each Sayfa In ThisWorkbook.Worksheets(Array("SİYAH", "BEYAZ", "GRI"))
        Sayfa.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:=ThisWorkbook.Path & "\" & Sayfa.Name & ".pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterPublish:=False
    Next
   
    MsgBox "Seçtiğiniz sayfalar PDF olarak kayıt edilmiştir."
End Sub

Korhan Bey merhaba,

Yardımlarınız için çok teşekkür ederim. PDF yerine Excel dosyası olarak kaydetmek istiyorum. Bunun için yardımcı olur musunuz?

Teşekkürler.

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Belirli_Sayfalari_Excel_Dosyasi_Olarak_Kaydet()
    Dim Sayfa As Worksheet
    
    Application.DisplayAlerts = False
    
    For Each Sayfa In ThisWorkbook.Worksheets(Array("SİYAH", "BEYAZ", "GRI"))
        Sayfa.Copy
        ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Sayfa.Name & ".xlsx", FileFormat:=51
        ActiveWorkbook.Close
    Next
    
    Application.DisplayAlerts = True
    
    MsgBox "Seçtiğiniz sayfalar excel dosyası olarak kayıt edilmiştir."
End Sub

 

[alirali24]

Deneyiniz.

Option Explicit

Sub Belirli_Sayfalari_Excel_Dosyasi_Olarak_Kaydet()
    Dim Sayfa As Worksheet
   
    Application.DisplayAlerts = False
   
    For Each Sayfa In ThisWorkbook.Worksheets(Array("SİYAH", "BEYAZ", "GRI"))
        Sayfa.Copy
        ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Sayfa.Name & ".xlsx", FileFormat:=51
        ActiveWorkbook.Close
    Next
   
    Application.DisplayAlerts = True
   
    MsgBox "Seçtiğiniz sayfalar excel dosyası olarak kayıt edilmiştir."
End Sub

Korhan Bey,

yardımlarınız için çok teşekkür ederim