Gizlenen Sayfalar

[Mdemir63]

Selamlar,

Arkadaşlar, butonla belirlediğimiz sayfaları gizlemek, yine butonla gizlenenleri göstermek istiyorum . Aslında tek bir sayfayı aşağıdaki kodlarla yapıyorum.

Sub sayfagizle()
Sheets("Sayfa2").Select

ActiveWindow.SelectedSheets.Visible = False
Sheets("Sayfa1").Select

End Sub
Sub sayfagöster()
Sheets("Sayfa2").Visible = True
End Sub


ama birden fazla sayfa için yapamadım.

ayrıca ;

Private Sub ToggleButton1_Click()
If Sheets("Sayfa2").Select Then
ToggleButton1.Caption = "GİZLE"
ActiveWindow.SelectedSheets.Visible = False
Sheets("Sayfa1").Select
Else
ToggleButton1.Caption = "GÖSTER"
Sheets("Sayfa2").Visible = True
End If

End Sub

bu kodlarda da GÖSTER kısmı çalışmıyor.

ilgilerinize şimdiden teşekkürler.

Saygılar

 

[ynmcan]

Syn. Komutan63;
Aşağıdaki kodu kullanınız.
Ekteki dosyayı inceleyin.

Private Sub ToggleButton1_Click()
If ToggleButton1.Caption = "GİZLE" Then
ToggleButton1.Caption = "GÖSTER"
Sheets("Sayfa2").Visible = False
Exit Sub
End If
If ToggleButton1.Caption = "GÖSTER" Then
Sheets("Sayfa2").Visible = True
ToggleButton1.Caption = "GİZLE"
Exit Sub
End If
End Sub

 

[Mdemir63]

Selamlar,

Hocam elinize sağlık buraya kadar tamam . Ancak burada tek bir sayfa gizlenip gösteriliyor. birden fazla sayfa için kodlarda nereyi değiştirmek gerekir.

Saygılar

 

[AS3434]

Sayın komutan63
Aşağıdaki kodları ilgili modüle yazın..
kodlar 2 sayfayı gösterirkalanı gizler.
sayfa sayısını 3 rakamını değiştirerek ayarlayın

Sub Göster()
Application.ScreenUpdating = False
For i = [COLOR="Red"]3[/COLOR] To Sheets.Count
Sheets(i).Visible = True
Next
End Sub

Sub Gizle()
For i = [COLOR="#ff0000"]3[/COLOR] To Sheets.Count
Sheets(i).Visible = False
Next
End Sub

TONGLE BUTON içinde aynı kodları yazabilirsiniz

Private Sub ToggleButton1_Click()
If ToggleButton1.Value = False Then
ToggleButton1.Caption = "GİZLE"
Application.ScreenUpdating = False
    For i = [COLOR="#ff0000"]3[/COLOR] To Sheets.Count
Sheets(i).Visible = True
Next
End If
If ToggleButton1.Value = True Then
ToggleButton1.Caption = "GÖSTER"
    For i = [COLOR="#ff0000"]3 [/COLOR]To Sheets.Count
Sheets(i).Visible = False
Next
End If
End Sub

 

[Mdemir63]

Selamlar

Private Sub ToggleButton1_Click()
If ToggleButton1.Caption = "GİZLE" Then
ToggleButton1.Caption = "GÖSTER"
Sheets("Sayfa2").Visible = False
Sheets("Sayfa3").Visible = False

Exit Sub
End If
If ToggleButton1.Caption = "GÖSTER" Then
Sheets("Sayfa2").Visible = True
Sheets("Sayfa3").Visible = True

ToggleButton1.Caption = "GİZLE"
Exit Sub
End If
End Sub

Hocam yukarıdaki gibi yaptım oldu .Teşekkürler

Saygılar

 

[Mahir64]

Merhaba
Gizlenecek Sayfaları tanımlasanız.

Private Sub ToggleButton1_Click()
If ToggleButton1.Caption = "GİZLE" Then
ToggleButton1.Caption = "GÖSTER"
Sheets("Sayfa2").Visible = False
Sheets("Sayfa3").Visible = False
Exit Sub
End If
If ToggleButton1.Caption = "GÖSTER" Then
Sheets("Sayfa2").Visible = True
Sheets("Sayfa3").Visible = True
ToggleButton1.Caption = "GİZLE"
Exit Sub
End If
End Sub

 

[Mdemir63]

Sayın komutan63
Aşağıdaki kodları ilgili modüle yazın..
kodlar 2 sayfayı gösterirkalanı gizler.
sayfa sayısını 3 rakamını değiştirerek ayarlayın

Sub Göster()
Application.ScreenUpdating = False
For i = [COLOR=red]3[/COLOR] To Sheets.Count
Sheets(i).Visible = True
Next
End Sub
 
Sub Gizle()
For i = [COLOR=#ff0000]3[/COLOR] To Sheets.Count
Sheets(i).Visible = False
Next
End Sub

TONGLE BUTON içinde aynı kodları yazabilirsiniz

Private Sub ToggleButton1_Click()
If ToggleButton1.Value = False Then
ToggleButton1.Caption = "GİZLE"
Application.ScreenUpdating = False
    For i = [COLOR=#ff0000]3[/COLOR] To Sheets.Count
Sheets(i).Visible = True
Next
End If
If ToggleButton1.Value = True Then
ToggleButton1.Caption = "GÖSTER"
    For i = [COLOR=#ff0000]3 [/COLOR]To Sheets.Count
Sheets(i).Visible = False
Next
End If
End Sub

Selamlar,
Hocam elinize sağlık ama hangi sayfayı gizlemeyecek? bu kodlarda anladığım kadarıyla sayfa ismi yok 2 sayfa hariç gizle diyoruz değil mi?
Lütfen yanlış anladıysam uyarınız
Saygılar

 

[Mdemir63]

Merhaba
Gizlenecek Sayfaları tanımlasanız.

Private Sub ToggleButton1_Click()
If ToggleButton1.Caption = "GİZLE" Then
ToggleButton1.Caption = "GÖSTER"
Sheets("Sayfa2").Visible = False
Sheets("Sayfa3").Visible = False
Exit Sub
End If
If ToggleButton1.Caption = "GÖSTER" Then
Sheets("Sayfa2").Visible = True
Sheets("Sayfa3").Visible = True
ToggleButton1.Caption = "GİZLE"
Exit Sub
End If
End Sub

Selamlar, Hocam
Gizlenecek Sayfaları tanımlasanız. dan ne demek istediğinizi anlamadım. Zaten tanımlı değil mi? yukarıdaki kodlarda

Saygılar

 

[Mahir64]

Selamlar, Hocam
Gizlenecek Sayfaları tanımlasanız. dan ne demek istediğinizi anlamadım. Zaten tanımlı değil mi? yukarıdaki kodlarda

Saygılar

Merhaba
Mesajları aynı anda yazmışız
Sizin yaptığınız kodu önermişim.

 

[AS3434]

Selamlar,
Hocam elinize sağlık ama hangi sayfayı gizlemeyecek? bu kodlarda anladığım kadarıyla sayfa ismi yok 2 sayfa hariç gizle diyoruz değil mi?
Lütfen yanlış anladıysam uyarınız
Saygılar

Gönderdiğim kodlar, ilk iki sayfayı açık tutar diğerlerini gizler.

3 rakamını değiştirerek, ilk başlarda açık kalacak sayfa sayısını ayarlayabilirsiniz. Bu kodlarla arada bir sayfa seçme şansınız yoktur..

 

[Mdemir63]

Gönderdiğim kodlar, ilk iki sayfayı açık tutar diğerlerini gizler.

3 rakamını değiştirerek, ilk başlarda açık kalacak sayfa sayısını ayarlayabilirsiniz. Bu kodlarla arada bir sayfa seçme şansınız yoktur..

Selamlar,
Anladım hocam o zaman gizlemek istemediğimiz iki sayfayı 1 ve 2 . sıraya getirip çalıştıracağız bu kodları

Saygılar

 

[AS3434]

Sayın komutan63

Evet aynen öyle.
Açık kalacak sayfalar en başta olacak.
Eğer fazla sayıda sayfanız varsa, en sonlardan da sayfa açık bırakma şansınız var ki ben öyle kullanıyorum.
Kırmızı -2 (İstediğiniz sayıda değiştirebilirsiniz) sayısı ile sondan da 2 sayfayı açık bırakabirlirsiniz.

Private Sub ToggleButton1_Click()
If ToggleButton1.Value = False Then
ToggleButton1.Caption = "GİZLE"
Application.ScreenUpdating = False
For i = 3 To Sheets.Count
Sheets(i).Visible = True
Next
End If
If ToggleButton1.Value = True Then
ToggleButton1.Caption = "GÖSTER"
For i = 3 To Sheets.Count - 2
Sheets(i).Visible = False
Next
End If
End Sub

Sevgi ile kalın.

.

 

[Mdemir63]

Selamlar,

Teşekkürler hocam ilginize, sağolun
Saygılar

 

[barisbaris70]

teşekkürler

 

[y_tekeli]

sayfaları gizleme hk

Private Sub ToggleButton1_Click()
If ToggleButton1.Value = False Then
ToggleButton1.Caption = "GİZLE"
Application.ScreenUpdating = False
For i = 3 To Sheets.Count
Sheets(i).Visible = True
Next
End If
If ToggleButton1.Value = True Then
ToggleButton1.Caption = "GÖSTER"
For i = 3 To Sheets.Count
Sheets(i).Visible = False
Next
End If
End Sub

burada sadece ilk üç sayfa sonrası gizleniyor bu durumda sayfaların tamamını nasıl gizleyebiliriz. yapmak istediğim sayfaların tamamını gizleyip butonlarla istediğim sayfaları açmak

 

[ynmcan]

Sayın Y Tekeli;
Kırmızı ile belirtiğim 3 yazan Yerleri 2 olarak değiştirin.

1.Sayfa hariç hepsini gizler.

Private Sub ToggleButton1_Click()
If ToggleButton1.Value = False Then
ToggleButton1.Caption = "GİZLE"
Application.ScreenUpdating = False
For i =[COLOR="Red"] 3[/COLOR] To Sheets.Count
Sheets(i).Visible = True
Next
End If
If ToggleButton1.Value = True Then
ToggleButton1.Caption = "GÖSTER"
For i = [COLOR="red"]3[/COLOR] To Sheets.Count
Sheets(i).Visible = False
Next
End If
End Sub

 

[Hexafluramon]

Arkadaşlar merhaba. Benim bu konuya benzer bir sorum var. Benim iş ile ilgili kullandığım yaklaşık 450 sayfalık bir excel dosyam var. Benim isteğim eğer mümkünse sadece listelediğim sayfaların görünmesi. Yani sayfa isimlerinden oluşan bir listedeki sayfaların görünmesini istiyorum. Böyle bir şey mümkün müdür acaba.