Kodlarda eksiklikmi var?

[ersoyalan]

Arkadaşlar merhaba,

Göster gizle kodu kullanıyorum fakat 4 sayfadan fazla göster gizle yapamıyorum..Yapmak istediğim 11 sayfalık bir çalışma kitabını gösterip gizleme...

Kullandığım kod.

Private Sub CommandButton1_Click()
On Error Resume Next
x = InputBox("Şifrenizi giriniz", "ŞİFRE")
If Not x = 111 Then Exit Sub
If CommandButton1.Caption = "GİZLE" Then
CommandButton1.Caption = "GÖSTER"
Else
CommandButton1.Caption = "GİZLE"
End If
kul1 = Array("Eyl1", "Eyl2", "Eyl3", "Eyl4", "Eyl5", "Eyl6", "Eyl7", "Eyl8", "Eyl9", "Eyl10, "Eyl11")
For a = 0 To 3
With Sheets(kul1(a))
If .Visible = False Then
.Visible = True
ElseIf .Visible = True Then
.Visible = False
End If
End With
Next a
End Sub

 

[Skorpiyon]

Sayın ersoyalan,

For satırındaki 3 rakamını 10 olarak değiştirip dener misiniz.

 

[ersoyalan]

Hocam merhaba,
Dediğiniz gibiyaptım ve oldu..10'un anlamı nedir peki..açıklama yapmanız mümkünmü..

 

[masuk500]

hocam affınıza sığınarak 10 anlamı dizide 11 eleman var index 0 olduğu için 0-10 yani 11 elemanı döngüye sokuyorsunuz

 

[ersoyalan]

Şaban Sertkaya hocam yardımlarınız için çok teşekkürederim...

masuk500,
Çok teşekkürederim gece gece bir bilgi sahibi daha oldum..Hepinize çok teşekkürederim..

İyi geceler.