Sayfa gizleme

[beyrek72]

Herkese hayırlı cumalar benim 1'den 31'e kadar 1,2,3 diye sayfalarım var
en başta data forcast toplam sayfalarım var isteğim veya ricam 1'den 31 kadar olan sayfaları gizlemek aynı zamanda istediğim zamanda açmak bunun için bana bir kod önerebilrimisiniz şimdiden telekküürler.

 

[Orion1]

Merhaba.
Aşağıdaki kodları deneyebilirsiniz.
Bir modüle yapıştırıp deneyiniz.
sayfaları gilemek için.:

Sub sayfa_gizle()
Dim syf As Worksheet
For Each syf In Worksheets
    If syf.Name <> "data" And syf.Name <> "forcast" And syf.Name <> "toplam" Then
        syf.Visible = False
    End If
Next
End Sub

sayfaları göstermek için :

Sub sayfa_goster()
Dim syf As Worksheet
For Each syf In Worksheets
    If syf.Name <> "data" And syf.Name <> "forcast" And syf.Name <> "toplam" Then
        syf.Visible = True
    End If
Next
End Sub

 

[Seyit Tiken]

Aşağıdaki kodu deneyiniz.

Sub Düğme1_Tıklat()
For s = 2 To Sheets.Count
Sheets(s).Visible = 2
Next
End Sub

Sub Düğme2_Tıklat()
For s = 2 To Sheets.Count
Sheets(s).Visible = 1
Next
End Sub

 

[beyrek72]

Örnek dosya

Kodları denedim galiba ben beceremedim sadece sayfa 31 veya data sayfası kalıyor benim isteğim data,forcast ve toplam sayfasının kalması diğerlerinin gizlenmesi ayrıca göstermiş olduğunuz ilgiden dolayı çok teşekkürler

 

[beyrek72]

Arkadaşlar şu örnekte gösterdiğim dosyaya bir bakmanız mümkünmü acaba rica etsem teşekkürler.

 

[Orion1]

Kodları denedim galiba ben beceremedim sadece sayfa 31 veya data sayfası kalıyor benim isteğim data,forcast ve toplam sayfasının kalması diğerlerinin gizlenmesi ayrıca göstermiş olduğunuz ilgiden dolayı çok teşekkürler

Anlaşılan benim verdiğim kodları denememişsiniz.
Ekli dosyayı inceleyiniz.

 

[beyrek72]

Teşekkür

Sayın Orion 2 ve sayın seyit bey yardımlarınızdan dolayı çok teşekkürler
anlamaya çalıştğım ve anlıyamadığım arçalar düğmesindeki common buton düğmesine bastğımda vba kodlarını yazdığım ekrana sub gelmiyor comman buton clik geliyor sizinkine bakıyorum sizinkinde sub geliyor bu konuda beni aydınlatırsanız veya bilgi verirseniz çok sevinirim.

 

[Orion1]

Ben Formlardan düğme ekledim ve dümeye dağa önceden yazdığım makroyu atadım.
Siz ise denetim araç kutusundan commandButton eklediğiniz için öyele oluyor.
Form'lara ulaşmak için toolbara'a sağ klik yapın ve Formlar'ı çek edin.