Sayfa Gizleme

[DeathMoment]

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If Kontrol = True Then Exit Sub
    For Each Sayfa In ThisWorkbook.Worksheets
        If Sayfa.Name <> "DATA" Then
            Sayfa.Visible = False
        End If
    Next
End Sub

kod ile DATA sayfası dışındaki sayfaları gizliyorum ancak buna sayfa1 nasıl ekleyebiliriz yani sadece DATA ve sayfa1 i gizlemeyecek diğer bütün sayfaları gizleyecek yardımcı olursanız sevinirim

 

[Muzaffer Ali]

If Sayfa.Name <> "DATA" Then

satırını aşağıdaki ile değiştirn

If Sayfa.Name <> "DATA" and Sayfa.Name <> "sayfa1" Then

 

[DeathMoment]

Sayfa.Visible = False

satırında hata verdi

 

[Muzaffer Ali]

kodu düzeklttim tekrar dener misiniz

 

[DeathMoment]

teşekkürler dosya üzerinde yardımcı olur musunuz Data sayfasına geçince Sayfa2 kayboluyor benim istediğim sadece DATA ve Sayfa2 barda gözükecek diğer bütün sayfaları gizliyecek yani DATA ile Sayfa2 arasında geçiş yapabilecem

 

[Muzaffer Ali]

Dosyanızda Adı Sayfa1 olan sayfa yok ki

 

[Muzaffer Ali]

Dosya ekte

 

[DeathMoment]

Dosya ekte

Teşekkür ederim hocam elinize sağlık