Excelde makro ile içeriği değişen sayfaları biriktirip pdf yapma

[kadirman]

Merhabalar

Bir eğitim belgesi bastırmak istiyorum
örnek 5 kişi eğitim almış olsun
for örnek 1 to5
örnek kişi için sayfayı oluştur
sayfayı pdf gönder
next örnek

böylece 5 sayfa pdf e gönderilecek
ve sonunda pdf açıldığında bir dosyada 5 sayfa olacak

Bir türlü çözemedim

 

[Cengiz Demir]

5 tane sayfa oluşturup.
Oluşturulan sayfaları seçtirip, pdf olarak kaydedip, sonrasında 5 sayfayı silecek şekilde kodlama yapabilirsiniz.

 

[kadirman]

1.sayfayı gönder 2.sayfayı gönder diyip biriktirerek pdf yapamaz mıyız? Ya da yeni bir excel açıp oraya sra ile sayfaları oluşturup oradan tüm sayfaları yazdır diyemezmiyiz

 

[necati]

Merhaba

Sub Excel_Pdf()
Dim i As Integer
Dim ws As Worksheet
Dim wb As Workbook

Application.ScreenUpdating = False
Set ws = ActiveSheet
Set wb = Workbooks.Add(Template:=xlWBATWorksheet)

For i = 1 To 5
    ws.Copy After:=wb.Worksheets(wb.Worksheets.Count)
'Mevcut kodlarınızı burada çalıştıracaksınız
'Kişilerin değişmesini burada yapacaksınız
Next i

Application.DisplayAlerts = False
wb.Worksheets(1).Delete
Application.DisplayAlerts = True
wb.ExportAsFixedFormat Type:=xlTypePDF, Filename:="Egitim_Belgesi.pdf", OpenAfterPublish:=False
wb.Close SaveChanges:=False
Application.ScreenUpdating = True
End Sub

 

[kadirman]

Teşekkür ederim. Paylaştığınız kod sorunumu çözdü.
İzninizle ek bir soru sormak istiyorum
Bazı sayfaları excel veya pdf olarak seçenekli yayınlama yaptım. Pdf okey, yayın sonraı açılıyor
Ancak excel açılmıyor. Bunu çözmek için makrodaki tüm formları kapatıyorum. Ondan sonra kopya excel sayfası açılabiliyor
Örnek sayfa 6 yı yeni bir çalışma kitabına kopyalıyorum
Sayfa6.Copy
Cells.Copy
Cells.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = xlCopy
Range("A1").Select
'///////////////
Unload Me
Unload FrmEgitim 'tüm formları kapatmak zorunda kalıyorun

programı tam kapatmadan kopya oluştruduğum exceli direk açabilir miyim?