sayfalar gizli, köprü ile açılsın..!

[sensizsoldum]

merhaba
herkese iyi akşamlar dilerim,

arkadaşlar formu biraz araştırdım lakin benim istediğim gibi bi kaç arkadşaımızda böyle bişey istemiş ama ben kendime uygun bi çalışma bulamadım.

bi çalışma sayfamız yaklaşık 10 sayfa olduğunu varsayalım, bide ana sayfa olduğunu düşünün, ana sayfadan diğer 9 sayfaya köprü ile geçiş yapıldığını da var sayalım, ben araç çubuğunda aktif sayfa haricinde diğer sayfaların gizli kalmasını köprüyü tıkladığım da ise o sayfanın açılmasını istiyorum. araç çubuğunda sadece açık olan sayfa görünmeli. yada tüm sayfalar hep gizli kalmalı çalışma sayfası ilk açıldığında ise sürekli olarak ana sayfa ekrana gelmeli..

bunu excelde sayfa gizleyerek yapıyorum tabı anlattığım kadar gelişmiş değil, ama sayfalara geçmek için köpruyu tıklattığımda sayfayı açmıyor.

sanırsam makroda olabilecek bişey bu, makroda olursa da çok memnun olurum,
örnek çalışmam ektedir. yardımcı olabilecek tum herkese gönülden tşklerımı sunarım.

saygılarımla.

 

[kemal turan]

Ek dosya ya bir bakarmısınız.
Sayfalar gizli, köprüler de çalışıyor.
İşinizi görür inşaallah.

 

[uzmanamele]

Merhaba

Ek dosya gibi bir şey mi istiyorsunuz.

Private Sub Worksheet_Activate()
For i = 2 To Sheets.Count
Sheets(i).Visible = False
Next
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("a:a")) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub
Sheets(Target.Text).Visible = True
Sheets(Target.Text).Select
End Sub

 

[sensizsoldum]

merhaba günaydın herkese,

evet bunun gibiydi. tşk ederim ilginize. çok sağolun.
iyi çalışmalar dilerim.

 

[Endless033]

tşkler arkadaşlar emeğinize sağlık