Gizli sayfaları PDF dönüştürme

[mertatakan3838]

Excel Versiyonu

Excel 2016

Excel Sürümü

64 Bit

Excel Dili

Türkçe

Dört farklı sayfada bu sayfalari PDF ye dönüştürdüğum makrolar var. Bu makrolari bu dört sayfa gizli konumda iken Userform uzerinden bir butonla çalıştırmak mümkünmü makrolarda activesheet bulunmakta

 

Kapalı Dosyadan Kritere Göre Veri Alma

Hücredeki Belirli Bir Değeri Bulmak ( içerir )

[cakarem]

Excel de hayal ediniz sonrasını kodlamaya bırakın ) Yapılabilir diye düşünüyorum. Örnek dosyanızı eklerseniz daha fazla yardımcı olabiliriz.

 

[Feyzullah]

Dört farklı sayfada bu sayfalari PDF ye dönüştürdüğum makrolar var. Bu makrolari bu dört sayfa gizli konumda iken Userform uzerinden bir butonla çalıştırmak mümkünmü makrolarda activesheet bulunmakta

Makrolarda ki activesheet yazanları "Sheets("sayfaadı")" şeklinde düzeltirseniz. Gizli olsun olmasın işlem yapar.

 

[mertatakan3838]

Makrolarda ki activesheet yazanları "Sheets("sayfaadı")" şeklinde düzeltirseniz. Gizli olsun olmasın işlem yapar.

Görüntülemek için giriş yapmanız gerekmektedir.
(42 satır)

Bu şekilde sayfalar açıkken çalışıyor fakat sayfaları gizlediğim zaman çalışmıyor

 

[AhmetRasim]

Merhaba Sn. mertatakan_3838;
Bu kodları kullandığınız dosyanın örnek halini (kodlar ile birlikte) paylaşır mısınız?

 

[mertatakan3838]

Merhaba Sn. mertatakan_3838;
Bu kodları kullandığınız dosyanın örnek halini (kodlar ile birlikte) paylaşır mısınız?

Sayfalar açık konumda iken PDF dönüştür çalışıyor. Ancak ben sayfalar gizli konumda iken bir butonla belirttiğim sayfaları PDF ye dönüştürüp yolunu yazdığım klasörlere PDF olarak kaydececek Örnek dosya kodları ile ektedir

 

[AhmetRasim]

Merhabalar;
Örnek dosyada 4 tane sayfa var ve hepsini PDF olarak kayıt ediyorsunuz.
-- Hangi sayfalar gizli olacak ve PDF dönüştürme işlemi hangi sayfadan yapılacak?

 

[mertatakan3838]

Ben kontrol diye aktif bir sayfa açacağım buraya raporla diye bir buton açacağım diğer sayfaların hepsi gizli olacak raporla dediğim zaman gizli olan sayfaları PDF olarak yolunu belirrttigim klasörün içine atacak

 

[AhmetRasim]

Merhabalar;
Dosyanızda biraz değişiklik yaptım.
-- Kodlar tek modülde,
-- TIGA ve TIGA AYLIK SATIS isimli sayfaların A1 hücresindeki isim aynı olduğu için; TIGA AYLIK SATIS sayfası A1 hücresine TIGA_Aylık yazdım. Kamu isimli sayfalar içinde aynı durum geçerli.
-- Kullandığınız kodlarda geçen ActiveSheet kelimelerini sayfa isimleri ile değiştirdim. Örnek; Sheets("KAMU")
-- Her kodun;
> ilk satırına
>> Ekran hareketlerini kapatmak için Application.ScreenUpdating = False
>> Gizli sayfaların görünür olması için Sheets("Sayfa_İsmi_Yazılır").Visible = True satırlarını ekledim.

> son satırına
>> Ekran hareketlerini açmak için Application.ScreenUpdating = True
>> Sayfaları gizlemek için Sheets("Sayfa_İsmi_Yazılır").Visible = True satırlarını ekledim.

Bu şekilde, sayfalar gizliyken PDF isimli klasöre 4 tane Rapor oluşturmaktadır.

 

[mertatakan3838]

Merhabalar;
Dosyanızda biraz değişiklik yaptım.
-- Kodlar tek modülde,
-- TIGA ve TIGA AYLIK SATIS isimli sayfaların A1 hücresindeki isim aynı olduğu için; TIGA AYLIK SATIS sayfası A1 hücresine TIGA_Aylık yazdım. Kamu isimli sayfalar içinde aynı durum geçerli.
-- Kullandığınız kodlarda geçen ActiveSheet kelimelerini sayfa isimleri ile değiştirdim. Örnek; Sheets("KAMU")
-- Her kodun;
> ilk satırına
>> Ekran hareketlerini kapatmak için Application.ScreenUpdating = False
>> Gizli sayfaların görünür olması için Sheets("Sayfa_İsmi_Yazılır").Visible = True satırlarını ekledim.

> son satırına
>> Ekran hareketlerini açmak için Application.ScreenUpdating = True
>> Sayfaları gizlemek için Sheets("Sayfa_İsmi_Yazılır").Visible = True satırlarını ekledim.

Bu şekilde, sayfalar gizliyken PDF isimli klasöre 4 tane Rapor oluşturmaktadır.

dosya yolunda hata veriyor nedense anlamadım

 

[mertatakan3838]

İş yerimdeki PC de çalıştı tesekkur ederim hocam

 

[AhmetRasim]

Merhabalar;
Rica ederim.
-- Konuyu çözüldü olarak kilitleyelim mi?

 

[cakarem]

Sayın @mertatakan_3838
Sorunuz çözüme ulaşıldı ise konuyu çözüldü olarak işaretleyip, kilitleyelim.

 

[cakarem]

Dönüş sağlanmadığı için konu çözüldü olarak işaretlenip, kilitlenmiştir.