dosya adı

[mesutaygun70]

Sub PDF()
SAY = 0
For i = 1 To 1
SAY = SAY + 1

yer = Sheets("3").Select
Range("a1:j45").Select

Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"\\A1-bilgisayar\program data\EBYS İZİN" & sayfaadi & "." & uzantı, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Next
End Sub


Yukarıdaki şekilde bir makrom var. Ama ben dosya adını kayıt ederken sayfa 6, c5 hücresinide sayfa adının sonuna eklemek istiyorum. Nereye nasıl bir kod ekleyeceğim.

 

[YUSUF44]

Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"\\A1-bilgisayar\program data\EBYS İZİN" & sayfaadi & Sheets("Sayfa6").[C5] & "." & uzantı, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

şeklinde deneyin.