Sheetleri gizleyince button çalışmıyor.

[bilecenk]

Arkadaşlar herkese merhaba,

Benim dosyamda bulunan sheetlerin arasındaki geçiş select button ile yapılıyor. Ancak sıkıntım şu;

Her sheete diğer sheetlere geçiş icin buton var bu geçişler için,

Private Sub CommandButton1_Click()
Sheets(1).Select
End Sub

kodunu kullanıyorum malum sheet sırasına göre düğmeler sorunsuz çalışıyor. Ancak sheetleri gizlediğimde bu kodla düğmeler çalışmıyor.
Acaba gizli sheetler için başka bir kod var mıdır?

Yardımlarınız için şimdiden teşekkürler.

 

[mancubus]

eğer kullanılacaksa sheet neden gizleniyor? bunun üzerinde düşünün derim.

gizlenmiş sayfalarda işlem yapamazsınız.

önce Worksheets("Sheet1").Visible = True diyerek görünür hale getirmek lazım gelir.

 

[mancubus]

şöyle bir şey denenebilir.

Sub GizliSayfalarda()
    Application.ScreenUpdating = False

    Sheets("Sheet1).Visible = True
        'ne yapılacak ise onunla ilgili kodlar buraya.
        'ne yapılacak ise onunla ilgili kodlar buraya.
        'ne yapılacak ise onunla ilgili kodlar buraya.
        'ne yapılacak ise onunla ilgili kodlar buraya.
    Sheets("Sheet1").Visible = False
        'yapılacaklar bittikten sonra tekrar gizlenir.

    Application.ScreenUpdating = True
End Sub

 

[bilecenk]

söylediğinizi uygulamada başarılı olamadım. İlgilendiğiniz için teşekkürler.

 

[Zeki Gürsoy]

Eğer "sheets(1)" gizli ise "select", "activate" komutları veremezsiniz. Ancak gizli olsa bile doğrudan veri yazma veya okuma olabilir.

sheets(1).range("a1") = "deneme"
msgbox sheets(1).range("a1")