Makro kodlama

[recepkull]

Arkadaşlar aşağıdaki kodlamada dökümler sayfası hariç diğer tüm sayfaların gizlenmesi için nasıl bir ekleme yapmam lazım. Bütün sayfaları tek tek false yazarak yapabilirim ama çok fazla sayfa var bunun kısa bir yolu var mıdır ? Yardımlarınızı bekliyorum.

Sub Dökümler()
'
' Dökümler Makro
'

'
    Sheets("Dökümler").Visible = True
    Sheets("Dökümler").Select
End Sub

 

[çıtır]

Deneyiniz.

Sub Dökümler()
For i = 1 To Worksheets.Count
If Sheets(i).Name <> "Dökümler" Then
Sheets(i).Visible = False
Sheets("Dökümler").Select
End If
Next i
End Sub

 

[recepkull]

Teşekkür ederim işime yaradı.

 

[çıtır]

Teşekkür ederim işime yaradı.

Rica ederim.Dönüş yaptığınız için teşekkür ederim.

 

[recepkull]

Deneyiniz.

Sub Dökümler()
For i = 1 To Worksheets.Count
If Sheets(i).Name <> "Dökümler" Then
Sheets(i).Visible = False
Sheets("Dökümler").Select
End If
Next i
End Sub

Rica etsem bu kodlamanın satır satır açıklamasını yapabilir misin ? Hangi metin ne anlama geliyor. Mesela Sheets("Dökümler").Select anlamı dökümler sayfasını seç demek. Diğerlerinin anlamlarını da öğrenmek için soruyorum. İlerde buna benzer bir sorunla karşılaştığımda kendim yapabileyim.

 

[çıtır]

Kısaca açıklamak gerekirse.
Worksheets.Count (Çalışma sayfası sayısı)
If Sheets(i).Name <> "Dökümler" Then (i sayfasının adı Dökümler değil ise)
Sheets(i).Visible = False (i sayfasını gizle)
umarım anlatabilmişimdir.

 

[recepkull]

Daha iyi anlatılamazdı. Zaman ayırdığın için teşekkür ederim.

 

[çıtır]

Daha iyi anlatılamazdı. Zaman ayırdığın için teşekkür ederim.

Rica ederim.Dönüş yaptığınız için teşekkür ederim.