Çözüldü Bir hücredeki veriye göre pdf kayıt adı verme

[Hamikeserci]

Merhaba,

şimdi elimde hazırlamış olduğum bir excel dökümanı mevcut. pdf çıktı alacağım bir format ve sayfa yapısı o0luşturdum ve pdf oluştur butonu yaptım. yalnız pdf oluşturduğu zaman pdf e manuel kayıt ismi giriyorum. ben ise çıktı sayfası olarak düzenlediğim sayfada A1 hücresinde proje adı: hami yazıyor mesela. ben pdf kaydet dediğim zaman kaydedilecek pdf i hami adında kaydettirebiliyormuyum? aşağıda pdf kaydet butonuna tıkladıgımda pdf oluşturuyor ve ben isim veriyorum sonra kaydediyor. benim istediğim pdf kaydet dediğimde proje adını vererek dosyayı pdf kaydetmesi. bu konuda makro varmıdır acaba?

yardımlarınız için şimdiden teşekkürler.

 

[askan]

Kodlarınızı veya örnek dosyanızı paylaşın düzenlenir

 

[Hamikeserci]

Kodlarınızı veya örnek dosyanızı paylaşın düzenlenir

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Hamikeserci]

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

bu arada dosya adı olarak kullanılacak hücre x4 hücresi.

 

[askan]

Hocam siz bu kodlarla yazıcıyı Print PDF ayarlayıp mı alıyorsunuz?

 

[askan]

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Bu şekilde bir dener misiniz ?

 

[Hamikeserci]

Hocam siz bu kodlarla yazıcıyı Print PDF ayarlayıp mı alıyorsunuz?

Hocam makro kaydet dedim. Ctrl p yapip pdf kaydet dedim makroyu durdurdum ve butona atadim

 

[askan]

Gereksiz kodlar var bilginiz olsun

 

[Hamikeserci]

Gereksiz kodlar var bilginiz olsun

hocam şimdi oluşturduğum sayfa kopya bir sayfada satırları gizlenerek oluşturuldugu için fazladan hücreleride görüyor. ekstra bir şablon oluşturup eşitlemeleri yaptıktan sonra tekrar revize edeceğim. yukarıda paylaşmış oldugunuz kod çalıştı teşekkür ederim. o koddaki mantık path yolu verirken dosya adını hücreden alsın diyerek mi kaydet dediniz. Mantıgını kavramaya çalışıyorum bir yandan da

 

[askan]

Path yolu çalışılan kitabın pathı kullanıyor. En sonunda dosya adını veriyorsunuz. X4 hücreden alarak

 

[Hamikeserci]

Path yolu çalışılan kitabın pathı kullanıyor. En sonunda dosya adını veriyorsunuz. X4 hücreden alarak

Sub saveas()
'
' saveas Makro
'

'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False

End Sub


makroyu düzelttim gereksiz satırları kaldırdım. sonra sizin yukarıda paylaştığınız kodu sonuna ekledim olmadı?

 

[Hamikeserci]

Sub saveas()
'
' saveas Makro
'

'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False

End Sub


makroyu düzelttim gereksiz satırları kaldırdım. sonra sizin yukarıda paylaştığınız kodu sonuna ekledim olmadı?

sayenızde kendim çözdüm halloldu