1. Sayfanın Sabit Kalmasını Sağlamak

[peleryn]

Sub IndexCode()
Application.CommandBars("Workbook Tabs").ShowPopup
End Sub

Şu kodu bir modül içine yerleştirin ve diğer kodun thisworkbook içinde olduğuna emin olun.

 

[polis]

Teşekkürler, şu anda bu çalışmayla işimi kolaylaştıracak ve anlaşılacak tarzda bir sonuç çıktı. ama ahhh şu sayfayı bir sabit bırakabilsek diyorum

 

[halit3]

anladığım kadarı ile sayfa1 i devamlı en solda istemeniz herhalde kısa yoldan sayfa1 geçiş için algılıyorum konuyu fazla dağıtmadan üsdeki menülere sayfa1 menüsü yapsak ve tıklayınca sayfa1 gitse işinizi görürmü

eğer işinizi görürse aşağıdaki kodu bir modül içine kopyalayınız dosyanızı kayıt ediniz ve kapatıp yeniden açınız en üste göreceksiniz sayfa1 menüsü gelmiş olacak hangi sayfaya giderseniz gidin ona tıklayınca direk sayfa1 geleceksiniz.

Sub auto_open()
Dim AnaMenu As CommandBarControl
Set AnaMenu = Application.CommandBars(1).Controls.Add(msoControlPopup, , , , True)
With AnaMenu
.Caption = "Sayfa1"
.OnAction = "sayfaac"
End With
End Sub
Sub sayfaac()
Sheets("Sayfa1").Select
End Sub
Sub auto_close()
Application.CommandBars("Worksheet Menu Bar").Reset
End Sub

 

[Skorpiyon]

Sayın polis,

Bu dosyada sizin istediğinizi tam olarak karşılamamaktadır. Ama sayfalar arasında hızlı gezinmek bakımından inceleyiniz.

Klavyeden sağ ve sol ok tuşlarına basarak, deneyin.

Not : Örneğin sayfa3'te bir yazı yazdınız ve ilk sayfaya geri dönmek veya 50. sayfaya gitmek istiyorsunuz. Önce B1'i seçin ve yine ok tuşlarını kullanın.
(Veya fare ile başka bir sayfa seçin ve ok tuşlarını kullanın)

 

[peleryn]

Halit hocam auto open kodu 2. satırda bir hata veriyor.Modüle yerleşirken direkt kırmızı oluyor.

 

[Skorpiyon]

Sayın peleryn,

Koddaki
Set AnaMenu = Application.CommandBars(1).Controls.Add(msoControl Popup, , , , True)
kısmı bitişik yazın.

 

[peleryn]

Şaban hocam düzeldi sağolun.Sizin çözümünüzle beraber kombine de kullanılabilecek birçok örnek çıktı ortaya..Halit hocamın kodları da bence tam 12 den oldu ama çalışma sayfası menü çubuğuna değil de bağımsız bir menü olarak atasak kenarından çekerek arkadaşın istediği yere sayfa sekmelerinin en soluna alt tarafa da atabiliriz gibi geldi.

 

[peleryn]

Sn. polis;

Ekli dosyada Halit hocamın çözümünden hareketle Sayfa 1'i açacak yol yeni bir menüye atanıyor.Bu menüyü altta sayfa sekmelerinin oraya taşır yerleştirirseniz sanırım tam istediğiniz gibi sayfanın solunda sayfa 1 sürekli sabit olmuş olur.

Bir modül içine;

Sub auto_open()
Application.CommandBars.Add(Name:="SAYFA 1").Visible = True
Dim AnaMenu As CommandBarControl
Set AnaMenu = Application.CommandBars("SAYFA 1").Controls.Add(msoControlPopup, , , , True)
With AnaMenu
.Caption = "SAYFA 1"
.OnAction = "sayfaac"
End With
End Sub
Sub sayfaac()
Sheets("Sayfa1").Select
End Sub
Sub auto_close()
Application.CommandBars("SAYFA 1").Delete
End Sub

 

[polis]

Sn hocalarım ve arkadaşlarım, hepinize verdiğiniz emekten dolayı yaptığınız çalışmalardan dolayı teşekkür ederim.
Burdaki tüm kombinasyonları kullanarak inanın mükemmel bir sonuç çıktı ortaya. hepinizin ellerine sağlık emeğine sağlık.

Cümleten hakkınızı helal edin lütfen.
Saygılarla