Belirli Sayfaları Gizleme

[amigo1905]

Arkadaşlar ekli dosyada yer alan belgede bir makro oluşturdum. Ama makrom tam istediğim gibi olmadı. Makronun işlevi mevcut sayfanın üzerinde 2 kere tıklandığı zaman mevcut sayfayı gizleyip ''STOK LİSTESİ'' sayfasına gitmesi, ''STOK LİSTESİ'' sayfasında sayfa numaralarına 2 kere tıklanınca gizlenen mevcut sayfaya gitmesi. Buraya kadar her şey normal ama ben ''STOK LİSTESİ'' sayfasından hariç ''BİRİM FİYATLAR'', ''ŞANTİYE LİSTESİ'' ve ''KONSOL'' sayfalarının da sabit kalmasını, sayfa üzerinde çift tıklanıldığı zaman ''STOK LİSTESİ'' sayfası gibi sabit kalmasını istiyorum.

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

Hazırladığım kod ekli dosyada mevcut olmakla birlikte, aşağıdaki gibidir.

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
On Error GoTo Son
Dim Sayfa As String

If ActiveSheet.Name <> "STOK LİSTESİ" Then
ActiveSheet.Visible = False
Sheets("STOK LİSTESİ").Select

Else

Sayfa = Target.Value
Sheets(Sayfa).Visible = True
If Sayfa <> "" Then Sheets(Sayfa).Select

End If

Exit Sub
Son:
MsgBox " Seçilen Sayfa Yok "

End Sub

 

[Korhan Ayhan]

Selamlar,

Kullandığınız kod aşağıdaki şekilde değiştirip denermisiniz.

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    Dim Sayfa As String
    
    On Error GoTo Son
    
    Cancel = True
    
    If ActiveSheet.Name <> "STOK LİSTESİ" And ActiveSheet.Name <> "BİRİM FİYATLAR" And _
    ActiveSheet.Name <> "ŞANTİYE LİSTESİ" And ActiveSheet.Name <> "KONSOL" Then
        ActiveSheet.Visible = False
        Sheets("STOK LİSTESİ").Select
        Exit Sub
    Else
        Sayfa = Target.Value
        Sheets(Sayfa).Visible = True
        If Sayfa <> "" Then Sheets(Sayfa).Select
        Exit Sub
    End If
    
Son:
    MsgBox "Seçilen sayfa bulunamadı !", vbCritical
End Sub

 

[amigo1905]

Korhan bey yarı oldu yarı olmadı gibi. Gizlenecek sayfalara çift tıklandığı zaman sayfaları gizliyor ama her gizleme sırasında ''Seçilen sayfa bulunamadı'' diye hata veriyor.

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki kodu güncelledim. İncelermisiniz.

 

[amigo1905]

Korhan Bey teşekkürler gerçekten çok yardımcı oldunuz.