Hücre değerine göre sayfa gizleme ya da gösterme

[falanca09]

Merhabalar,

"sayfa 1" de,

A1 hücresinde "A" değeri var B1 hücresinde "GİZLE" ya da "GÖSTER" değeri var
A2 hücresinde "B" değeri var B2 hücresinde "GİZLE" ya da "GÖSTER" değeri var
A3 hücresinde "C" değeri var B3 hücresinde "GİZLE" ya da "GÖSTER" değeri var
.
.
.
Ve "sayfa 1" in yanında "A" , "B" , "C" ... isminde mevcut sayfalar bulunmaktadır.

"sayfa 1" de B1 hücresine "GİZLE" yazdığım zaman "A" sayfasını gizlemek istiyorum. "GÖSTER" Yazdığım zaman gizlenen "A" sayfasının tekrar gösterilmesini istiyorum.

bununla ilgili yardımcı olabilir misiniz?

 

[askm]

Aşağıdaki kodları sayfanın kod bölümüne yazıp deneyin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("b1:b3")) Is Nothing Then Exit Sub
If Range("b1").Value = "GİZLE" Then
    Sheets("A").Visible = False
Else
    Sheets("A").Visible = True
End If
If Range("b2").Value = "GİZLE" Then
    Sheets("B").Visible = False
Else
    Sheets("B").Visible = True
End If
If Range("b3").Value = "GİZLE" Then
    Sheets("c").Visible = False
Else
    Sheets("c").Visible = True
End If
End Sub

 

[Ömer]

Merhaba,

Alternatif.

Sayfa1'in kod bölümüne kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
    
    Dim syf As String
    
    If Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub
    
    On Error GoTo atla
    With Target
        syf = .Offset(0, -1)
        If .Value = "GİZLE" Then
            Sheets("" & syf & "").Visible = False
        ElseIf .Value = "GÖSTER" Then
            Sheets("" & syf & "").Visible = True
        End If
    End With
    
    Exit Sub
atla:
    MsgBox syf & " Adında Sayfa Yok."
      
End Sub

.