makro kayıt yeri

[igultekin2000]

iyi akşamlar; kullanmakta olduğun PDF kaydetme özelliği sorunsuz çalışıyor. tek sıkıntım kayıt yerinin çalışma kitabını olduğu klasöre kaydetmesi, kaydetmeyi masa üstüne yapmak için ne gibi düzeltme yapmamız gerekiyor. Teşekkürler.

Sub MAMUL_rapor_PDF()

yol = ThisWorkbook.Path
isim = Format(Range("D1").Value, ".Mamul_Rapor") ' başlamasatırı

Sheets("Mamul_Rapor").Select ' hangi sayfanın hangi hücreleri kaydedilecek
Son = Cells(Rows.Count, "H").End(3).Row 'son dolu hücre
ActiveSheet.Range("B1:H" & Son).ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
yol & "/" & isim & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True
End Sub

 

[baykan_m]

Thisworkbook.path yerine masaüstü yolunu yazınca olmuyor mu? Ben öyle kullanıyorum bi çok dosyamda.

 

[Orion1]

Buyurun.

yol = CreateObject("wscript.shell").SpecialFolders(0)

 

[igultekin2000]

düzldi

Buyurun.

yol = CreateObject("wscript.shell").SpecialFolders(0)

400 nolu hata mesajı veriyordu, yazdığınız koda .Item("Desktop") ilave edince sorun çözüldü, masaüstüne kayıt yapıyor.
Teşekkürler.

 

[Orion1]

400 nolu hata mesajı veriyordu, yazdığınız koda .Item("Desktop") ilave edince sorun çözüldü, masaüstüne kayıt yapıyor.
Teşekkürler.

Hata vermemmesi lazım.
item("Desktop") ta olur.
yada 0 yerine 10 yazarak deneyin.

 

[igultekin2000]

kod sorunsuz

Hata vermemmesi lazım.
item("Desktop") ta olur.
yada 0 yerine 10 yazarak deneyin.

evet , dediğiniz gibi 10 yazınca sorun kalktı. Teşekkürler, hayırlı akşamlar.

 

[Orion1]

evet , dediğiniz gibi 10 yazınca sorun kalktı. Teşekkürler, hayırlı akşamlar.

Rica ederim.
İyi geceler.