sayfa gizleme yardım

[bitmez13]

ben istiyorumki sayfa 1 deki a1 hücresindeki değer "B" olunca sayfa 2 sayfa 3 gizlensin değer "C" olunca ise sayfa 2 ve sayfa 3 açılsın sayfa 4 ve sayfa 5 gizlensin
yardımcı olursanız sevinirim

 

[uzmanamele]

merhaba
aşağıdaki kod işinizi görür mü?

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
If Range("a1") = "A" Or Range("a1") = "a" Then
Sheets("sayfa2").Visible = True
Sheets("sayfa3").Visible = True
Sheets("sayfa4").Visible = True
Sheets("sayfa5").Visible = True

Else
If Range("a1") = "B" Or Range("a1") = "b" Then
Sheets("sayfa2").Visible = False
Sheets("sayfa3").Visible = False
Sheets("sayfa4").Visible = True
Sheets("sayfa5").Visible = True

Else
If Range("a1") = "C" Or Range("a1") = "c" Then
Sheets("sayfa2").Visible = True
Sheets("sayfa3").Visible = True
Sheets("sayfa4").Visible = False
Sheets("sayfa5").Visible = False
End If
End If
End If
End Sub

 

[bitmez13]

olur

teşekkürler sağolasın