Pdf Kadetme

[kaos64]

Arkadaşlar merhaba,
Aşağıdaki makroyu kullanarak excel dosyamın aktif sayfasını belirtilen klasör içine pdf formatında kaydetmek istiyorum
Ancak benim makrom her defasında aynı isimle üst üste kayıt yapıyor.
İstediğim ise aktif sayfanın M2, J2 hücrelerindeki değerler ile dosya ismi oluşturarak kayıt yapmak.
M2 27.12.2018
J2 AHMET YILMAZ

(J2 nin ilk 8 karakteri alınsın)

Private Sub CommandButton4_Click()
ad = Format(Range("M2"), "YYYYMMDD") & "-" & Range("J2")
ChDir "\\C\Teklif\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"\\C\Teklif\" & ad & "&.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub

 

[turist]

Foruma hoşgeldiniz.

Private Sub CommandButton4_Click()
ad = Format(Range("M2"), "YYYYMMDD") & "-" & Left(Range("J2"), 8)
ChDir "\\C\Teklif\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"\\C\Teklif\" & ad & "&.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub

şeklinde deneyin.

 

[kaos64]

Çok teşekkür ederim. hoşbulduk bihata alıyorum ama makroda yeniyim yardımcı olabilirseniz