• Web sitemizin SORU-CEVAP bölümünde dosya yüklemek ve dosya indirmek ÜCRETSİZ'dir.

    Gizlilik kapsamında, sadece site yöneticilerimizin ve üyenin kendisinin görebileceği ÜCRETLİ ÖZEL DESTEK alanımız mevcuttur.

Çözüldü Gizli sayfaları PDF dönüştürme

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

mertatakan_3838

VIP
VIP
Kullanıcı

Reputation:

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
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Çözüm
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...

cakarem

Forum Yönetimi
Yönetici
Site Yöneticisi

Reputation:

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.
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Feyzullah

Feyzullah KILINÇ - XD Yönetim
Yönetici
Site Yöneticisi

Reputation:

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.
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

mertatakan_3838

VIP
VIP
Kullanıcı

Reputation:

Makrolarda ki activesheet yazanları "Sheets("sayfaadı")" şeklinde düzeltirseniz. Gizli olsun olmasın işlem yapar.
PHP:
Değerli ziyaretçimiz lütfen, içeriği görüntüleyebilmek için Giriş Yap veya Kayıt Ol anlayışınız için teşekkürler.
Bu şekilde sayfalar açıkken çalışıyor fakat sayfaları gizlediğim zaman çalışmıyor
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Moderatörün son düzenlenenleri:

AhmetRasim

Forum Yönetimi
Yönetici
Site Yöneticisi

Reputation:

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



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

mertatakan_3838

VIP
VIP
Kullanıcı

Reputation:

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
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Ekli dosyalar (Dosyaları İndirmek İçin Beğenmeniz Gerekir)

  • DENEME.xlsm
    83.2 KB · Görüntüleme: 3

AhmetRasim

Forum Yönetimi
Yönetici
Site Yöneticisi

Reputation:

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?
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

mertatakan_3838

VIP
VIP
Kullanıcı

Reputation:

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
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

AhmetRasim

Forum Yönetimi
Yönetici
Site Yöneticisi

Reputation:

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.
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Ekli dosyalar (Dosyaları İndirmek İçin Beğenmeniz Gerekir)

  • DENEME.xlsm
    80.5 KB · Görüntüleme: 2
Çözüm

mertatakan_3838

VIP
VIP
Kullanıcı

Reputation:

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
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Ekli dosyalar (Dosyaları İndirmek İçin Beğenmeniz Gerekir)

  • hata.png
    hata.png
    182.5 KB · Görüntüleme: 3

mertatakan_3838

VIP
VIP
Kullanıcı

Reputation:

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



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

AhmetRasim

Forum Yönetimi
Yönetici
Site Yöneticisi

Reputation:

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



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

cakarem

Forum Yönetimi
Yönetici
Site Yöneticisi

Reputation:

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



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

cakarem

Forum Yönetimi
Yönetici
Site Yöneticisi

Reputation:

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



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

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

Benzer Konular

Üst