sayfaların bir kısmının gizlenmesi

[asem33]

Arkadaşlar merhaba;
excelde yaklaşık 40 sayfalık bir çalışma yaptım bu 40 tane sayfanın 3 tanesinin görünür gei kalan 37 olanında gizli olmasını istiyorum. ama gizli sayfalarıda tek tuşla kolaylıkla gösterip tekrar gizlemek istiyorum. uygun makroyu yapamadım.
yardımcı olursanız sevinirim.

 

[ersoyalan]

Merhaba,

Deneme1-deneme2-deneme3 sayfaları gizlenir.sayfaları siz çoğaltırsınız.

 

[dEdE]

Merhaba,
Dosyanız ilişiktedir.

 

[asem33]

çok çok teşekkür ederim istediğim buydu. fakat bende 40 kadar sayfanın hepsini farklı isimlendirdim. ne yapmam lazım.. görünür haldeki sayfalar da en baştaki sayfalar değil aralarda

 

[dEdE]

.... fakat bende 40 kadar sayfanın hepsini farklı isimlendirdim. ne yapmam lazım.. görünür haldeki sayfalar da en baştaki sayfalar değil aralarda

Merhaba,

Aşağıdaki kodları kullanabilirsiniz.
Gerekli açıklamalar kodun içine yazılmıştır.

Private Sub CommandButton1_Click()
If CommandButton1.Caption = "Göster" Then
' Göster komutunda şifre sormasını isterseniz alttaki iki satırın başındaki tek tırnak işaretini kaldırınız
'W = InputBox("Şifrenizi giriniz", "ŞİFRE")
'If Not W = 123 Then Exit Sub
CommandButton1.Caption = "Gizle"
Else
CommandButton1.Caption = "Göster"
End If
'  ---////---Yeşil renkli yazılar açıklama içindir. Silebilirsiniz.----////
For i = 2 To 12 '---------12 yerine toplam sayfa sayınızı yazınız.
With Sheets("Sayfa" & i)
If "Sayfa" & i = "Sayfa1" Then GoTo Atla '--Sayfa1 yerine---Görünür olmasını istediğiniz sayfa adını yazınız.
If "Sayfa" & i = "Sayfa5" Then GoTo Atla '--Sayfa5 yerine---Görünür olmasını istediğiniz sayfa adını yazınız.
If "Sayfa" & i = "Sayfa9" Then GoTo Atla '--Sayfa9 yerine---Görünür olmasını istediğiniz sayfa adını yazınız.
    If .Visible = False Then
        .Visible = True
    ElseIf .Visible = True Then
        .Visible = False
    End If
End With
Atla:
Next
End Sub

 

[asem33]

süpersiniz çok teşekkür ederim

 

[asem33]

çok şey istiyorum ama bir türlü beceremedim. örneği mesala sayfa ismleri kitap ağaç resim kalem su olarak tasarlayıp su ve kalemi gösteripdiğerlerini gizleyecek şekilde verebilirmisiniz?

 

[asem33]

With Sheets("Sayfa" & i)

bu kotda hata veriyor. sayfa1 sayfa 2 olan isimli dosyalarda yapabiliyorum. ama sayfa ismi değişilikiğinde yukardaki hatayı veriyor.

 

[parametre]

Private Sub CommandButton1_Click()
If CommandButton1.Caption = "Göster" Then
' Göster komutunda şifre sormasını isterseniz alttaki iki satırın başındaki tek tırnak işaretini kaldırınız
'W = InputBox("Şifrenizi giriniz", "ŞİFRE")
'If Not W = 123 Then Exit Sub
CommandButton1.Caption = "Gizle"
Else
CommandButton1.Caption = "Göster"
End If
' ---////---Yeşil renkli yazılar açıklama içindir. Silebilirsiniz.----////
For i = 2 To 12 '---------12 yerine toplam sayfa sayınızı yazınız.
With Sheets("Sayfa" & i)" sayfa burada genel değişken olarak acıklanmıs yani sayfa 1 sayfa 2de on değişken
If "Sayfa" & i = "Sayfa1" Then GoTo Atla '--Sayfa1 yerine---Görünür olmasını istediğiniz sayfa adını yazınız.
If "Sayfa" & i = "Sayfa5" Then GoTo Atla '--Sayfa5 yerine---Görünür olmasını istediğiniz sayfa adını yazınız.
If "Sayfa" & i = "Sayfa9" Then GoTo Atla '--Sayfa9 yerine---Görünür olmasını istediğiniz sayfa adını yazınız. If .Visible = False Then
.Visible = True
ElseIf .Visible = True Then
.Visible = False
End If
End With
Atla:
Next
End Sub

yesil olanları gorunmesini istedigin sayfa adını yazarak duzenle

 

[asem33]

yaptım ama olmadı ki sayfa1 sayfa5 sayfa9yazan yerleri değiştirdm bendeki sayfa sayısı kadar yaptım ama olmadı

 

[dEdE]

Merhaba,
Sayın asem33, dosyanızı ekleseniz daha kolay olurdu. İçindeki verilerinizi silin, işimiz sayfalarla.

 

[asem33]

örnek gönderiyorum şimdiden teşekkürler

 

[parametre]

burada cok geniş ornekler mevcut kolay gelsin iyi çalısmalar

 

[asem33]

konuyu açmadan
bunların hepsini inceledim zaten
ama hiçbir örnek soruma cevap vermiyor..

 

[asem33]

sayın dEdE örneği inceleyebildiniz mi?

 

[dEdE]

Merhaba,
Dosyanız ilişiktedir.

Private Sub CommandButton1_Click()
If CommandButton1.Caption = "Göster" Then
' Göster komutunda şifre sormasını isterseniz alttaki iki satırın başındaki tek tırnak işaretini kaldırınız
'W = InputBox("Şifrenizi giriniz", "ŞİFRE")
'If Not W = 123 Then Exit Sub
CommandButton1.Caption = "Gizle"
Else
CommandButton1.Caption = "Göster"
End If
For i = 1 To 9
With Sheets(i)
    If Sheets(i).Name = "kalem" Then GoTo Atla
    If Sheets(i).Name = "ali" Then GoTo Atla
    If Sheets(i).Name = "kitap" Then GoTo Atla
        If .Visible = False Then
            .Visible = True
        ElseIf .Visible = True Then
            .Visible = False
        End If
End With
Atla:
Next
End Sub

 

[asem33]

eline sağlık hocam.

 

[dEdE]

Rica ederim.
İyi çalışmalar.

 

[yeliz.yilmaz]

Gizlenen sayfa format/sheet/unhide menusunde olmamali.

merhaba arkadaslar,

calismanin cok guzel. benim cok isime yariyor. fakat, gizlenen sheetler format/sheet/unhide menusu ile gorunebiliyor. format/sheet/unhide menusune baktigim zaman sheet listesini gormemem mumkun mu acaba

tsk ederim.

 

[leumruk]

Merhaba,
Gizleme işlemini aşağıdaki kodla yaparsanız sayfalar görünmesini engellemiş olursunuz.

Sheets("Sayfa1").Visible = xlSheetVeryHidden