Soru COMMANDBUTTON ile gizli sayfalara geçmek

[ismailavci76]

Merhaba kolay gelsin,

Bir Excel kitabımda 20 kadar sayfa var. ANASAYFA'ya her sayfa için bir commandbutton yerleştirdim ve yine bu sayfalar için aşağıdaki makroları ekledim.

Sub ANASAYFA()
    Sheets("ANASAYFA").Select: Range("A1").Select
End Sub
Sub FATURA()
    Sheets("FATURA").Select: Range("A1").Select
End Sub
Sub GUZLE()
    Sheets("GÜZLE").Select: Range("A1").Select
End Sub
Sub URETIM()
    Sheets("ÜRETİM").Select: Range("A1").Select

Sayfalara bu butonlara basarak ulaşıyorum. Ancak aşağıdaki sayfa isimleri çok fazla olduğu için görünmesin diye gizledim. Gizledikten sonra herhangi bir sayfaya gitmek için ANASAYFA'daki ilgili butona tıklayınca istediğim sayfaya gitmek yerine aşağıdaki hatayı verdi.



Sayfanın gizliliğini kaldırınca makro çalışıyor, gizleyince hata veriyor. Bu sorunu nasıl aşabilirim? ANASAYFA dışındaki bütün sayfalar gizli olsun, sadece ANASAYFA üzerinden diğer sayfalara ulaşılabilsin istiyorum.

Şimdiden teşekkür ederim,

Saygılarımla.

NOT: Bu iş commandbuttonla olmaz, sayfalara link vermen lazım derseniz o da kabul, şifre vb. olması lazım derseniz o da kabul. Yani çözüm için her şey olabilir.

 

[ÖmerFaruk]

Sub FATURA()
    If Sheets("FATURA").Visible =False Then Sheets("FATURA").Visible =True
    Sheets("FATURA").Select: Range("A1").Select
End Sub

' İlgili sayfadaki kodlar ya da işlemleriniz sonrasında
'Arzu ediyorsanız sayfayı tekrar gözlemeniz gerekir

 

[Muzaffer Ali]

Merhaba.
Gizli sayfayı seçemezsiniz onun için hata alıyorsunuz. Önce sayfayı görünür yapmalısınız.

Örnek:

Sub FATURA()
    Sheets("FATURA").visible=true
    Sheets("FATURA").Select: Range("A1").Select
End Sub

AnaSayfayı açıncayeniden gizlenmesi için ThisWorkBook kod kısmına aşağıdaki kodları kopyalayın.

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    If Not Sh.Name = "ANASAYFA" Then Sh.Visible = False
End Sub

 

[ismailavci76]

Sub FATURA()
    If Sheets("FATURA").Visible =False Then Sheets("FATURA").Visible =True
    Sheets("FATURA").Select: Range("A1").Select
End Sub

' İlgili sayfadaki kodlar ya da işlemleriniz sonrasında
'Arzu ediyorsanız sayfayı tekrar gözlemeniz gerekir

Teşekkürederim NextLevel; ancak aradığım bu değil. Bu kod ile gizli sayfayı açıyor ve o sayfa görünür halde kalıyor. Sayfa kapatılınca tekrar gizli hale gelmesi lazım benim için.

 

[ismailavci76]

Merhaba.
Gizli sayfayı seçemezsiniz onun için hata alıyorsunuz. Önce sayfayı görünür yapmalısınız.

Örnek:

Sub FATURA()
    Sheets("FATURA").visible=true
    Sheets("FATURA").Select: Range("A1").Select
End Sub

AnaSayfayı açıncayeniden gizlenmesi için ThisWorkBook kod kısmına aşağıdaki kodları kopyalayın.

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    If Not Sh.Name = "ANASAYFA" Then Sh.Visible = False
End Sub

Teşekkür ederim Muzaffer Ali bey.