Dosya adını hücreden alarak PDF Kaydetme

[denese]

Merhaba,

Aktif sayfayı PDF formatında kaydetmek için aşağıdaki kodu kullanıyorum. Kaydedilen dosya adını aktif sayfadaki H3 hücresinden alsın istiyorum. Yardımcı olabilir misiniz.

Sub Pdf_Kaydet_2()
dosya_adı = Cells(1, "a").Value
If dosya_adı = "" Then
MsgBox "Dosya adı yok"
Exit Sub
End If
a = MsgBox(" Bu sayfayı masaüstüne PDF belge türünde kayıt etmek istiyormusunuz.?", vbYesNo + vbInformation, " Uyarı")
If a = vbYes Then
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "\" & "Mutabakat Raporu", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
MsgBox "İşlem tamamlandı", vbInformation, "Bilgi"
End If
If a = vbNo Then
MsgBox "İşlem iptal edildi", vbInformation, "Bilgi"
End If
End Sub

 

[Erdem Akdemir]

Merhaba,

ThisWorkbook.Path & "\" & "Mutabakat Raporu" yazan kısmı aşağıdaki gibi değiştirin.

ThisWorkbook.Path & "\" & Range("H3").Value

 

[denese]

Merhaba,

ThisWorkbook.Path & "\" & "Mutabakat Raporu" yazan kısmı aşağıdaki gibi değiştirin.

ThisWorkbook.Path & "\" & Range("H3").Value

Çok teşekkür ederim Sayın @Erdem_34