Soru Gizlenmiş Sekmeleri yazdırma Butonu

[ekremmk]

İ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]

Mümkündür, ancak; Örnek Excel dosyanızı ekleyip dosya üzerinde açıklama yaparsanız, daha hızlı ve doğru cevaplar bulabilirsiniz.

 

[ekremmk]

Mümkündür, ancak; Örnek Excel dosyanızı ekleyip dosya üzerinde açıklama yaparsanız, daha hızlı ve doğru cevaplar bulabilirsiniz.

örnek dosyayı buraya yükledim sayın hocam.

 

[turist]

Aşağıdaki kodları kullanıp deneyin.

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