Pdf ismini istenen hücreden alarak makro ile kayıt yapma

[mstfsngn]

PDF olarak kaydetmek istediğim sayfanın ismini c11 hücresindeki isimle, e1 hücresindeki tarihtrn oluştursun istiyorum aşağıda paylaşıyorum bunun üzerinde nasıl değişiklik yapmalıyım ? Şimdiden teşekkür ederim..
Sub PdfEkle()
'
' PdfEkle Makro
'

'
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\MAVİ-ÇELİK\Desktop\TEKLİFLER\STOK GİRME .pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub

 

[mstfsngn]

Yardım edecek kimse yok mu?

 

[excellkurdu]

Önerim:
A1 Hücresine Aşağıdaki formülü yazın. A1 sizin seçiminize göre değiştirebilirsiniz
=c11&"_"&e1
Kod bölümüne aşağıdakini yapıştırın.
Sub PDF_Kaydet_Extre1()
dosya_adı = Cells(1, "A").Value
If dosya_adı = "C:\deneme\" Then
MsgBox "Dosya adı yok"
Exit Sub
End If
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "\" & dosya_adı, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

 

[mstfsngn]

Çok güzel oldu teşekkürler.Peki bunu masaüstündeki teklifler dosyası var oraya kaydedilmesini nasıl sağlayabiliriz.Bu şekilde masa üstüne kayıt yaptı.

 

[excellkurdu]

1 satır 45.inci sütüna dosyanızın adınızı ve yolunu yazın/yazdırın. Örne: C:\Users\Desktop\dosyaadi.pdf şeklinde,
1 satır 46. sutuna kaydedilmesini istediğiniz dosyanızın yolunu yazın/yazdırın. Örnek C:\Users\Desktop\teklifler\
Sub Dosya_Taşı()
Dim ds, f
Set ds = CreateObject("Scripting.FileSystemObject")
f = ds.MoveFile(Cells(1, 45).Value, Cells(1, 46).Value & "\")
End Sub