PDF kaydedip kapanan dosya

[muratgunay48]

Arkadaşlar, bir dosyam var, listelerin olduğu. Onu macro içerebilen dosya olarak kaydettim. Şimdi onda 3 adet sayfa var. (hafta içi, cumartesi, pazar). Macro yazmak olarak değilde, Macro kaydet butonu var ya. oradan macro yapmak istiyorum. İşte ctrl+k yapınca hafta içi sayfasını, ctrl+m yapınca cumartesi sayfasını PDF olarak yönlendirdiğim klasöre kaydedecek. Buraya kadar tamam. Ama bunu yaptıktan sonra kapansın istiyorum. Bunu nasıl sağlayabilirim.

Ancak dosyada bir macro var zaten (kapanırken kaydet-kaydetme diye sormadan direk kapanması için)
Sanırım her üçü (hafta içi, cumartesi, pazar) ayrı ayrı olması lazım. Bu dosyada ben bir de starter kullanıyorum (masaüstünde 3 tane buton var. tıklayınca kaydediyor ama kapanmıyor) Yani macronun adını bilmek lazım sanırım. Starter excel ve macro adıyla çalışıyor.

Farklı bir yol önerirseniz, önerilere açığım. Neticede exceli sizlerden öğrendim (bildiğim kadarını ????)

Şimdiden teşekkür ederim. Emeğinize sağlık.

 

[muratgunay48]

Arkadaşlar bir yolu yok mu. PDF olarak kaydettikten sonra kapansın.

 

[muratgunay48]

Arkadaşlar, yardımcı olabilecek yok mu acaba. PDF kaydedip kapansın. Gerçekten ne yapsam olmadı.
Teşekkür ederim.

 

[Korhan Ayhan]

Kapansından kastınız nedir?

 

[muratgunay48]

Cevabı silemedim.

 

[muratgunay48]

Kapansından kastınız nedir?

Merhaba hocam. RAPORLAR isimli excel dosyası var. 3 sayfası mevcut. (haftaiçi-cumartesi-pazar)
(yalnız, -sizin yardımlarınızla- bu çalışma kitabında kaydetmeden kapan macrosu var, bunu belirtmek isterim)
Şimdi bir macro olsun istiyorum. mesela ctrl+h yapınca istediğim dizine haftaiçi sayfasını PDF olarak kaydetsin. ctrl+j yapınca cumartesi sayfasını istediğim dizine PDF olarak kaydetsin. Şimdi hocam, bunu zaten macro kaydet ile yapmak kolay. Ama kapanmıyor sonra. Yani PDF olarak kaydettikten sonra RAPORLAR isimli excel dosyası kapanacak, kapanmak derken, belki ben farklı bir şeymiş gibi anlattım. PDF olarak kaydediyor ve ben sağ üst köşedeki kırmızı çarpı işareti ile dosyayı kapatıyorum.
Neden derseniz, ben arkadaşımızın yazdığı aşağıdaki starter kodunu kullanıyorum. Böylece raporlar hiç gözükmüyor. (gözükmemesi lazım)
Saygılarımla


Set WshNetwork = WScript.CreateObject("WScript.Network")

' WScript.Echo "Merhaba, " & WshNetwork.UserName

Set NewXL = CreateObject("Excel.Application")

Set MyWB = NewXL.workbooks.open("C:\Users\muratgunay48\Desktop\RAPORLAR.xlsm")

NewXL.Visible = True

NewXL.application.run "haftaiçi"

NewXL.Application.DisplayAlerts = False

MyWB.Close False

NewXL.Quit

Set MyWB = Nothing

Set NewXL = Nothing

Set WshNetwork = Nothing

 

[muratgunay48]

Korhan Ayhan hocam, isterseniz çok basit örnek dosya yükleyeyim. Ama sizin için gerek var mı bilemedim.

 

[Korhan Ayhan]

Siz örnek dosya paylaşın üzerinden gidelim.

 

[muratgunay48]

Siz örnek dosya paylaşın üzerinden gidelim.

Hocam, bir dosya ekledim. Bu excel dosyasında "kaydetmeden kapanma macrosu" var. Şimdi ona PDF olarak kaydet macrosu yaptım. Zaten göreceksiniz. ctrl+y yapınca dizine PDF olarak kaydediyor. Fakat açık kalıyor. PDF olarak kaydettikten sonra kendisi kapansın.
Saygılarımla.

 

[tamer42]

Hocam, bir dosya ekledim. Bu excel dosyasında "kaydetmeden kapanma macrosu" var. Şimdi ona PDF olarak kaydet macrosu yaptım. Zaten göreceksiniz. ctrl+y yapınca dizine PDF olarak kaydediyor. Fakat açık kalıyor. PDF olarak kaydettikten sonra kendisi kapansın.
Saygılarımla.

Merhaba,
PDF kaydeden makronun son satırına

  ThisWorkbook.Close 0

yazdığınız zaman olmuyor mu?

 

[Korhan Ayhan]

Merhaba,

Paylaştığınız dosyada bahsettiğiniz kurguyu oluşturdum. Yolları kendi sistemime göre revize edip denediğimde küçük bir ekran hareketinden sonra hem PDF oluştu hemde excel otomatik kapandı.

Yani deneme yaptığımda ben sorun yaşamadım.

Bahsettiğim küçük ekran hareketini de görmek istemezseniz starter kodundaki aşağıdaki satırı FALSE olarak değiştirip deneyiniz.

NewXL.Visible = True

 

[muratgunay48]

Merhaba,
PDF kaydeden makronun son satırına

  ThisWorkbook.Close 0

yazdığınız zaman olmuyor mu?

Hocam onu denedim desem yalan olur. Son satır olarak mı ekleyeceğim.

 

[muratgunay48]

Merhaba,

Paylaştığınız dosyada bahsettiğiniz kurguyu oluşturdum. Yolları kendi sistemime göre revize edip denediğimde küçük bir ekran hareketinden sonra hem PDF oluştu hemde excel otomatik kapandı.

Yani deneme yaptığımda ben sorun yaşamadım.

Bahsettiğim küçük ekran hareketini de görmek istemezseniz starter kodundaki aşağıdaki satırı FALSE olarak değiştirip deneyiniz.

NewXL.Visible = True

Hocam adımlayarak tekrar deniyorum.

 

[muratgunay48]

Merhaba,
PDF kaydeden makronun son satırına

  ThisWorkbook.Close 0

yazdığınız zaman olmuyor mu?
[/QUO
Hocam şunu belirtmeyi unuttum. Bendeki dosyada, macro workbook'ta değil. Normal macro kaydet diyerek yaptım. 3 sayfa çünkü ctrl+h ile 1. sayfa (hafta içi listesi), ctrl+j ile 2. sayfa (cumartesi listesi), ctrl+k ile 3. sayfa (pazar listesi) pdf olarak çıkıyor. Yani workbook olarak değil de, modül olarak geçiyor sanırım. Sizin yazdığınız son satıra yazılacak olan workbook için değil mi.
Saygılarımla.

 

[Korhan Ayhan]

Kod var olan hali ile çalışıyor. Bence sizin bilgisayarınızda bu durumu engelleyen farklı bir durum vardır.

 

[muratgunay48]

Kod var olan hali ile çalışıyor. Bence sizin bilgisayarınızda bu durumu engelleyen farklı bir durum vardır.

Bir excel macrosu ile, başka bir macroyu çalıştırdım oldu hocam. O şekilde çalıştı. Ve sanırım daha kolay oldu. İlginize teşekkür ederim hocam.
Saygılarımla.