Seçilen Hücre Aralığını PDF Formatına Dönüştürme

[HOOGEZAND]

Merhabalar, excel içeriğinde bulunan çalışma sayfasında seçilen hücre aralığını makro yazarak nasıl PDF formatına dönüştürebilirim.

 

[ÖmerBey]

Merhaba,
Şu kodu deneyiniz.
Selection.ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "\" & Replace(Selection.Address, ":", "_") & ".pdf"

 

[HOOGEZAND]

Merhaba,
Şu kodu deneyiniz.
Selection.ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "\" & Replace(Selection.Address, ":", "_") & ".pdf"

Hocam makroyu çalıştırdığımda Run-time error '5' : hatası veriyor

 

[ÖmerBey]

Boş bir modüle aşağıdaki kodu olduğu gibi kopyalayıp, dosyanızı kaydettikten sonra kodu çalıştırıp deneyiniz.

Sub PdfKaydet()
Selection.ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "\" & Replace(Selection.Address, ":", "_") & ".pdf"
End Sub

Eğer yine hata meydana gelirse bir örnek dosya paylaşın onun üzerinde çalışalım.

 

[HOOGEZAND]

Boş bir modüle aşağıdaki kodu olduğu gibi kopyalayıp, dosyanızı kaydettikten sonra kodu çalıştırıp deneyiniz.

Sub PdfKaydet()
Selection.ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "\" & Replace(Selection.Address, ":", "_") & ".pdf"
End Sub

Eğer yine hata meydana gelirse bir örnek dosya paylaşın onun üzerinde çalışalım.

Hocam aynı hatayı veriyor,

 

[Tevfik_Kursun]

Merhaba,
Dene adlı dosyayı çalıştırın, istediğiniz alanı tutup tuşa basın arkadaşım.
İyi çalışmalar
http://s2.dosya.tc/server7/at1qus/Txt.rar.html