a1 hücresindeki veri dosya adı olacak formatı pdf.

[tostcu55]

Arkadaşlar bir çalışmam var Bir makro oluşturmak istiyorum. A1 hücresindeki ismi dosya adı olarak alacak ve pdf olarak farklı kayıtedecek. şimdiden teşekkürler.

 

[apismellifera]

Bu konuda benimde ihtiyacım var. Basit yollarla yapmak istedim. (Makro kaydederek) ancak her zaman aynı isimle kayıt yapıyor. Hücre içindeki yazıyı kopyaladığım kısmı adımların içinde gösteremiyorum. Yardımlarınızı bekliyorum.

 

[İhsan Tank]

Merhaba
Arkadaşlar bu pdf dosyasını nereye kayıt yapacak bilgi verir misiniz_?

 

[apismellifera]

Benim için durum Excel dosyasının olduğu klasörün içine kaydedecek. Yani yolları aynı olacak.

 

[İhsan Tank]

Benim için durum Excel dosyasının olduğu klasörün içine kaydedecek. Yani yolları aynı olacak.

Merhaba
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub pdf_kayıt_61()
Dim ts
ts = ThisWorkbook.Path & "\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ts & Range("A1"), Quality _
:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub

 

[tostcu55]

Yardımınız için Teşekkür ederim ihsan bey.

 

[apismellifera]

İhsan Bey çok sağolun. VBA ve makro konularına daha çok kafa yoracağım anlaşılan.

 

[İhsan Tank]

Yardımınız için Teşekkür ederim ihsan bey.

Rica ederim
:keyif:

İhsan Bey çok sağolun. VBA ve makro konularına daha çok kafa yoracağım anlaşılan.

Rica ederim
Biraz uğraşmak lazım
:keyif:

 

[tostcu55]

Üstat çok oluyoruz ama kayıt yerini masaüstü yapabilirmisin.

 

[İhsan Tank]

Üstat çok oluyoruz ama kayıt yerini masaüstü yapabilirmisin.

Merhaba
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub pdf_masa_61()
Dim ts, kaplan
Set ts = CreateObject("Wscript.Shell")
kaplan = ts.specialfolders.Item("Desktop")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
kaplan & "\" & Range("A1") & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub

 

[tostcu55]

Merhaba
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub pdf_masa_61()
Dim ts, kaplan
Set ts = CreateObject("Wscript.Shell")
kaplan = ts.specialfolders.Item("Desktop")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
kaplan & "\" & Range("A1") & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub

Çok teşekkürler.

 

[İhsan Tank]

Çok teşekkürler.

Rica ederim
:keyif: