Sekme Gizleme Sorunu!

[muchino]

Merhabalar Herkese,
Ekteki dosyadaki excel çalışma sayfasında,
anasayfadaki il adlarına tıkladığımda,diğer sekmelerdeki il sayfaları açılsın istiyorum..Ama il sekmeleri de gizli olacak görünmeyecek...Burdaki birkaç örneğe baktım maalesef ama makro yazma konusunda çok bilgim olmadığından,anlayamadım da...
Yardımlarınızı rica ederim.
Teşekkürler..

 

[Necdet]

Merhaba,

"İLLER LİSTESİ" adlı Sayfadaki linkleri sildim ve ilgili sayfanın kod bölümüne aşağaki kodları ekledim.

Açmak istediğiniz ilin bulunduğu satıra çift tıklamanız yeterli olacaktır.

Private Sub Worksheet_Activate()
Dim i As Integer
For i = 1 To Sheets.Count
    If Sheets(i).Name <> "İLLER LİSTESİ" Then Sheets(i).Visible = False
Next i
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim i As Integer
Dim Sehir As String
For i = 1 To Sheets.Count
    If Sheets(i).Name <> "İLLER LİSTESİ" Then Sheets(i).Visible = False
Next i
If Target.Row < 4 Then Exit Sub
Sehir = UCase(Replace(Replace(Cells(Target.Row, "B"), "i", "İ"), "ı", "I"))
On Error Resume Next
Sheets(Sehir).Visible = True
Sheets(Sehir).Select
End Sub

 

[muchino]

Çok Teşekkür ederim..İstediğim de tam olarak bu idi...
Yalnız sekme açmadığım iller var..Onları da ben yapmak istiyorum...
Kodu nasıl eklediniz?

 

[Necdet]

Merhaba,

Siz sadece sayfayı açın, gerisini kodlara bırakın

Kodları İLLER LİSTESİ sekmesinde sağ tıklayıp kod görüntüle dediğinizde görebilirsiniz.

 

[muchino]

Demek istediğim,mesela Aksaray için ben sekme açmamıştım..
Şimdi açıp,çift tıklama ile gelmek istiyorum,onu nasıl yapıcam..?
Çok çok teşekkürler yeniden

 

[muchino]

Tamamdır,aynı adla sekme açmam yeterli imiş...Teşekkür ederim...