Soru Sayfaları PDF yap ve PDFleri Birleştir

[sirkülasyon]

Yeşil Defter
Yapılan İşler Listesi
Hakediş Özeti
Hakediş İcmali
Hakediş Raporu

Ustam sayfa adları yukarıda yazılı. Buton ile Yukarıda adı yazılı sayfaları masaüstüne içinde bulunulan Ay/Yıl adı ile birlikte ÖDEME Klasörü oluşturup klasör içine Tüm sayfaları tek pdf de birleştirerek en son kullanıcıya Kayıt için ad giriniz ekranı ile girilen isim adına göre kaydedebilir miyiz?

 

[halit3]

Sayfa sonlarını dosyanızda ayarlayınız.
Kod:

Sub savePDF()
Dim Yol As String
Application.ScreenUpdating = False
Application.DisplayAlerts = False

Dim fL As Object
Set fL = CreateObject("Scripting.FileSystemObject")

dosya_adi = InputBox("Dosya ismini yazınız.", "UYARI!", "deneme")

If dosya_adi = False Then Exit Sub
If dosya_adi = "" Then Exit Sub
klasor = Format(Now, "dd/mm")

Yol = CreateObject("wscript.Shell").SpecialFolders.Item("Desktop") & "\" & klasor

If fL.FolderExists(Yol) = False Then
MkDir Yol
End If

Say = fL.getfolder(Yol).Files.Count + 1

Sheets(Array("Hakediş Özeti", "Hakediş İcmali", "Hakediş Raporu")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Yol & "\" & dosya_adi & Say & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Application.ScreenUpdating = True
Application.DisplayAlerts = True

MsgBox "işlem tamam"

End Sub

 

[sirkülasyon]

MkDir Yol & "\" & klasor kısmı sürekli hata veriyor Halit Abi

 

[halit3]

kodun bu bölümündeki kırmızı yeri sil

MkDir Yol & "\" & klasor

 

[sirkülasyon]

Allah razı olsun. Ellerine sağlık Halit abi