Önceden belirlediğimiz yazdırma alanının Pdf şeklinde otomatik kayıt edilmesi

[BedirHan_]

Arkadaşlar merhaba;

Yapmak istediğimi epeyce araştırdım, fakat bir sonuca ulaşamadım. Yardımcı olursanız sevinirim.

Yapmak istediğim şu ki;

Excelde butona tıkladığımda belirli hücrenin değerini alıp masa üstüne pdf dosyası olarak kayıt edilmesi. Pdf dosyasının adı o hücrenin değeri olacak.

Excelde farklı kaydet değip elle dosya adı yazılmayacak, arka planda pdf dosyası masa üstüne kayıt olacak.

 

[halit3]

Arkadaşlar merhaba;

Yapmak istediğimi epeyce araştırdım, fakat bir sonuca ulaşamadım. Yardımcı olursanız sevinirim.

Yapmak istediğim şu ki;

Excelde butona tıkladığımda belirli hücrenin değerini alıp masa üstüne pdf dosyası olarak kayıt edilmesi. Pdf dosyasının adı o hücrenin değeri olacak.

Excelde farklı kaydet değip elle dosya adı yazılmayacak, arka planda pdf dosyası masa üstüne kayıt olacak.

kod:

Sub pdfkaydet()

Application.ScreenUpdating = False
Application.DisplayAlerts = False

Klasor = CreateObject("wscript.Shell").SpecialFolders.Item("Desktop")
Dosya_Adi = Range("a1").Value
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Klasor & "\" & Dosya_Adi & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Application.ScreenUpdating = True
Application.DisplayAlerts = True

MsgBox "işlem tamam"

End Sub

 

[BedirHan_]

halit3 kod çalışıyor teşekkür ederim fakat bi hata alıyorum. bunun nedeni nedir. ekteki resimden hatayı görebilirsiniz.
Hata iletisi
https://yadi.sk/i/SJSS0axhjNzmw

 

[halit3]

halit3 kod çalışıyor teşekkür ederim fakat bi hata alıyorum. bunun nedeni nedir. ekteki resimden hatayı görebilirsiniz.
Hata iletisi
https://yadi.sk/i/SJSS0axhjNzmw

Merhaba benim yazdığım cevaba tam 25 gün sonra geri dönüş yapmışsınız.

 

[BedirHan_]

Merhaba benim yazdığım cevaba tam 25 gün sonra geri dönüş yapmışsınız.

Evet maalesef forumdan uzak kaldım.