dosya ismini bir hücreden aldırıp pdf dosya kaydetme

[esad45]

excel de bir dosyanın sayfa 1 adlı sayfasını pdf olarak kayedetmek ve kayıt sırasında a1 hücresindeki yazıyı da dosya ya isim olarak farklı kaydetmek istiyorum bu konuda nasıl bir makro yazmam lazım

 

[ÖmerBey]

Aşağıdaki linki inceleyiniz.
http://excel.web.tr/f48/dosya-ismini-hucreden-alarak-farkly-kaydetme-t137898.html

 

[esad45]

linkteki benim çalışma kitabıma uymadı

 

[ÖmerBey]

Sub Pdf_Kaydet()
If Sheets("Sayfa1").Range("A1") = "" Then
MsgBox "A1 hücresi boş!"
Else
Sheets("Sayfa1").ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\" & Sheets("Sayfa1").Range("A1") & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End If
End Sub

Sayfa 1'i D:\ dizini içerisine pdf olarak kaydeder ve dosya adını da sayfa 1 A1 hücresinden alır.

 

[daghan87]

Sub Pdf_Kaydet()
If Sheets("Sayfa1").Range("A1") = "" Then
MsgBox "A1 hücresi boş!"
Else
Sheets("Sayfa1").ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\" & Sheets("Sayfa1").Range("A1") & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End If
End Sub

Sayfa 1'i D:\ dizini içerisine pdf olarak kaydeder ve dosya adını da sayfa 1 A1 hücresinden alır.

ömer bey merhaba bu kodlarda d nin içerisinde baska bir klasör belirleyip onun içerisine nasıl kayıt yaparız. yada excel in bulundugu klasörün içine pdf olarak atabilirmiyiz makro ya tıkladığımızda. yardımcı olursanız sevinirim

 

[Korhan Ayhan]

Kod içindeki aşağıdaki satırı bir sonraki gibi değiştirin.

Filename:="D:\"

Filename:= ThisWorkbook.Path & "\"

 

[Hacı Bayram ÖZKAN]

Merhabalar aynı dosya tıff olarak kaydetmek için nasıl bir kod yazılır. Yada oluyor mu?Teşekkürler.