Sayfa Gizleme

[sgultegin]

sayfa gizleme

 

[hamitcan]

Başlığınızı düzeltiyorum, bir dahakine daha uygun bir başlık seçin.

 

[N.Ziya Hiçdurmaz]

yanıt

Sub anasayfa()
Dim i
    For i = 1 To Sheets.Count
    Sheets(i).Visible = True
        If Sheets(i).Name <> "anasayfa" Then
            Sheets(i).Visible = False
            Sayfa1.Activate
        End If
    Next
End Sub

 

[hamitcan]

Eki inceleyin.

Dim s As Integer
Sub gizle()
    Application.ScreenUpdating = False
    goster
      For i = 1 To 4
            If Sheets(i).Index <> s Then
               Sheets(i).Visible = False
            Else
               Sheets(i).Visible = True
            End If
            
      Next
    Application.ScreenUpdating = True
End Sub
Sub goster()
    For i = 1 To 4
        Sheets(i).Visible = True
    Next
End Sub
Sub anasayfa()
    s = 1
    gizle
End Sub
Sub ay_1()
    s = 2
    gizle
End Sub
Sub ay_2()
    s = 3
    gizle
End Sub
Sub ay_3()
    s = 4
    gizle
End Sub