pdf formatında her seferinde farklı adla kayıt

[tkcargo]

arkadaşlar merhaba,
aşağıdaki bir kod var bu kodla aktif sayfayı pdf formatında arşivliyorum
sorunum hep aynı adla kaydetmesi ve eski kayıtların üzerine yazması

kayıt adını bu günün tarihi ve aktif sayfadaki D5 hücresi olarak isimlendirebilirmiyiz yada olmuyorsa sadece tarih de olabilir fakat aynı gün fazla kayıt yaptığımdan eski bilginin üzerine yazmaması için ne yapabiliriz
teşekkürler


Sub Arsiv()
Application.ScreenUpdating = False
a = ActiveSheet.Name
Range("C2:J58").Select
ChDir "C:\Users\o_bayrak\Palet Listeleri"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\o_bayrak\Palet Listeleri\" & a & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
Range("D9").Select
End Sub

 

[tkcargo]

tekrar merhaba sorunumu çözdüm
lazım olan arkadaşlar için kodu aşağıda yazıyorum

Sub Arsiv()

Application.ScreenUpdating = False
dosya_adı = ActiveWorkbook.Name
Range("C2:J58").Select
ChDir "C:\Users\o_bayrak\Palet Listeleri"
a = Sheets("WORKSHEET").Range("d5").Value
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\o_bayrak\Palet Listeleri\" & a & " " & Format(Now, "dd_mm_yyyy_ss") & strdate, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Range("D9").Select
End Sub

 

[halit3]

Alternatif kod

Sub PDF_kaydet()
klasor = "C:\Users\o_bayrak\Palet Listeleri\"
dosya_adı = Range("d5").Value
tarih = Format(Now, " dd_mm_yyyy hh_ss_nn")
Range("C2:J58").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
klasor & dosya_adı &  tarih, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

 

[downsoon]

Peki diyelimki "A3" hücresinde firma adı yazıyor. Bu işlevi kullandığımda bu adla kayıt yapabilir mi?