Status bar(Durum Cubugu) Yazı Hk.

[skaan]

Merhaba;
Dosyamda birden cok sayfa bulunmakta ve bu sayfaları isimlendirdim.
Sayfa coklugu nedeni ile bir sayfadan diğerine gectiğimde excelde altta bulunan
StatusBar (Durum Cubugu) da hangi sayfada bulunuyorsam o sayfanın ismini yazdırmak istiyorum. Ornegin sayfa1 deyken durum cubunda sayfa1 diğer sayfaya gectiğimde durum çubugunda sayfa2 vb.. yazmalı. (benim isimlendirdiğim şekilde tabi). Hatta yazı daha belirgin olması için renkli olursa mesela kırmızı harika olur..
Bana bu konuda yardımcı olabilirseniz çok sevinirim.
Hayırlı günler dilerim..
Saygılarımla;
SKaan

 

[Zeki Gürsoy]

"ThisWorkbook" sınıf modulune aşağıdaki kodu yapıştırın.
Yazıyı renk vs. biçimlendirme için çözüm görünmüyor.

Private Sub Workbook_Open()
    Application.StatusBar = ActiveSheet.Name
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Application.StatusBar = ActiveSheet.Name
End Sub

 

[uzmanamele]

merhaba

bunun gibi bir şey mi istiyorsunuz?

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.StatusBar = "Çalıştığınız Sayfa :" & ActiveSheet.Name
End Sub

 

[Seyit Tiken]

Çalışma Sayfasının sol üst köşesinde sayfa isimleri görünür.

Private Sub Workbook_Open()
Application.Caption = ActiveSheet.Name
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.Caption = ActiveSheet.Name
ActiveWindow.Caption = Null
End Sub

 

[skaan]

Yardımlarınız için çok teşekkür ederim.. Harikasınız..
Hayırlı günler dilerim..
Saygılar
SKaan

 

[heft]

Merhaba,
Statusbar'ın sanırım rengi sabit değiştirilemiyor doğrumudur?

 

[kurmayy]

Merhaba..

Bu konuyla ilgili bir sorum olacak.Status bar görünmesini istediğimiz yazıyı yazdığımızda sadece o excell sayfasında çıkması gerekirken neden diğer excell dosyalarında çıkıyordur?

Yardımlarınız için çok teşekkürler..