Pdf kaydetme dosya adı sorunu.

[kutman]

Aşağıdaki makro kodunu kulllanıyorum dosya adını sayısal olarak kaydediyor.
Benim istediğim ise direk excel dosya adı ne ise o olarak kaydetsin istiyorum.

Kullandığım kod.

Sub mac3()


Dim Yol As String
Application.ScreenUpdating = False
Application.DisplayAlerts = False

Sheets("VERİ GİRİŞ").Visible = True
Sheets("ISI KAYBI").Visible = True
Sheets("ISITICI SEÇİM").Visible = True
Sheets("ISITICI SEÇİMİ").Visible = True


Yol = ThisWorkbook.Path
Say = CreateObject("Scripting.FileSystemObject").getfolder(Yol).Files.Count + 1

Dim son As Integer
With Sheets("VERİ GİRİŞ")
.PageSetup.PrintArea = "$C$2:$U$" & .Range("C65536").End(3).Row
'.PrintOut Copies:=1
End With

With Sheets("ISI KAYBI")
.PageSetup.PrintArea = "$C$2:$R$" & .Range("C65536").End(3).Row
'.PrintOut Copies:=1
End With
son = Empty


If Worksheets("ISI KAYBI").Range("AH26") = 1 Then

With Sheets("ISITICI SEÇİMİ")
.PageSetup.PrintArea = "$B$2:$T$" & .Range("B65536").End(3).Row
End With
isi_sayfasi = "ISITICI SEÇİMİ"

Else

With Sheets("ISITICI SEÇİM")
.PageSetup.PrintArea = "$B$2:$T$" & .Range("B65536").End(3).Row
End With
isi_sayfasi = "ISITICI SEÇİM"

End If

Sheets(Array("VERİ GİRİŞ", "ISI KAYBI", isi_sayfasi)).Select

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Yol & "\" & Say & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True

Sheets("VERİ GİRİŞ").Visible = False

Application.ScreenUpdating = True
Application.DisplayAlerts = True

MsgBox "işlem tamam"

End Sub

 

[Emir Hüseyin Çoban]

. . .

Say değişkenini şu şekilde değiştirerek deneyiniz.

say = ThisWorkbook.Name

. . .