• FORUMU MOBİL UYGULAMADAN TAKİP EDİN

    Forumu isteyen üyelerimiz Tapatalk (Harici bir hizmet) üzerinden mobil uygulamadan takip edebilirler.
    iOS için : https://itunes.apple.com/app/id307880732?mt=8
    Android için : https://play.google.com/store/apps/details?id=com.quoord.tapatalkpro.activity
    adreslerinden indirebilirsiniz.

    Bir iki haftaya da foruma özel kendi uygulamamız yayında olacak.
ALTIN ÜYELİK Hakkında Bilgi
-----------------------

Soru Gizlenmiş Sekmeleri yazdırma Butonu

Katılım
21 Kasım 2018
Mesajlar
50
Beğeniler
2
Excel Vers. ve Dili
Excel 2013 , Türkçe
#1
İyi akşamlar öncelikle çalışmamda başka excel dosyalarına bilgi aktarıp daha sonra o dosyaları yazdır butonu yaparak excel dosyamın boyutunu düşük tutmayı düşünmüştüm ancak veri aktardığım dosyayı açmadan güncel hale gelmesi mümkün değil sanırım.
En azından görünmesini istemediğim dosyaları gizli yaparak o sayfaları yazdıracak buton yapmaya çalışıyorum. Mümkün müdür aceba gizli sekmeleri yazdırabilmek?
 

turist

Destek Ekibi
Destek Ekibi
Katılım
18 Kasım 2009
Mesajlar
4,928
Beğeniler
410
Excel Vers. ve Dili
2013 64Bit
English
#2
Mümkündür, ancak; Örnek Excel dosyanızı ekleyip dosya üzerinde açıklama yaparsanız, daha hızlı ve doğru cevaplar bulabilirsiniz.
 

turist

Destek Ekibi
Destek Ekibi
Katılım
18 Kasım 2009
Mesajlar
4,928
Beğeniler
410
Excel Vers. ve Dili
2013 64Bit
English
#4
Aşağıdaki kodları kullanıp deneyin.
Kod:
Private Sub btnYazdir_Click()
If Me.ComboBox6.Value = "SEÇİNİZ" Then Exit Sub
i = Me.ComboBox6.Value
Sheets(i).Visible = True
Sheets(i).Select
Unload Me
Sheets(i).PrintPreview
Sheets(i).Visible = False
Sheets("USERFORM").Select
End Sub
Private Sub UserForm_Initialize()
    Dim i As Long
    Me.ComboBox6.Clear
    For i = 1 To Sheets.Count
    If Sheets(i).Visible = False Then Me.ComboBox6.AddItem Sheets(i).Name
    Next
Me.ComboBox6.Value = "SEÇİNİZ"
End Sub
 
Üst