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

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

mertatakan3838

Kullanıcı
Katılım
1 Mar 2021
Mesajlar
334
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Tarihe göre sırala Oylamaya göre sırala
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.
 
Oyla 0 Olumsuz oyla
mertatakan_3838' Alıntı:
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
Genişletmek için tıklayın ...

Makrolarda ki activesheet yazanları "Sheets("sayfaadı")" şeklinde düzeltirseniz. Gizli olsun olmasın işlem yapar.
 
Oyla 0 Olumsuz oyla
AhmetRasim' Alıntı:
Merhaba Sn. mertatakan_3838;
Bu kodları kullandığınız dosyanın örnek halini (kodlar ile birlikte) paylaşır mısınız?
Genişletmek için tıklayın ...
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
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
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?
 
Oyla 0 Olumsuz oyla
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
 
Oyla 0 Olumsuz oyla
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.
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
AhmetRasim' Alıntı:
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.
Genişletmek için tıklayın ...
dosya yolunda hata veriyor nedense anlamadım
 

Ekli dosyalar

  • hata.webp
    hata.webp
    86.6 KB · Görüntüleme: 42
Oyla 0 Olumsuz oyla
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt