Her çalışma sayfasını ayrı ayrı pdf olarak kaydetmek

[kamenzü]

Merhaba,

Derdimi şöyle anlatayım,

Yaklaşık 320 çalışma sayfasından oluşan bir dosyam var.

Bunlardan yaklaşık 120 tanesini PDF uzantılı olarak kaydetmem gerekiyor.

Dosyamda bir tane user form var. bunun içindeki listeden seçtiğim çalışma sayfalarını ters sırayla yazdırıyorum.

Buna benzer mantıkta;

listeden seçtiğim çalışma sayfalarını, ayrı ayrı PDF dosyası yapacak ve

dosya adını da çalışma sayfalarındaki BA1 (Örneğin) hücresinden alacak bir user forma ihtiyacım var.

Elimdeki user forma internetten bulduğum ve anladığımı zannettiğim kodları entegre etmeye çalıştım, ancak makro konusunda deneyimsiz olduğum için değişik hatalar yaşadım,

en sonunda pes ettim, kafam buna basmadı.

Yardımcı olunursa memnun olurum.

Saygılar.

NOT: Yazdırmayla ilgili mevcut user formun kodu aşağıdadır.

Private Sub CheckBox1_Click()
Dim liste As Integer

For liste = 1 To ListBox1.ListCount
ListBox1.Selected(liste - 1) = CheckBox1.Value
Next
End Sub
Private Sub CommandButton1_Click()
Dim liste As Integer

For liste = 1 To ListBox1.ListCount
If ListBox1.Selected(liste - 1) = True Then
Sheets(ListBox1.List(liste - 1, 0)).PrintOut
ListBox1.Selected(liste - 1) = False
End If
Next
End Sub


Private Sub ListBox1_Click()

End Sub

Private Sub UserForm_Initialize()
ListBox1.ListStyle = 1
ListBox1.MultiSelect = fmMultiSelectExtended
For i = ActiveWorkbook.Sheets.Count To 1 Step -1
ListBox1.AddItem Sheets(i).Name
Next i

End Sub

 

[kamenzü]

yardıımmm.

 

[Korhan Ayhan]

Ekteki örnek dosyayı inceleyiniz.

ÖRNEK.xlsm - 31 KB

 

[kamenzü]

Allah razı olsun,

gerçekten çok işime yarayacak,

 

[euphrates55]

Korhan Bey, bayağı zaman geçmiş aradan ama benim işimi gören bu kodu, excelin bulunduğu yere çıkartmak ve her çalışma sayfasının c2 hücresi pdf dosyasının adı olacak şekilde nereyi değiştirmemiz gerekli.